第29問 じゃんけん 解答例

この一週間いろいろ作りましたが、最終日に最初から用意してあった47が二文字ダイエットできただけでした。
45
=MID("BA--",FIND(C5&E5,"00IACICAIIAACC")/3,1)
実はこれ、あまり気に入ってません。

寧ろからくちさんのC5&E5、関係演算子、Code禁止に触発されて作ったこちらの方が気に入ってます。
47
=MID("AB-AB",FIND(C5,"IAC")-FIND(E5,"IAC")+3,1)

Findが重なっていたり、ABが繰り返しているのを何とかしようとすると却って伸びちゃいました＾＾；
49
=MID("AB-AB",MMULT(FIND(C5:E5,"IAC"),{1;3;-1}),1)
52
=MID("-AB",MOD(FIND(C5,"IAC")-FIND(E5,"IAC"),3)+1,1)
他にもFrequency使ったものやらいくつかありますが、エンジンの考え方はこの二種類のみです。

　　　　　　　　　　　　　　　　　　　　　　　　　　（sakudaさん談)

Comments

[投稿情報: くまぷー]

誰も書き込まないうちに・・・(^^ゞ

47文字：
=MID("AB-",MOD(FIND(C5&E5,"CACCAIAAICII"),4),1)

[投稿情報: y sakuda]

くまぷーさんの47は私が当初用意した47とは違いました。
私のは45になったやつの元で、こういう汚らしいやつです。
=MID("BA--",FIND(C5&E5,"IACICAIIAACC")/4+1,1)

ついでにFrequency使ったやつもさらして置きます。
69
=LOOKUP(,0/FREQUENCY(FIND(C5&E5,"IACICAIIAACC"),{3,6}),{"B","A","-"})
くまぷーさんの手法使えばこれも少し短縮できるかな？

[投稿情報: jyo-3]

なんか、
あまり深く考えないうちに終わっちゃった。

=IF(C5=E5,"-",IF(FIND(C5&E5,"AICACIA")<4,"A","B"))

substituteのみで、解こうと思いかけたけど・・・・今日も、朝から出かけて、さっき帰って、
進展がなかった。

[投稿情報: む印]

お久しぶりで～す＾＾；

今週ＰＣ触れず、、今やって４５でした、、、
=MID("BA-",FIND(C5&E5,"ACIAICA"&C5&E5)^0.6,1)

なんか、「一筆書き」っぽい？

[投稿情報: minmax]

む印さんお久しぶりです
本当に一筆書きぽっいですね。

[投稿情報: y sakuda]

おっ、む印さん突然の登場でいきなり45ですか^^;
この引き分けの処理の仕方は考えなかったな。

[投稿情報: ジョー3]

で、1関数のみで・・・・
長くなりそうだなーー

[投稿情報: minmax]

家から急いで持って来たもの携帯からなので取捨選択せずに投稿します。
だぶってるもの、検証不足のものもありますが。
半分以上ｐｃ以外でぼけっとしている時間でやりました。
53=IF(C5=E5,"-",IF(FIND(C5&E5,"AICA"&C5&E5)<4,"A","B"))
50=IF(C5=E5,"-",IF(FIND(C5&E5,"CAICIAC")<4,"A","B"))
63=IF(C5=E5,"-",IF(IF(C5="C","A",IF(C5="I","C","I"))=E5,"A","B"))
53=IF(C5=E5,"-",IF(OR(C5&E5={"CA","AI","IC"}),"A","B"))
52=IF(C5=E5,"-",IF(COUNT(FIND(C5&E5,"CAIC")),"A","B"))
50{=IF(C5=E5,"-",IF((C9 52=IF(C5=E5,"-",IF((C9 52=MID("AB-",FIND(E5,MID("AICAI",FIND(C5,"CAI"),9)),1)
48=MID("AB-AB",FIND(E5,"　　　CAI")-FIND(C5,"CAI"),1)
47=MID("AB-AB",FIND(E5,"CAI")-FIND(C5,"CAI")+3,1)
54=MID("AB-",FIND(E5,RIGHT("AICAI",6-FIND(C5,"CAI"))),1)
44=MID("AAA--B",FIND(C5&E5,"AICA"&C5&C5&E5),1)
48=MID("A-B",FIND(C5&E5,"AICA "&C5&C5&E5)/3+0.9,1)
46=MID("AB-",FIND(C5&E5,"AICACIA　"&E5&C5)/4+1,1)
60=LOOKUP(CODE(C5)-CODE(E5),{-8,"A";-6,"B";0,"-";2,"A";8,"B"})
54=MID("AB-AB",MATCH(CODE(C5)-CODE(E5),{-8,-6,0,2,8}),1)

42=MID("-AABB",MOD(CODE(C5)-CODE(E5),5)+1,1)

[投稿情報: minmax]

IFでよければ1関数で52文字でした。

[投稿情報: ジョー3]

１関数
＆なし
＝なし
＜なし
＞なし
あと、、、なんだっけ、、

やっと書いた。
=SUBSTITUTE(SUBSTITUTE
(SUBSTITUTE(SUBSTITUTE
(SUBSTITUTE(SUBSTITUTE
(SUBSTITUTE(SUBSTITUTE
("AIC",C5,E5),
"AIC","-"),
"AIA","A"),
"AAC","B"),
"AII","B"),
"ACC","A"),
"IIC","A"),
"CIC","B")

[投稿情報: ジョー3]

あ、、、
で、
きっと、、
最長だろうの、、

178文字でした。

でも、ちょっと、美しいでショーー

[投稿情報: minmax]

再挑戦
53=IF(C5=E5,"-",IF(FIND(C5&E5,"AICA"&C5&E5)〈4,"A","B"))
50=IF(C5=E5,"-",IF(FIND(C5&E5,"CAICIAC")〈4,"A","B"))
63=IF(C5=E5,"-",IF(IF(C5="C","A",IF(C5="I","C","I"))=E5,"A","B"))
53=IF(C5=E5,"-",IF(OR(C5&E5={"CA","AI","IC"}),"A","B"))
52=IF(C5=E5,"-",IF(COUNT(FIND(C5&E5,"CAIC")),"A","B"))
50{=IF(C5=E5,"-",IF((C9〈E9)-OR(C9:E9="C"),"A","B"))}
52=IF(C5=E5,"-",IF((C9〈E9)-(C9="C")-(E9="C"),"A","B"))
52=MID("AB-",FIND(E5,MID("AICAI",FIND(C5,"CAI"),9)),1)
48=MID("AB-AB",FIND(E5,"　　　CAI")-FIND(C5,"CAI"),1)
47=MID("AB-AB",FIND(E5,"CAI")-FIND(C5,"CAI")+3,1)
54=MID("AB-",FIND(E5,RIGHT("AICAI",6-FIND(C5,"CAI"))),1)
44=MID("AAA--B",FIND(C5&E5,"AICA"&C5&C5&E5),1)
48=MID("A-B",FIND(C5&E5,"AICA "&C5&C5&E5)/3+0.9,1)
46=MID("AB-",FIND(C5&E5,"AICACIA　"&E5&C5)/4+1,1)
60=LOOKUP(CODE(C5)-CODE(E5),{-8,"A";-6,"B";0,"-";2,"A";8,"B"})
54=MID("AB-AB",MATCH(CODE(C5)-CODE(E5),{-8,-6,0,2,8}),1)

42=MID("-AABB",MOD(CODE(C5)-CODE(E5),5)+1,1)

大丈夫かな？

[投稿情報: y sakuda]

minmaxさん、スゲーｗ
42は皆さん同じじゃないかな？
ジョー３、ようやるわｗ

[投稿情報: くまぷー]

>私のは45になったやつの元で、こういう汚らしいやつです。

そんな、汚らしいなんて思いませんけど・・・
煮ている・・・
いや
似ている・・・

[投稿情報: くまぷー]

＞minmaxさん、スゲーｗ　×２

＞ジョー３、ようやるわｗ　×２

[投稿情報: jyo-3]

>半分以上ｐｃ以外でぼけっとしている時間でやりました。
へーー、、、すごい、、、

めくら将棋みたいだねーー。

[投稿情報: ジョー3]

＞ジョー３、ようやるわｗ　×２

短いの、苦手だから、、
長いので、・・・・
誰もやらないようなのを、、

でも、思考は単純ですよね、
単純な脳の私だから、、、

[投稿情報: y sakuda]

minmaxさんのいくつか良く分からないですね。
やはり似たようなのやってるのは直ぐわかったんですが、44のなんかはこれから考えます。
ところで、
{=IF(C5=E5,"-",IF((C9 と
=IF(C5=E5,"-",IF((C9 はAパー、Bグーの時Bって判定しますね。
どこがうまくないんだろ？

[投稿情報: y sakuda]

ミスってやりなおそうとしたら分かりました。

配列数式の50と次の52ですが

C5,E5の一部がC9,E9になってますね。
修正するとちゃんと動きました。

[投稿情報: minmax]

c9とe9はc5とe5にするとどうなります？

[投稿情報: y sakuda]

44やっと分かった。
示されて見るとなるほどですね^^；

[投稿情報: からくち]

今回は全部で３６パターン程作りましたが
でもまあまあ、、、が２～３のみ
それも既に出ているような、、、

より式を短くしたい
これは良く取れば知恵を・技を磨く
悪く取れば基本を疎かにしがちになる
そんなことを改めて思い起こされました

式を短くしたい、、、何を削ろう
真っ先に目を付けられるのがＭＩＤの文字列
最大で９文字、、、これを如何に短くするか
その為に開始位置の取得に技巧を凝らす

でも、、、
＞最大で９文字
一切の知恵も技も使わずMIDとFINDを組み合わせると

=MID("-A-A-ABBB",FIND(C9&E9,"CCAAIICIAC"),1)
４４文字
それ程長くは無い

[投稿情報: からくち]

＞=MID("-A-A-ABBB",FIND(C9&E9,"CCAAIICIAC"),1)
=MID("-A-A-ABBB",FIND(C5&E5,"CCAAIICIAC"),1)

[投稿情報: minmax]

ジョー３さんすご
全然そんな発想でません

今回はＰＣなしでも考えやすかったです。

[投稿情報: からくち]

４５文字があって、４４文字があって
何故に４３文字が出ていない

=MID("AB B-A AB",(CODE(C5)-CODE(E5))/2+5,1)

[投稿情報: y sakuda]

見せられてみれば、素朴にやったからくちさんの44が全く出てこなかったのが情けない・・・・
CCAAII
を先にやるとあいことAがまざちゃうから初めから考えてなかった^^;

[投稿情報:]

＞一切の知恵も技も使わずMIDとFINDを組み合わせると

＞それ程長くは無い
そかそか、、なるほど、、

[投稿情報: y sakuda]

>悪く取れば基本を疎かにしがちになる
そのとおりです。
だから、良い子は真似しちゃいけないｗ

[投稿情報: minmax]

基本って最初からそんなに備わってないんですけど、ここに参加してから余計になくなった。
省略できるものはすぐ省略するし
vlookupの引数にfalseって書かなくなるし

基本は大事なんだけどなぁ。

[投稿情報: y sakuda]

>基本って最初からそんなに備わってないんですけど、
σ(^^)の場合、ExcelもVBAも必要に迫られて勝手に覚えたから初めから基本なんてないかもｗ

[投稿情報: からくち]

＞vlookupの引数にfalseって書かなくなるし
もう随分以前のことになりますが・・・

当時もＦＡＬＳＥの代わりに０と書いていた
その時、若しかしたら最初にそのゼロをも省いた式を提示したのは
わたしかも
でも記憶ではその時１回はゼロの前の","の意味・必要性を書いた覚えがあります
どちらにしても褒められた事では無いですね

今では可也の率で","すら省かれての式を書き
この式が上手く働かない旨の相談も見かける

反省。。。

＞初めから基本なんてないかもｗ
その筆頭がわたしかも、、、

[投稿情報: からくち]

＞その筆頭がわたしかも、、、
参考書１つ持っていない
基本を知る術も無い

全てが手探り

[投稿情報: y sakuda]

>参考書１つ持っていない
×２

[投稿情報: からくち]

うっかり忘れる処でした
今回１番の無駄式・手間をかけた式、、、１２３

=MID("-AB",LOOKUP(1,0/(C9&E9=MID("CAI",MOD(ROW(3:11),3)+1,1)
&MID("CAI",MOD(ROW(3:11)+ROW(3:11)/3-1,3)+1,1)),ROW(3:11))/3,1)

これは何処まで無駄なのか、、、いや一概には・・・
始めに１２３文字ありきは、、、考えが難しい・・・

[投稿情報:]

昔ＰＣ持ってないのに分厚いエクセルの公式本読んだなあー

エクセル始めた時vlookupって便利だと思った。falseも合言葉のように使っていたように記憶しています。
だから人に見せるシートでは今でも基本を守ることにしています。

そういえばランブランなんて表計算ソフトでも同じ関数あったなあ。関数名何だったっけなあー

[投稿情報: minmax]

訂正
>ランブラン
ランプラン
LANPLAN

[投稿情報: ますたあ]

いやあ、すっかり出遅れてしまいました。
昨日はお休みで早くからお酒を飲んでしまったので．．．。(^^ゞ
寝てしまいました。
今朝、5時30分に起きなくてはいけないってのありましたが．．．

さて、今回、CIAを繋げてそこから割り出すんだろうな～と
考えましたが、式としてまとまりませんでした。
情けないですが．．．

でっ、とりあえず答えが出せないといけないと思い。
ベタベタの式ですが
=IF(C5=E5,"-",IF(C5&E5="IA","B",IF(OR(C5&E5="AI",C5>E5),"A","B")))

式を作ったことの無い人が作った式のようですね。^^;

さて、今朝、もう、一仕事してきました。
地域の奉仕作業です。^^;
お付き合いも大変ですね。

[投稿情報: くまぷー]

>さて、今朝、もう、一仕事してきました。
>地域の奉仕作業です。^^;

お～、こんなに早くから・・・
ご苦労様です。
お疲れ様で～す！！

[投稿情報: くまぷー]

minmaxさん、どもです。
LANPLANってぜんぜん、知らなかったので
思わず調べてしまいました～
2003年の4月まで市販されていたんですね～
http://www.express.nec.co.jp/products/soft/pcsw/lan/lanplan/

[投稿情報: minmax]

毎回感じることだけど最初から面白い問題だと感じないものでも結果的には面白いって感じることが多い
また、いろいろ条件追加すると深みも増す
すごいなぁ〜
３６５歩…ってのも単純だけど面白かったし

ところで、関数で出来ますか〜？ってカテゴリー出来ましたね

あー今日も1日缶詰め状態の私・・なんにもできないwww

[投稿情報: supermab]

ここにくるのに、、、
kumap ってググったら、、
一番上になってましたwww
すげー　＾＾；

で、結局 ５０どまりでした。

=MID("BA-",MOD(FIND(C5&E5,"CAAC*IAIIICCI"),3)+1,1)

本当は、
=(C5 を使って、やりたかったのですが・・・
場合分けで、長大化してしまいました ＾＾；

[投稿情報: くまぷー]

>ところで、関数で出来ますか〜？ってカテゴリー出来ましたね

そうなんです。
せっかく新カテゴリーを作ったんですが
問題の在庫が僅少・・・
それが問題・・・

＞kumap ってググったら、、
＞一番上になってましたwww

ほんとですか～？！
.。oｏＯ(゜ペ／)／ひゃ

[投稿情報: ますたあ]

私の作った問題を出題されるときには。

最終の時間は終電前としてください。

[投稿情報: kir]

遅くてすいません。
>42は皆さん同じじゃないかな？
42はMODを使ってないやつでした。

53：=MID("-BA-BA-",MMULT(FIND(C5:E5,"　CIA"),{2;1;1})-6,1)
52：=IF(C5=E5,"-",IF(ISERR(FIND(C5&E5,"CAIC")),"B","A"))
51：=MID("-ABBABA",FIND(CODE(C5)-CODE(E5),"0-8-6-2"),1)
51：=IF(C5=E5,"-",TEXT(FIND(C5&E5,"CAICIAC")-4,"!B;A"))
50：=IF(C5=E5,"-",IF(FIND(C5&E5,"CAICIAC")>3,"B","A"))
50：=TEXT(FIND(C5&E5,"CAICIACCAAII"),"[2]-;A;!B")
47：=MID("BA-BA",FIND(C5,"CAI")-FIND(E5,"CAI")+3,1)
44：=MID("-A-A-ABBB",FIND(C5&E5,"CCAAIICIAC"),1)
43：=MID("AB B-A AB",(CODE(C5)-CODE(E5))/2+5,1)
42：=MID("AB-A-AB",CODE(C5)/2-CODE(E5)/4-13,1)

[投稿情報: くまぷー]

>私の作った問題を出題されるときには

(｀◇´)ゞアイアイサー！

[投稿情報: くまぷー]

kirさんもいっぱい作ってきましたね～
スゴイ！！

[投稿情報: y sakuda]

supermabさん結局お風呂で忘れたの思いださなかったんでしょうか？

kirさんのは相変わらずユニークですねーー
別の42があるとは思わなかったですｗ

ところで、
50：=TEXT(FIND(C5&E5,"CAICIACCAAII"),"[2]-;A;!B")
はコピーミスされているようですが、どうなんでしょうか？

[投稿情報: supermab]

>supermabさん結局お風呂で忘れたの思いださなかったんでしょうか？

あのとき、思いついたのは、、
=(C5E5)
ってすると、、-1、0、1 を得られるけど、、
CI と IC のときだまされるので、
そのだましに手っ取り早く対処する方法。

で、
結局、、、思い出せませんでした。。。
いまでも、、、行方不明です・・・

あはは、、、残念！

[投稿情報: supermab]

あれ？

＝（Ｃ５＜Ｅ５）－（Ｃ５＞Ｅ５）

って、入れたのですが・・・
半角だと、、ダメみたいですね　＾＾；

[投稿情報: ジョー3]

問題は、、、
出来ているのだ、、、

3個ぐらい・・・・

でも、、、

どのような条件で、出題が
・・・・
おもしろいかなーーーって

考えると、、

困るジョー・・・・

[投稿情報: y sakuda]

>半角だと、、ダメみたいですね　＾＾；
そうなんです。
半角の＞＜を入れるとそこで切れちゃったりしますので、式投稿する時気を付けないとだめなんです。

[投稿情報: y sakuda]

おお、最後（にならないかもしれないけど）は怒涛のジョー３シリーズになるかもｗ

[投稿情報: ジョー3]

で、最近考えてるのは、、、

1セル10文字以内・・・・・
なら、、
作業セル・・・（ここから、ここまで、、）OK！！

とか！！？？

[投稿情報: じょー３]

あ－－－－－

[投稿情報: くまぷー]

>あ－－－－－

?(・_。)?(。_・)?

[投稿情報: minmax]

>50：=TEXT(FIND(C5&E5,"CAICIACCAAII"),"[2]-;A;!B")

をヒントに
46=TEXT(FIND(C5&E5,"AICA "&C5&C5&E5)-6,"!B;A;-")
とすれば良かったんですね。
=TEXT(FIND(C5&E5,"AICA "&C5&C5&E5)-6,"B;A;-")
ではだめだった。

[投稿情報: kir]

>コピーミスされているようですが、どうなんでしょうか？
すっすいません・・・orz
50と48が＜と＞の記号のせいで合体したようです。
50：=TEXT(FIND(C5&E5,"CAICIACCAAII"),"[＜4]A;[＜7]!B;-")
48：=TEXT(FIND(C5&E5,"CAICIACCAAII")-4,"[＞2]-;A;!B")

[投稿情報: y sakuda]

>50と48が＜と＞の記号のせいで合体したようです。
にゃるほどw
ずいぶん紛らわしい形に合体したもんだ^^;