第53回 十枚の領収書（その２） 解答例

作業セルなしで、・・・・・

とは、言ったものの、、

長いよね～ーー　　370文字・・・・・

最初思いついたまーーんま、、、

・・・・・・・

ほんとは、

2日目ぐらいから、、整理して、短縮の予定だったが、、

sakudaさんの文字数を聞いた途端に、、、整理の、意欲がなくなった。

・・・・・

まったくのお恥ずかしい・・・・・・

{=INT(MOD(MATCH($M8,((MOD(ROW($4:$1027),2)=1)*$K$6+(MOD(ROW($4:$1027),4)＞1)*$J$6+(MOD(ROW($4:$1027),8)＞3)*$I$6+(MOD(ROW($4:$1027),16)＞7)*$H$6+(MOD(ROW($4:$1027),32)＞15)*$G$6+(MOD(ROW($4:$1027),64)＞31)*$F$6+(MOD(ROW($4:$1027),128)＞63)*$E$6+(MOD(ROW($4:$1027),256)＞127)*$D$6+(MOD(ROW($4:$1027),512)＞255)*$C$6+(ROW($4:$1027)＞511)*$B$6),0),2^(12-COLUMN()))/2^(11-COLUMN()))}

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ジョー３さん談）

Comments

[投稿情報: y sakuda]

表の107です
{=MOD(INT(MATCH($M8,MMULT(MOD(INT(ROW(1:1023)/2^COLUMN($A:$J)*2),2),TRANSPOSE($B5:$K5)),)/2^COLUMN()*4),2)}

裏は表の手法をそのまま焼き直した196です。
{=MOD(INT(4*MATCH($M8+1%-1/MAX(1/($M8+1%-MMULT(MOD(INT(2*ROW(1:1023)/2^COLUMN($A:$J)),2),TRANSPOSE($B5:$K5)))),MMULT(MOD(INT(2*ROW(1:1023)/2^COLUMN($A:$J)),2),TRANSPOSE($B5:$K5)),)/2^COLUMN()),2)}

[投稿情報: min]

とりあえずなんも意識せずにやった式
233{=--MID(TEXT(SUM(INT(MOD(MATCH($M8,MMULT(1^COLUMN($A:$J),TRANSPOSE($B5:$K5*MID(DEC2BIN(ROW(1:1023)/512)&DEC2BIN(MOD(ROW(1:1023),512),9),COLUMN($A:$J),1))),),2^ROW(1:10))/2^(ROW(1:10)-1))*10^(ROW(1:10)-1)),"0000000000"),COLUMN(A1),1)}
225{=--MID(TEXT(SUM(INT(MOD(MATCH($M8,MMULT(A1:J1+1,TRANSPOSE($B5:$K5*MID(DEC2BIN(ROW(1:1023)/512)&DEC2BIN(MOD(ROW(1:1023),512),9),COLUMN($A:$J),1))),),2^ROW(1:10))/2^(ROW(1:10)-1))*10^(ROW(1:10)-1)),"0000000000"),COLUMN(A1),1)}
無駄に長い。。

[投稿情報: jyo-3]

{=INT(MOD(MATCH($M8,((MOD(ROW($1:$1024),2)=1)*$K$6+(MOD(ROW($1:$1024),4)＞1)*$J$6+(MOD(ROW($1:$1024),8)＞3)*$I$6+(MOD(ROW($1:$1024),16)＞7)*$H$6+(MOD(ROW($1:$1024),32)＞15)*$G$6+(MOD(ROW($1:$1024),64)＞31)*$F$6+(MOD(ROW($1:$1024),128)＞63)*$E$6+(MOD(ROW($1:$1024),256)＞127)*$D$6+(MOD(ROW($1:$1024),512)＞255)*$C$6+(ROW($1:$1024)＞511)*$B$6),0),2^(12-COLUMN()))/2^(11-COLUMN()))}

あ、、、コピーしたら番地がずれた。

[投稿情報: ジョー3]

TRANSPOSE　？？？

うう、、、、ぜんぜん、、思いつかなかった。

使ったことなかったなーーーー

[投稿情報: ジョー3]

sakudaさんの
裏、、、すごいですねーーー

ｍａｂさんが、喜ぶと思います。

[投稿情報: からくち]

若しわたしが審査委員なら、、、この式は、、、却下

何故なら、、、
その答えを「偶然の一致」で得ているため
ただその偶然一致する確率が１００％近くあるだけ

故に解答では無く、、、単に参考？に過ぎません

=IF(SUMIF($B8:$K8,1,$B5)=$M8,B8,INT(RAND()*2))
反復を利用（32767）

[投稿情報: ジョー3]

＞ただその偶然一致する確率が１００％近くあるだけ

むーーーー、、
100回以上データを変えたけど、、、
数字がきちんと出てるーーー・・・・

あまりにも、、、美しすぎる。
・・・・・・・・

[投稿情報: ジョー3]

＞反復を利用（32767）

反復が、１０００でも、かなりいい線行きますから、、
３２７６７だと、、ほんと、、、
１００％近いですねーーー

[投稿情報: ジョー3]

あは、、、
３２７６７で、、、
しばらく遊んでみた。。

失敗が出てきた――ー
でも、、気に入りましたーーー

[投稿情報: jyo-3]

minmaxさんの、、うまくコピーできない・・・・
飲んだせいかなーーー

[投稿情報: y sakuda]

ジョー３の基本的な発想は私と同じですねーー
からくちさんのは、なるほど！なんですが、複数セルでこれやって上手く行くとは思わなかった＾＾；

>minmaxさんの、、うまくコピーできない・・・・
>飲んだせいかなーーー

飲んだせいじゃないです。
関数のネスティングが深すぎです。
2007でやられた見たいです。

[投稿情報: y sakuda]

minmaxさんのも両方共発想はジョー3や私と同じですね。
98っての早く見たいな＾＾

[投稿情報: ジョー3]

>2007でやられた見たいです。
あ、、ほんとだーーー

[投稿情報: y sakuda]

今回、ジョー３に早い！と言われましたが、実は手法が前回の「おいらの関数」とほとんど同じになってるんです。
ですから、問題見た瞬間に基本構想ができちゃったんです＾＾

裏についても、実は最初この問題が一致のみなのか、余りが出る場合も考えるのか、確信がなかった時点で頭のなかでは選択肢として考えてたので、工夫は最良解を選ぶとこだけでした。

[投稿情報: y sakuda]

ところで、
１．できるはずだけど、面倒くさいだけかもしれない
２．できるかどうか全く不明
という部類の問題でしたら、頭の中にはあるんですが、送りましょうか？
まだ形にしてないので、休み明け辺りになりますが・・・・・

[投稿情報: min]

疲れて寝てしまいました。
目が覚めたので

＞関数のネスティングが深すぎです。
そうでした忘れていました。

95と９８は
98{=--ISODD(MATCH($M8,MMULT($B5:$K5*ISODD(ROW(1:2048)/2^COLUMN($A:$J)),ROW(1:10)^0),)/2^COLUMN(A1))}
95{=--ISODD(MATCH($M8,MMULT($B5:$K5*ISODD(ROW(1:2046)/2^COLUMN($A:$J)),P1:P10+1),)/2^COLUMN(A1))}

[投稿情報: くまぷー]

みなさん、私をおいて遙か先に行ってしまわれたようです。
完全に取り残されてしまいました・・・(T.T)
ついて行けない・・・(T.T)

さて・・・

＞頭の中にはあるんですが、送りましょうか？

観客として観戦させて頂きます。
送ってみて下さい。
よろしくお願いします。m(__)m

[投稿情報: y sakuda]

なるほど、２００７だとOdd使えるのか・・・
２００３だと配列の中で使うと#Valueになっちゃうのであきらめちゃいました＾＾；

>くまぷーさん
今日、明日ちょっとたてこんでるので、遅くなるかもしれませんが、近日中に送付します。
ですから、今週お休みで来週のテーマになっちゃいそうです。
でも・・・・
１題は面倒なだけ、もう1題は多分無理っぽい・・・・・

[投稿情報: y sakuda]

↑訂正　Odd⇒IｓOdd

[投稿情報: くまぷー]

>１題は面倒なだけ、

(・〇・;)グェッ

＞もう1題は多分無理っぽい・・・・・

(;ﾟﾟ)ｳｯ!

[投稿情報: jyo-3]

＞もう1題は多分無理っぽい・・・・・

無理っぽいって言っても、思っても、
出来ちゃう恐ろしい方々が、、いっぱい、、

だから、、研究室ってこと、、とか・・・で、、
いいと思う、、、

[投稿情報: y sakuda]

意外と早く帰宅したので、「面倒なだけ」ってやつは作りましたので、送ります。
当然問題作っただけで、やってません。
最悪出題者解答も作らない可能性もありですｗ

[投稿情報: くまぷー]

sakudaさん、問題の送付ありがとうございます。
あれなら、解答不能と言うことはないですね。
如何にまとめるかが問題・・・(^^ゞ

[投稿情報: y sakuda]

>解答不能と言うことはないですね。
そうなんですが、自分でもやる気が起こるかどうかが大問題ｗ

[投稿情報: min]

>２００３だと配列の中で使うと#Valueになっちゃうのであきらめちゃいました＾＾；
ということなので、ISODD使わないでsakudaさんの式を改良して100以下にならないかちょっとやってみました。
結局102どまりでした。

[投稿情報: y sakuda]

>結局102どまりでした。
どこを改造したんだろ？
見せて！
#相当粘ったけど、107から削れませんでした＾＾；

[投稿情報: min]

２００３では検証してません。
もう少しで100切れるけどこれでやめます。

100{=N(MOD(MATCH($M8,MMULT($B5:$K5*(MOD(ROW(1:4092)/2^COLUMN($B:$K),2)<1),P1:P10+1),)/2^COLUMN(),2)<1)}

[投稿情報: min]

sakudaさんの式をもとに改良したのは間違いないけど、自分の式の考え方も混ぜてあります。

[投稿情報: min]

ちなみに、ctrl+shift+enterしなくても動くのか？
であれば98になる。

[投稿情報: y sakuda]

minmaxさんの2003でOK見たいです。
パット見なんで　<1なのかとか良く理解できてないですが、P1:P10+1でTransposeを外したのが効果大ということみたいですね。
1の10行1列の配列作るのに字数かけたら意味ないのですが、そこをうまくやってますねーー

[投稿情報: y sakuda]

>ちなみに、ctrl+shift+enterしなくても動くのか？
あれ？？
動きますね。なんでだろ？
いずれにしろ今晩もう寝ないとやばいので明日もう一度考えます・・・・がEnterで動く理由分かるかな？

[投稿情報: min]

＞Enterで動く理由分かるかな？
＞Transposeを外したのが効果大ということみたいですね。
実はISODDを使った式も{　}は不要でした。

[投稿情報: y sakuda]

>実はISODDを使った式も{　}は不要でした。
確認しました。本当ですね。

[投稿情報: ジョー3]

９８ですか？
すごいですねーー

午後時間があったら、研究したいほど、、
すっきりですねーーー