表計算一筆書き・・・小田代湖 【回答】

【´･ω･`】:今回は悪児さんの出題でした。くまぷーの「田園」と表示させるものは

　　　　　ほとんど同じなのに難易度はかなり高くなっていました。

　　　　　いやいや、本当に面白い！！さて悪児さんから、下のような

　　　　　メッセージを頂いております・・・悪児さん、今回は本当にありがとうございました。

            ※問題はこちらを参照。

            *********************************************************************************

ジョー3の衝撃的なExcel62宣言で、出題者悪児は完敗宣言を出しました。(^^)ゞ

ヒントから、Excel62を再現することができましたが、余計その素晴らしさに

圧倒されています。(^^)(^^)

とゆーわけで、Excel62の発表は、ジョー3に、そして、三四郎62は

解答者悪児にお任せするとして、とりあえず、出題者悪児が、出題時に

作成していた解答です。

標準解答（同じ文字数のものをいくつか作ったのですが三Exそれぞれ、１つずつ）。

三四郎77
=If(Row(C3) MOD 4*(Col(C3) MOD 4)+((Row(A1)-6)^4+(Col(A1)-6)^4>600),,"*")

Excel83
=IF(MOD(ROW(G7),4)*MOD(COLUMN(G7),4)+(MOD(ROW(),10)=1)+(MOD(COLUMN(),10)=1),"","*")

黒魔術解答（これで結構持つだろう、と思ったのですが・・・）

三四郎71
=If(Fp(Row(C3)/4)*Fp(Col(C3)/4)+((Row(A1)-6)^4+(Col(A1)-6)^4>600),,"*")

Excel77
=IF(MOD(ROW(C3),4)*MOD(COLUMN(C3),4)+((ROW()-6)^4+(COLUMN()-6)^4>600),"","*")

その後、解答者悪児は、アレ（LCM）を使って、、三四郎71は三四郎70に、

Excel77はExcel75に、減量したようです（ただし、Excelは式を作っただけで、

動作確認していません）。

なお、解答者悪児の解答は、

8:10に↓にアップされるようです。(^^)ゞ

http://akuji.justblog.jp/blog/

Comments

[投稿情報: y sakuda]

とりあえず、くまぷーさんのも見ずに投稿します。

77文字までしか行かなかった^^
たぶん、これとこの直前の81文字は何人かの方と基本的には同じだと思います。

=IF(OR(MOD(ROW()+2,4)*MOD(COLUMN()+2,4),ROW()={1,11},COLUMN()={1,11}),"","*")

あと、経過を示すために別の回答も出しておきます。

初日に正攻法で書き流した原型を整理したもので111文字。　ColumnとRowを3組使ってるのでは勝負にならない。

=LEFT("*",(MAX((ROW()-6)^2,(COLUMN()-6)^2)=16)+((ROW()-6)*(COLUMN()-6)=0)*(MAX((ROW()-6)^2,(COLUMN()-6)^2)＜25))

初日にもうひとつ考えた別解で、せめて100を切たいと考えたのですが、103文字。

=IF(ISNA(MATCH(ABS(COLUMN()-6)*10+ABS(ROW()-6),{44,43,42,41,40,34,30,24,20,14,10,4,3,2,1,0},0)),"","*")

で、翌日（だったと思う）作った81文字版

=IF(MOD(ROW()+2,4)*MOD(COLUMN()+2,4)+(MAX((ROW()-6)^2,(COLUMN()-6)^2)>16),"","*")

後いくつかバリエーションがありますが、すべて81を超えてしまいましたし、いずれにしろ発想は大差なしでした。

ジョー３の解答が楽しみです^^

[投稿情報: えくせるバカ]

配列式60文字です。
Ａ1：Ｋ11に
　=REPT("*",{0,2,1,1,1,2,1,1,1,2,0}*{0;2;1;1;1;2;1;1;1;2;0}>1)
入力してCtrl+Shift+Enter

風邪を患って頭が・・・・・・。
ｶﾞﾝ(@@)ｶﾞﾝ
ダメだこりゃ

[投稿情報: きっちー]

今回はうまくいきませんでした。
７０文字です。

=If(Row(C3) MOD 4*(Col(C3) MOD 4)+Row(H8) DIV 9*(Col(H8) DIV 9)=1,"小")

（６９は酔っぱらっての数え間違いでした。）

[投稿情報: くまぷー]

>とりあえず、くまぷーさんのも見ずに投稿します。

ははは、おいらは今回は（今回も？）完敗です。

三四郎（７０文字）．．．A1に
=If(Rows(A1:$F$6)^2+Cols(A1:$F$6)^2 IN {2,5,10,17,26,29,34,41,50},"*")

Excel（９３文字）．．．A1に
=LEFT("*",OR(ROWS(A1:$F$6)={1,5},COLUMNS(A1:$F$6)={1,5})*AND(ROW()<>{1,11},COLUMN()<>{1,11}))

自慢はRow()やColumn（）ではなく
Rows()、Columns()を使っているところ・・・
たぶん、今まで誰もやっていないのでは？
このSのついた関数はけっこう面白い。
いろいろ、試してしまいました。(^O^)

[投稿情報: y sakuda]

おーーいジョー３やーーい^^

[投稿情報: くまぷー]

＞おーーいジョー３やーーい^^

そう言えば結婚式に行くと言ってましたっけ・・・

[投稿情報: y sakuda]

ああそうか・・・忘れてた^^
じゃ、ヨッパ状態でご帰館で今晩は無理かな？

[投稿情報: くまぷー]

悪児さんは土曜は仕事で帰りは遅いから
今回はメインとなる二人が不在か・・・

[投稿情報: くまぷー]

＞配列式60文字です。

{0,2,1,1,1,2,1,1,1,2,0}*{0;2;1;1;1;2;1;1;1;2;0}

なるほどね～。
この前の「田園」のときは
この手は使えなかったんですか？
あ、使えるけど３７文字を越えてしまうのか・・・。

[投稿情報: くまぷー]

きっちーさんの
＞=If(Row(C3) MOD 4*(Col(C3) MOD 4)+Row(H8) DIV 9*(Col(H8) DIV 9)=1,"小")

こういうのはくまぷーには思いつきません。
きっちりと田の字の部分が１になるんですね～。

[投稿情報: くまぷー]

さて、ここに提示されている式を２分すると．．．

１．田の字を「口」と「十」に分けて処理する２段階方式。
悪児さん、sakudaさん、きっちーさん。くまぷーのExcel９３文字。

２．田の字を点で指定する方式。
くまぷー三四郎７０文字。えくせるバカさんさん。

どうやらジョー３さんの62が点でしてしていない１段階らしいのだが・・・

[投稿情報: y sakuda]

>１．田の字を「口」と「十」に分けて処理する２段階方式。

私のは前半で小さな田を書いてますが、外側に飛び出す線が存在するので、後半でそれをカットしてます。

[投稿情報: y sakuda]

私のだけではなく悪児さんのもくまぷーさんのも外側カット方式は同じだと思います。
きっちーさんのは解明してませんが・・・

[投稿情報: ジョー3]

=LEFT("*",MAX(MIN((ROW()-4)^2,(ROW()-8)^2),MIN((COLUMN()-4)^2,(COLUMN()-8)^2))=4)

max
min
で、
せまってみました

でも、
ｋさん　＆
えくせるばか　さん
kir　　さん

あなた方は凄い
技術力がある
おらは、構想jけだ・・・

それしかない・・・・・

で、

すんません、
まねして、
ゆるしてね、

=LEFT("*",MAX(MIN((ROW()-{4,8})^2),MIN((COLUMN()-{4,8})^2))=4)

美しいなーーーー
花嫁はーーーー
手を、きっちり、何度も、握ってきた。

[投稿情報: y sakuda]

ジョー3ご帰館みたいですが無理っぽい状態^^

[投稿情報: y sakuda]

おお、無理じゃなかった＾＾
お疲れ様です。これから解読しまーーす。
とにかく凄い^^

[投稿情報: y sakuda]

ジョー3の解読しました。
すばらしい。発想としても全く思いつかなかったです。

[投稿情報: くまぷー]

＞くまぷーさんのも外側カット方式は同じだと思います

くまぷーのExcel９３文字は・・・

＞１．田の字を「口」と「十」に分けて処理する２段階方式。
悪児さん、sakudaさん、きっちーさん。くまぷーのExcel９３文字。

・・・あるとおり、外側カット方式ですが・・・

三四郎７０文字は・・・

=Rows(A1:$F$6)^2+Cols(A1:$F$6)^2

・・・をA1からK11にコピペすると、田の字に必要なセルの数字が2,5,10,17,26,29,34,41,50に
なるので、それを拾っているだけです。

「口」と「十」と、分けてはいないと思いますが・・・(^^ゞ

[投稿情報: くまぷー]

おおおおおおおおおお！！
ジョー３さん、凄い！！
文句なく一番です！！

ジョー３さんに･･･( ^_^)／□☆□＼(^_^ )カンパ-イ!

[投稿情報: y sakuda]

そう言えば、Rowsはこれまで使われてないかもですね。Excelでもこの方が良い局面はありえますね。

それにしても図形が複雑だと、発想は同じでも出来た式には微妙なバリエーションがあって面白いですね。
さらに、別の式の字数が同じになったりする傾向があるのも不思議^^

[投稿情報: 悪児]

>ジョー３さん、凄い！！
>文句なく一番です！！

今回は、この一言・・・(^_^)(^_^)/~

[投稿情報: ジョー3]

>今回は、この一言・・・(^_^)(^_^)/~

でも、あれで、解読する、あくじは、
わるいやっつだ、怪物だ。
そんなひとたちが、ごろごろしてるから、

おら、永遠に、

田中さんの所では、
しょうはもらえん・・・・

[投稿情報: くまぷー]

＞田中さんの所では、
しょうはもらえん・・・・

いや、この発想があれば今年はわかりません(^o^)

[投稿情報: きっちー]

６８文字。
酔ったときに作ったの。

=If(Row(C3) MOD 4*(Col(C3) MOD 4)+(Row(B2) & Col(B2) LIKE "2"),,"*")

外側消去がなんとかいけたもの。

[投稿情報: ジョー3]

ようやく、思考が出来るようになりつつあります。

問題を一緒に解くとき、時々、
だれも、こんな方法でやらないだろうなーーー

と思っても、同じ回答が、あるものですよね、
で、今回は独自性が出せて良かったです。

規則性が難しいような中から、
単純な規則性を発見できたので
良かったです、

まず、図を眺めていたら、
４４　　８４
４８　　８８

の距離の所から、２つ離れたところに
点がある。と考えると・・・・
分かりやすいぞーーーと、気づいたわけです。
皆さんに、今回は誉めていただいて嬉しいなーー

あとで、あたまがすっかり良くなったら、
皆さんの回答を、見せていただきます。

昨日は、
ビール　コップで　　１０
ジョッキー生　　　　　５
日本酒　　　　　　　　２合ぐらい
ワイン　　　　　　　　２本ぐらい
・・・・・・・
飲み過ぎた。反省・・・

[投稿情報: くまぷー]

きっちーさん、お早うございます。

なるほど・・・。
＞=If(Row(C3) MOD 4*(Col(C3) MOD 4)+(Row(B2) & Col(B2) LIKE "2"),,"*")

・・・悪児さんの三四郎６２のFindの代わりに
Likeを使ったものですね。(^o^)
面白い！

ちなみにビギナーの方のために・・・
Findを使うとこうなります。
=If(Row(C3) MOD 4*(Col(C3) MOD 4)+Find(2,Row(B2) & Col(B2)),,"*")

[投稿情報: くまぷー]

ジョー３さん、お早うございます。

＞昨日は、
ビール　コップで　　１０
ジョッキー生　　　　　５
日本酒　　　　　　　　２合ぐらい
ワイン　　　　　　　　２本ぐらい

ずいぶん飲みましたね。二日酔いは大丈夫ですか？(^^ゞ

＞あとで、あたまがすっかり良くなったら、

コメント、よろしくお願いいたします。(^o^)

[投稿情報: きっちー]

＞・・・悪児さんの三四郎６２のFindの代わりに

原型はFindよりも前にありました。
（どっちが先でもかまいませんけど。）(^^)

最適化して６６文字。あと４文字に迫る？

=If(Row(C4) MOD 4*(Col(C4) MOD 4)+(Row(B3) & Col(B3) LIKE 2),,"*")

[投稿情報: えくせるバカ]

ジョー3さんの式の美しさに
感動しました。
なるほどROWとCOLUMNを分けて
MAXするとこれほど簡素になるんですね。
この考え方を使えば
=REPT("*",MAX(ABS((COLUMN()-6)^2-8),ABS((ROW()-6)^2-8))=8)
と58文字にすることも出来ました。

[投稿情報: くまぷー]

なるほど、するとこれを三四郎に翻訳すると・・・

=If(Max(Abs((Col(A1)-6)^2-8),Abs((Row(A1)-6)^2-8))=8,"*")

・・・で５７文字か・・・

でもジョー３さんの活躍があればこそ。

[投稿情報: 悪児]

>58文字にすることも出来ました。

あ、本当だ。(^^)(^^)
これなら、三四郎でもできる。

=If(Max(Abs((Col(A1)-6)^2-8),Abs((Row(A1)-6)^2-8))=8,"*")

57文字。

あらためて、
良い問題だったなぁ～～(^^)ゞ

[投稿情報: 悪児]

>57文字。

ABSを２乗にすると、
さらに１文字削れる・・・(^^;)(^^;)

[投稿情報: ジョー3]

５８
５７
５６

どひゃーーーー
な、な、なんてことだ・・・・・

[投稿情報: ジョー3]

この問題、
実は、田が出来たとき、もう少し遊んであった。

田んぼがいっぱいあったら・・・ってね、

http://blog.livedoor.jp/jyo33/?blog_id=279807

[投稿情報: えくせるバカ]

＞田んぼがいっぱいあったら・・・ってね、
見てきました、これぞ「田園」って感じ！

それと、ジョー3さんの考え方なら
更に１段２段と小さな田ができますね！

[投稿情報: くまぷー]

感想戦、楽しいですね。

http://kumapooh.justblog.jp/blog/2007/10/post_b169.html#comment-2409535

　　　↑のコメントでは書かなかったけれど
えくせるバカさんの研究も、もちろん凄いです。

＞良い問題だったなぁ～～(^^)ゞ

悪児さん、本当に有り難うございました。

いやいや、みなさん本当に有り難うございます。(^｡^)

[投稿情報: ジョー3]

=REPT("*",MAX(ABS((COLUMN()-6)^2-8),ABS((ROW()-6)^2-8))=8)
と58文字にすることも出来ました。
なんで、こんなことにまで、気づくんでしょうね。

もう、何か、数学の世界みたいだ。

あと、５６まで下がるとは、
ほんとは、これが最終目標数だった。
・・・・ん、・・・・おらの年。

[投稿情報: ジョー3]

書き忘れた

↑１，２行目は、エクセルバカさんの式

[投稿情報: きっちー]

＞あと、５６まで下がるとは、
ほんとは、これが最終目標数だった。

まだいけますね。

自力ではダメでしたけど、皆さんの式を組み合わせると・・・

５３文字です。

=If(Max((Cols(A1:$F1)-3)^2,(Rows(A1:A$6)-3)^2)=4,"*")

[投稿情報: くまぷー]

おお、きっちーさん、凄い！！まだいけるとは？！

これをExcelに翻訳すると・・・

=LEFT("*",MAX((COLUMNS(A1:$F1)-3)^2,(ROWS(A1:A$6)-3)^2)=4)

・・・５８文字。Rows、Cols、ExcelではColumnｓを使っているのがうれしい！！(^｡^)

[投稿情報: ジョー3]

>>ほんとは、これが最終目標数だった。

>まだいけますね。

うわーーー、
おらも、若返りてーーー

[投稿情報: きっちー]

・・・ということは、
以前の問題の式がまだ短縮できるということか・・・
２乗しなくてすみますしね。
cols、rows 使わせていただきますね。

[投稿情報: ｋ＠自転]

こんにちは～＾＾

やっぱ皆さん、スゴイ＾＾；

私はsakudaさんと、
VLOOKUP関数の
第四引数がFALSEでした＾＾；

[投稿情報: ジョー3]

>こんにちは～＾＾
おかえり～～～
今回は、ｋさんと組んで、頑張れた感じでした。サンキューー！！{4,8}

[投稿情報:]

チョット感想：sakuda様編

お疲れ様です。これから解読しまーーす。
午後 11時02分

ジョー3の解読しました。
午後 11時07分

えーーー5分でぱっと分かるって凄いなー

[投稿情報:]

チョット感想：えくせるバカ様編

ほっ・・・６２で、なんとか・・・これ以上のスリムはないだろな・・ほっ・・・

とする間もなく、58に減量！！
どど、怒濤の数学的解法！！
まいったぜ！！

[投稿情報:]

チョット感想：きっちー様編

ガックリ、肩を落とす間もなく
５３の声・・・ををーーーー
三四郎が・・・また、大幅に短い。
まいった、まいった、

[投稿情報: くまぷー]

あ、謎の覆面コメンテーター・・・

[投稿情報: y sakuda]

>ｋ＠自転さん

>VLOOKUP関数の第四引数がFALSEでした＾＾；
Vlookupがどういう関係があるんでしょうか？？

[投稿情報: くまぷー]

>VLOOKUP関数の第四引数がFALSEでした＾＾；

うん、これはおいらもわからなかった。(・-・)

[投稿情報: きっちー]

こういう別解答も。

５３字。
=If((SumSq(Cols(A1:$F6)-3,Rows(A1:F$6)-3)-6)^2＜5,"*")

で、これから次の問題の解答へと・・・・

[投稿情報:]

>こういう別解答も。

>５３字。

うわーーーすごい！！。スタミナ。