表計算一筆書き・・・タイフーン【解答例】

　いやあ、今回はここの常連さん達が怪物なんだということを

再認識しました。(^^ゞ

あの問題で７０台、そして６０台の解答がでてくるとは？！

こちらの解答例はまったくおそ松くんなんですが

行きがかり上、何も出さないわけにはいかないので・・・

Excel８６文字

=LEFT("★",ISREF($K$11 (11:11,A:A,B1:I1,J1:J9,C9:I9,C4:C9,C3:H3,H4:H7,E7:G7,E5:E6,F5)))

Comments

[投稿情報: む印]

とりあえず６３です＾＾
=MID(" ★ ★ ★",MAX(COLUMNS(A:$F)+(COLUMN()

[投稿情報: む印]

式が切れてました＾＾；
再度
=MID("　★　★　★",MAX(COLUMNS(A:$F)+(COLUMN()＜ROW()),ROWS(1:$6)),1)

[投稿情報: minmax]

む印さんの６３想像どおりでした。

[投稿情報: minmax]

ほかの方見えませんね～
わたしの６２は
=MIDB(" ★★★",MAX(COLUMNS(A:$F)+(COLUMN() でした。

今回はいろいろなパターンがあったのだと思います。
いろいろみたいので是非みなさんお見せください。
ほんとに最近いい問題が多いですね。

[投稿情報: minmax]

再度×２
=MIDB(" ★★★",MAX(COLUMNS(A:$F)+(COLUMN()＜ROW()),ROWS(1:$6)),2)
62

[投稿情報: y sakuda]

minmaxさんの切れてます。
よろしくーー

私は73から一歩もうごけなくなっちゃいました。
その73です
=MID("　★　★　★",MAX(ROWS(1:$6),ABS(COLUMN()-5.5)+1)-(12-COLUMN()=ROW())%,1)

コメントに何度も出てきた「あの手」をつかった74
=MID("　★　★　★",MAX(ROWS(1:$6),COLUMNS(A:$E:$F1)-1%)-(12-COLUMN()=ROW())%,1)

これは、最初に作った別エンジンの最終形で87
=LEFT("*",ISODD(MIN(ROW(),12-COLUMN(),12-ROW(),COLUMN()-1)+(ROW()＜7)*(ROW()=COLUMN())))

渦がまわってこそタイフーンということで作って見ましたが、短縮できず、203です
=IF(ISREF(A1 $F$6),REPT(" ",MOD(SECOND(NOW()),4)+1),MID("　★　★　★",MAX(ABS(ROW()-6-CHOOSE(LEN($F$6),1,,-1,)/2),ABS(COLUMN()-6-CHOOSE(LEN($F$6),,-1,,1)/2))+1-(ABS(MOD(LEN($F$6)+1,2)*12-COLUMN())=ROW())%,1))

これからお二人の60台研究させてもらいます。
それとkirさんのA系80ってのどんなんだろ？

[投稿情報: くまぷー]

＞MAX(COLUMNS(A:$F)+(COLUMN()＜ROW()),ROWS(1:$6))
＞MAX(COLUMNS(A:$F)+(COLUMN()＜ROW()),ROWS(1:$6))

うひゃ～！！
む印さんとminmaxさんのこのエンジン！！
本当にきれいに数字がならんでいますーー
よくこんなの思いつきますね。感動もんです！！

[投稿情報: む印]

MIDBかー、、
この場合には打って付の関数ですねｄ

[投稿情報: minmax]

y sakudaさんの７３ 右上から左下の斜めでしたか。
私も後半まではそうだったのですが、
その後左上から右下の斜めに変更して６２になったものです。
それにしてもそんな％が有効とはビックリ

[投稿情報: くまぷー]

sakudaさんの式の%は何なんだろう？
・・・と思って試してみたら
*0.01の意味なんですねーー
初めて知りました。
ほんとにいろんなことをよく知っているなーー。

あとsakudaさんの渦巻き、ヘビがのたくっているよう・・・
ちょっと怖い・・・(^^ゞ

[投稿情報: む印]

>本当にきれいに数字がならんでいますー
今日家にもどってから
奇数のエンジンを探ってみたら
MAX(COLUMNS(A:$F)+(COLUMN()＞=ROW()),ROWS(1:$7))
でした。
minmaxさんの５４はこれかなｄ＾＾

[投稿情報: y sakuda]

>%は何なんだろう？
演算子なんですねーー
先週手裏剣Ⅱで色々やっているときに気が付き、その時は字数変わらなかったんですが、どこかで使ってやろうと思ってたら、今週使えたｗ
＞ヘビがのたくっているよう・・・
やはり丸じゃないから良く回らないwww

[投稿情報: minmax]

y sakudaさんに対抗して回転です。
=MIDB(" ★★★",MAX(COLUMNS(A:$F)+CHOOSE(MOD(SECOND(NOW()),4)+1,ROW()>COLUMN(),,ROW()＜COLUMN(),),ROWS(1:$6)+CHOOSE(MOD(SECOND(NOW()),4)+1,,ROW()+COLUMN()＜12,,ROW()+COLUMN()>12)),2)
177

つぎは、導火線を提示します。

[投稿情報: y sakuda]

>今回はここの常連さん達が怪物なんだということを

まあ、この問題で60台でできると思う約2名は間違えなく化け物ｗ

[投稿情報: minmax]

＞minmaxさんの５４はこれかなｄ＾＾
６４のことですよね？
そんな高度なものではありません。
単純に
=MIDB(" ★★★",MAX(COLUMNS(A:$F)+(COLUMN()-ROW()＜0),ROWS(1:$6)),2)
です。

[投稿情報: む印]

因みに、σ（＾＾ の「タイフーン」は
=MAX(7-COLUMN(),COLUMN()-6,ROWS(1:$7))
が、思考のはじまりです。

[投稿情報: minmax]

では、導火線を・・
極単純に数式を積み上げただけなのですが、やってみたかったので
=IF(((ROW()=1)*COLUMN()+ISREF(A1:A10 $K$11)*(ROW()+10)+ISREF($K$11 B1:J1)*(32-COLUMN())+ISREF($K$10 J1:J8)*(41-ROW())+ISREF($K$9 C7:I7)*(COLUMN()+36)+ISREF($K$9 C1:C6)*(ROW()+42)+ISREF($K$9 D1:H1)*(60-COLUMN())+ISREF($K$8 H1:H4)*(65-ROW())+ISREF($K$5 E1:G1)*(COLUMN()+56)+ISREF($K$11 E5:E6)*(ROW()+58)+ISREF($K$7 F1)*66)＞MOD(MOD(NOW(),1)*10^6,67),"■","")
354です。

つぎは、・・・ネズミとでも言っておきましょうかね。

[投稿情報: かず]

いや～っ、びっくりです。
ほんとに驚きました！

結局σ(+_+)は、86文字と
=LEFT("■",ISREF((11:11,A:A,B1:J1,J2:J9,C9:I9,C3:C8,D3:H3,H4:H7,E7:G7,E5:E6,F5) $K$11))
88文字
=LEFT("■",1-MOD(MAX(ROWS(1:$6),COLUMNS(A:$F))-(ROW()＞COLUMN())*(ROW()＜COLUMNS(A:$L)),2))
から進展しませんでした

[投稿情報: y sakuda]

しかし、midbは全く考えもしなかったですねーー

minmaxさんの回転はやはりコンパクトにまとまってますね^^

[投稿情報: y sakuda]

導火線しゃれてます^^

かずさんのエンジン私のより60台のお二方に近いですねーー

[投稿情報: minmax]

かずさんの式もよく見ないと分かりませんね。

では、私の最後の提示はネズミ花火とでも言っておきます。
全く問題と関係ないものですが、、、
この数式には約束事があります。導火線が中心近くまで言ったら必ず小さな声で「バン」と言ってください。（決して大きな声で言わないでください。病院に連れて行かちゃいますよ。）

=IF(((ROW()=1)*COLUMN()+ISREF(A1:A10 $K$11)*(ROW()+10)+ISREF($K$11 B1:J1)*(32-COLUMN())+ISREF($K$10 J1:J8)*(41-ROW())+ISREF($K$9 C7:I7)*(COLUMN()+36)+ISREF($K$9 C1:C6)*(ROW()+42)+ISREF($K$9 D1:H1)*(60-COLUMN())+ISREF($K$8 H1:H4)*(65-ROW())+ISREF($K$5 E1:G1)*(COLUMN()+56)+ISREF($K$11 E5:E6)*(ROW()+58)+ISREF($K$7 F1)*66)＞MOD(MOD(NOW(),1)*10^6,78),"■",IF(0.2*SUMSQ(6-ROW(),6-COLUMN())＜(MOD(MOD(NOW(),1)*10^6,78)-67),"★",""))
423文字です。

あ、例によってF9押しっぱなしです。

[投稿情報: minmax]

あとは、kirさんの登場を待つだけですが、明日は仕事なのでねちゃうかも。

[投稿情報: ジョー3]

まず最後を見てみた。
４２３面白かったです。

[投稿情報: minmax]

ジョー3さんありがとうございます。
花火は微妙な調整が面白かったです。

[投稿情報: くまぷー]

ネズミ花火は凄い！！
これは今までのアニメ版のなかでも
最高のできですね！！

もはや職人の域ですね！！

[投稿情報: ジョー3]

みなさん、すごいですねーー
すっかり、一つの世界が・・・・
出来た感じですねーー

[投稿情報: maxmin]

くまぷーさんへ
そんなに大したものではないですよ。
それよりちゃんと「バン」って言ってくれました？
効果音がないと迫力でませんから♪

[投稿情報: ジョー3]

％は・・・・・・

どこでみたっけかねーーー

忘れたけど、見たなーーー

[投稿情報: くまぷー]

＞それよりちゃんと「バン」って言ってくれました？

はい、小さく・・・パン！！

[投稿情報: kir]

おはようございます。
80：=MID("★　★　★",AREAS($K$11 (A:K,B2:K10,C3:J9,D4:I8,E5:H7,F6:G6,K1,J2,I3,H4,G5)),1)
74：=MID(" ★　★　★",MAX(ROWS(1:$6),COLUMNS(A:$F))-(6-ABS(ROW()-6.5)＞COLUMN()),1)

>MAX(COLUMNS(A:$F)+(COLUMN()＜ROW()),ROWS(1:$6))
対角線で分けるパターンは見えたのですが、こうすれば良かったのか～。

[投稿情報: y sakuda]

そうか。今回のA系はAreasの方がシンプルになったのか・・・
kirさんのRC系はやはり一味ちがいますね

[投稿情報: y sakuda]

皆さんの発想はつまるところ、対角線で切って、一つずらせば良いということみたいですね。
私はそういう発想は全くなく、A列の外側に縦線のあるはみ出した同心四角があり、それを補正するというものでした。
この考え方に完全に引っかかってますからあの60台の発想は絶対に出てこないですねーー

しかし、最初に始めた時の感じでは、RCで100を切れたらまずまず、せいぜい80台が出るのか？って感じでした。
それを考えると60、70台ってのは全く予想外でしたねーー

[投稿情報: くまぷー]

対角線で切る発想もはみ出し同心四角の発想も浮かびませんでした。
自分で出題しながら、手も足も出ませんでした。
みなさんの見事な切り口にただ驚くばかりです。

[投稿情報: ジョー3]

>自分で出題しながら、手も足も出ませんでした。

うーーん、そこが面白いーー

１）出題者が有利そうで、
２）思い込みで、不利そうで、・・・
３）限定的には、有利か、、ん？？minmaxさんを・・・思い出した。
でも、内容は忘れたなーー

[投稿情報: minmax]

>minmaxさんを・・・思い出した。
ん？
誰かあっしを召喚しましたか？
あっしも覚えていませんが？？？
ん、あれか～？

[投稿情報: minmax]

ところで、最近エクセルの本来の使い方を忘れそう。
エクセルの起動はここ９５％
その他仕事で開くだけの作業が５％くらい。
ちなみに
y sakudaさんの％を教訓に
=1%%%
ってやってみた。
そのほかにも色々やったんですけど・・・

[投稿情報: くまぷー]

＞最近エクセルの本来の使い方を忘れそう。　×２

私はそれで本望です　（￣＾￣）

[投稿情報: minmax]

＞私はそれで本望です　（￣＾￣）
へ？？
あっしは、エクセルコンテスト今年も無理ってことか～

[投稿情報: ジョー3]

しげきされて、、

＞　　　=1%%%

ほーーー

では、、

=2^2^2^2^2^2^2^2
なんちゃって、、