第30回 ぐるりと連番 解答例

◆RAND関数を使った解答案

95=RIGHT(IF(B3=0,IF(A4=0,INT(RAND()*10),A4+1),IF(C4=0,B3+1,IF(ROW()=9,C4+1,IF(B$2=0,"■",B3+9)))))

 

◆NOW関数を使った解答案

91=RIGHT(IF(B3=0,IF(A4=0,NOW()/1%^5,A4+1),IF(C4=0,B3+1,IF(ROW()=9,C4+1,IF(B$2=0,"■",B3+9)))))

 

（maronさん）

Comments

[投稿情報: くまぷー]

提示するものがございません　m(__)m
情けない・・・

[投稿情報: む印]

前回のｎｉさんの解答に被せただけの解答です、、
100=IF(ISREF($C$5:$F$8 B4),"■",MOD(IF(A$9="",(ROW()=4)*INT(RAND()*10)+B3,IF($B5="",A4,N(B5)+C4))-1,10))

[投稿情報: ni]

今出先、帰ったら投稿します
基本む印さんと同じです
少しだけダイエット

[投稿情報: y sakuda]

今回は全然ダメで119どまり
=IF(ISERR(AREAS(B4 $C$5:$F$8)),IF(ROW()+COLUMN()=6,INT(RAND()*10),MOD(IF($C3="",A4,IF(C4="",B3,SUM(B5,C4)))+1,10)),"■")
ズルしても112
=IF(ISERR(AREAS(B4 $C$5:$F$8)),IF(B2>9,INT(RAND()*10),MOD(IF(B3="",A4,IF(C4="",B3,IF(C4>9,B3-2,C4)))+1,10)),"■")

[投稿情報: min]

家から持ってきたルール違反の式
無駄があるのですが
99
{=IFERROR(MOD(MIDB("0123459■■68■■77■■86■■9543210",ROW()*6+COLUMN()-25,1)+RANDBETWEEN(0,9),10),"■")}
うまく投稿できるかな？

皆さんやはりrandを使ってますね。

[投稿情報: min]

90はnowに変更した式、
同じく無駄があるので、
後で出します。
nowを使った場合不具合が出る可能性もあるかもしれませんが。

[投稿情報: min]

あ、nowを使った場合,ルール違反にはなりませんが。

[投稿情報: min]

90
=IFERROR(RIGHT(MIDB("0123459■■68■■77■■86■■9543210",ROW()*6+COLUMN()-25,1)+NOW()*9^10),"■")

これの無駄を考えてみました。
81になるかな？

エクセルでやっていないので後でやります。
どなたか考えてもらってもいいのですが。

[投稿情報: y sakuda]

やっぱ、皆さん上手い^^
真ん中とB4が結局ほとんど短縮できませんでした。
Areasは何年ぶりかに使いましたｗ

[投稿情報: からくち]

誰とも被らない式がありました

=IF(MOD(COUNTA(C$3:$H3),5),"■",MOD(CHOOSE(COUNTA(A3:C3,A4,),INT(RAND()*10),A4+1,B3-1,B3+1,A4-1),10))

NOWも考えましたが、、、
＞６）ただし、「F9」を押すたびに、
text(now(),"h:m:s.000")では最後は必ず0と思います
故にこれに抵触してはと思い止めました

今回の問題は循環に付いて
エクセルの（と言うよりわたしの）未熟さを
改めて思い知らされ大変勉強になりました

[投稿情報: ｎｉ]

96
=IF(ISREF(I2:L5 $M$6),"■",MOD(IF($G3="",IF(A4="",INT(9/RAND()),A4),IF(C4="",B3,N(C4)+B5))+1,10))
最初9が出やすいです

[投稿情報: maron]

＞これの無駄を考えてみました。
＞81になるかな？
◆是非見てみたいです。楽しみにしています。

[投稿情報: min]

〉楽しみにしています
文字列を半分にするだけです
どなたでもできると思いますよ

[投稿情報: y sakuda]

頭こんがらがりそうになりながら、全部拝見しました。
ランダムにするところ、似たようなことは試したんですが、どこかが違い、循環参照で断念^^;

真ん中の判定Areasなんか使わずにISREF直接で良かったのか・・・・
なぜか全くそっち方面試さなかった。
それにしても、niさんのISREF(I2:L5 $M$6)はいかしてる^^

[投稿情報: ｎｉ]

>それにしても、niさんのISREF(I2:L5 $M$6)はいかしてる^^
ありがとうございまーす＾＾ｖ
大きいほうを固定したら＄が4つもいるので、小さいほうを固定してみました。

[投稿情報: y sakuda]

>＄が4つもいるので、小さいほうを固定してみました。
それは癪の種だったんですが、反対にするって発想はなかったですねーー

[投稿情報: からくち]

若し、、、maronさんの許可が下りればですが
この問題のPART２を思い付きました
この問題の様に難しく面白いとは言えませんが
偶には易しい問題もありかな、、、と

それにしてもわたしは、、、
ジョー３さん問題のPART２やら
maronさん問題のPART２やら
自身の問題が無いな、、、

[投稿情報: ｎｉ]

＞文字列を半分にするだけです

文字列を半分にしてみましたが、94　うーむ
=IFERROR(RIGHT(MIDB("0123459■■68■■7",ABS((ROW()>6)*37+25-ROW()*6-COLUMN()),1)+NOW()*9^10),"■")

[投稿情報: maron]

＞若し、、、maronさんの許可が下りればですが
◆くまぷーさんを差し置いて、maronが許可というのは、おこがましいですが、
◆問題は大歓迎です、このシリーズが長く続けば言うことはありません。

[投稿情報: からくち]

＞問題は大歓迎です
ありがとうございます
では、、、早速書いて送っておきます

「連番問題　PART２」として、、、

[投稿情報: からくち]

殆ど移しなので、、、
問題をいま送りました

[投稿情報: くまぷー]

>問題をいま送りました

確認いたしました。
有り難うございます。
では、からくちさんのPART2を
第31回にさせて頂きますm(__)m

[投稿情報: min]

先ほど帰ってきました。
いまさらですが、
maronさんのリクエストもありますので、

＞81になるかな？
エクセルでやらなかったのでやってみたら数え間違えていました。
文字列を半分にして、といっても約半分にしてですが。
83
=IFERROR(RIGHT(MIDB("7■■8 6■■9 543210",ABS(ROW()*7+COLUMN()-50),1)+NOW()*9^10),"■")
でした。
（８と６の間は半角スペース、９と５の間も半角スペース）
niさん、、ありがとうございました。

[投稿情報: min]

それにしても、皆さんいろいろ考えますね。
今回の問題、昔よく使ったNOW、これを使うのはちょっと気が引けました。

でも、単純にやるには手っ取り早いということで、使わせていただきました。

完全randomはRANDBETWEENがすぐに思いつきましたが、これは明確なルール違反
ということで、、失礼いたしました。

まいりました。

[投稿情報: maron]

＞エクセルでやらなかったのでやってみたら数え間違えていました。
◆ありがとうございます。
◆でも、エクセルを使わずにすごいと思います。

◆そして、83はこの問題での最少の解答ですね。

[投稿情報: ｎｉ]

RANDBETWEENはルール違反ですか？
文字数が長くなってしまうので、使いませんでしたけど。