第21回 エクセルでビンゴ 解答例

◆出題時の解答案
154{=IF(COLUMN()/ROW()=4/5,"Free",LARGE((COUNTIF($B$2:$F2,ROW($1:$75))+COUNTIF($A3:A3,ROW($1:$75))=0)*ROW($1:$75),RANDBETWEEN(1,75-COUNT($B$2:$F2,$A3:A3))))}

 ◆必死に考えた解答案
121{=IF(COUNT($A1:B2)=6,"Free",SMALL(ISNA(RANK(ROW($1:75),($2:2,$A3:A3)))*ROW($1:75),RANDBETWEEN(COUNT($2:2,$A3:A3)+1,75)))}

 ◆皆さんの解答を見せていただくのが、とても楽しみです。

　　　　　　　　　　　　　　　　　　　　　　　　　　（maronさん）

Comments

[投稿情報: y sakuda]

なんか、分かるような分からないような^^
くまぷーさん、からくちさんのも出そろったところでじっくり解析させてもらいます。

[投稿情報: くまぷー]

=IF(ROW()&COLUMN()="54","Free",IF(ROW()>7,RAND(),RANK(B8,$B$8:$F22)))

F22までコピーしてください。

[投稿情報: jyo3]

maronさん、、、

なんか、、、凄いですねー－

[投稿情報: くまぷー]

すみません。67を提示していませんでした。
下が67です。F22までコピーしてください。

=IF(COLUMN()/ROW()=.8,"Free",IF(ROW()>7,RAND(),RANK(B8,$B$8:$F22)))

ただ、ENTER押下の後、すぐに68になっちゃうんですが・・・(^^ゞ

[投稿情報: からくち]

F22まで、、、故にズル
=IF(ROW()/COLUMN()=5/4,"Free",IF(ROW()>7,RAND(),RANK(B8,$B$8:F22)))

F7まで、、、規則性がありズル
=IF(LEN(A2)>4,INT(RAND()*75),IF(ROW()^COLUMN()=625,"Free",MOD(CHOOSE((B2>99)+(ROW()>3)+1,A7,B2,B1)-27,75)+1))

[投稿情報: y sakuda]

結局お三方のどれも、パッと見じゃ何を意図してどういうからくりでランダム（or　疑似ランダム）を実現してるのか理解できません。
明日にもじっくり鑑賞＆解析します^^
とにかくスゴいとしか言いようがないですね。

[投稿情報: くまぷー]

私のは本当に単純です。8列～22列の75セルに乱数をばら蒔いて、そのうちの25セルをビンゴカード上で参照して(ランク付けして)いるだけです。

[投稿情報: maron]

◆昨日は、やたら眠くて、すぐに寝てしまい今皆さんの解答を見ています。
◆すごいと思います、maronが思いつかない方法が見れます。

◆やっぱり出題してよかったと思います。
◆ありがとうございました。

[投稿情報: くまぷー]

やはり、基本的なところはからくちさんと同じでした。

[投稿情報: maron]

くまぷーさん、
◆問題の在庫はありますか？

[投稿情報: くまぷー]

あと、maronさんの1題だけです。

[投稿情報: maron]

◆「たけやぶやけた」があまりにも、簡単にやられたので、リベンジ問題を考えています。

[投稿情報: y sakuda]

くまぷーさんと、からくちさんのF22までコピーってのは分かりました。
ただ、これは、75個くらいのRand()では同じものが出る確率は事実上ゼロって言うことでやってる訳ですね。
私はこういう発想は絶対にできないです。ある意味理科系の頭の固さｗ
maronさんのとからくちさんのもう一つは依然謎。

[投稿情報: くまぷー]

>確率は事実上ゼロって言うことでやってる訳ですね。

そうです。

[投稿情報: からくち]

この問題はQ&A等に質問をする方
並びに今よく回答を入れている方に見ていただきたい問題ですね
普通ならRANDを入れそれをRANKする
Freeは先に書き込んでおく、、、ただそれだけ
それを1式にしょうとすると如何に無駄か
それが良く分かる事例ですね
ただし、、、若しわたしがビンゴの表を依頼されたら
上記の様には作らずわたしが提示した規則性の表にするでしょう
理由は先にも書きましたがビンゴが１人づつしか出ないようにとか出来ますので
RANDでは７５枚同時ビンゴも確率は限りなく少ないけどあり得ますので

＞75個くらいのRand()では
750シート全てのセルにRANDでもゼロですよ

[投稿情報: y sakuda]

>750シート全てのセルにRANDでもゼロですよ
確率的にはゼロではないということだけですねーー
まあ、世の中奇跡はおこりますけどｗ

[投稿情報: jyo3]

ひとつ、作ってみました。
で、書いて見ました（解いた）

で、？？？
前にたのやったような気がする

まあ、、いいか、、、許せない類似作なら・・・
没にしてくれるでしょうから。

でも、ちょっと簡単すぎるかも、、、

４問で、、、３０分以内で終了するかもね、、、
追加して、、、５問にするかも、、、

[投稿情報: jyo3]

それにしても、ランダムって面白い。

で、、

独り言・・・

さいころ・・・

これってランダム、、、

だよねーーー
でも、どっちを向けて、どう振るか・・・
ちょっと変わりそう。

そのさいころの作り、目の状態

ちょっと差が出るかも

パソコン、、、ランダム生成に・・隠れた規則性は？？？

・・・・・・・・・・・・・・・

[投稿情報: maron]

＞ひとつ、作ってみました。
◆jyo3さん、楽しみにしています。

◆ほかの方も問題をお願いします。

[投稿情報: y sakuda]

大分眺めたけど、maronさんのもからくちさんのも何となくそうなんだろうなレベルしか理解できませんでした。
ようこんなもの考えるもんですねーー

[投稿情報: からくち]

＞からくちさんのも何となくそうなんだろうな
仮に、、、
A1=int(rand()*75)
A2=mod(a1-B$1,75)+1
これをA75まで
C1=count(0/frequency(a:a,a:a))
これでB1の数値をいろいろ変えてみてください
C1が75（種類）ならOK
わたしは一見ランダムぽく見える27を使っただけです
文字数を考慮するなら当然ですが1桁の数値で

[投稿情報: y sakuda]

解説ありがとうございました。
27ってのは初期値か・・・・・

[投稿情報: からくち]

＞27ってのは初期値か・・・・・
いいえ、、、初期値は
int(rand()*75)で
mod(前数-27,75)+1の27なので
あえて言えば差です