関数で出来ますか～？ 第343回 角の利き筋

角が効いているマスの数を数えてください。
最大16ですが、飛車が邪魔すると・・・
もちろんAA列より右は参照不可です。
ただし４セルまでのワークエリアの使用はみとめます。
もちろん、１セルでやってもかまいません。
注．将棋盤の色や正解が変わらなくなった場合は、終わらせて改めて開くか、
開発⇒マクロ⇒EVStartを起動してください。

　　　　　　　　　　　　　　　　　　　　　　　　　（y sakudaさん）

解答用参考ファイル： 20200627をダウンロード

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

出題者を含めて４名の方の解答作成完了宣言の後に、このスレに直接解答式をお書きください。

この問題に関しては解答用の別スレは作成いたしません。

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

Comments

[投稿情報: くまぷー]

いよいよ、在庫も少なくなってきました。

[投稿情報: y sakuda]

これ、面倒なだけでつまらないです・・・・

問題ですが、ジョー３の酔っ払いシリーズが後二つあるんでは？

[投稿情報: くまぷー]

あと一つです。
３作目は来ていません。

[投稿情報: y sakuda]

あれ？2作目をminさんがチェックして3作目を私がチェックしたはずですが？

[投稿情報: くまぷー]

＞あれ？2作目をminさんがチェックして3作目を私がチェックしたはずですが？

その後、音沙汰無しです。

[投稿情報: ｎｉ]

えーっと、飛車の時はどうやったんだっけ？？？＾＾

[投稿情報: ｎｉ]

単なる角の効き筋だけでもややこしい

[投稿情報: ｎｉ]

とりあえず作業セル使って210ってのが出来たのですが、
チェックプログラムで1回目エラーになってしまいます。
正解の値と回答の値はあっているのでVBAのチェックがおかしいと思うのですが・・・
ダウンロードしたファイルはv4です。

[投稿情報: y sakuda]

＞ダウンロードしたファイルはv4です。
最後に送ったのはV5のはずです。何が悪かったのか覚えてませんが^^;

[投稿情報: くまぷー]

＞最後に送ったのはV5のはずです。

すみません。V5がありました。
差し替えました。申し訳ありません。m(__)m

[投稿情報: min]

条件設定が多くて、面倒ですね。。
とても頭では考えきれないですね。
地道にやるしかないかな。
結構疲れるかも。

何か画期的な方法があるのか？

[投稿情報: min]

とりあえずやってみた。
sakudaさんのチェックは通ったので、

２５５でした。

ここから10以上は減らせるかもしれないですが、疲れました。

出かけるので、、
出題期間が長引けはもう少しやるかもしれませんが

一応終了ということでお願いします。

とりあえずやった式は
解答欄１３３
作業セル
３２が２セル
２９が２セル
作業セルも減らせますが頭が混乱するのでとりあえずこのまま。

[投稿情報: min]

ところで、問題作ったほうがいいのかなあ？

変な問題しかつくれないけど。。

[投稿情報: y sakuda]

私はこれ、ワークセル使った式はまだ作ってないんですが、1セルで340台が最短だったはずです。
1セルの式はもう短縮難しいはずだけど、式見てもさっぱりなにやってるのか分からないｗｗｗ

[投稿情報: くまぷー]

★終了宣言
1.　minさん
2.　
3.　
4.　

＞ところで、問題作ったほうがいいのかなあ？
＞変な問題しかつくれないけど。。

よろしくです。１００字未満で収まるのがいいな・・・

[投稿情報: ｎｉ]

無事チェックを通りました＾＾
作業セル使って204

[投稿情報: y sakuda]

完全にどうやってたか忘れてしまって、問題作った時の式やっと解読して整理しました。

１セル319
ワークセル使用192
です。

[投稿情報: y sakuda]

私は何時終了でも可です。

[投稿情報: くまぷー]

＞私は何時終了でも可です。

★終了宣言
1.　minさん
2.　sakudaさん
3.　
4.　

[投稿情報: y sakuda]

ワークエリア使用は182にできた。

[投稿情報: ｎｉ]

作業セル使用で194になりました。{}が5組も必要（＞＜）

[投稿情報: ｎｉ]

列参照にするとあと6減るのですが、激重＾＾；

[投稿情報: y sakuda]

>列参照にするとあと6減るのですが、激重＾＾；
でしょうねｗ
私は１セルもワークエリア使用も列参照はありません。

[投稿情報: くまぷー]

いい手が浮かびません。

[投稿情報: ｎｉ]

192できました。
sakudaさんの182と同じかな？

[投稿情報: y sakuda]

私も192から182になったから基本同じでは？

[投稿情報: ｎｉ]

静かですね
｛｝付の192で終了です

[投稿情報: くまぷー]

＞｛｝付の192で終了です

★終了宣言
1.　minさん
2.　sakudaさん
3.　niさん
4.　

からくちさん、maronさん、ジョー３さんのお三方が
全然、現れないし、私もダメそうなので
今日、様子を見て「解禁」でもいいですかね？

[投稿情報: y sakuda]

よろしいのでは？

[投稿情報: くまぷー]

では午後８時を目途に・・・

[投稿情報: y sakuda]

＞私もダメそうなので
結局飛車と同じ話みたいなものなんで、ワークセル使えば簡単なんですが？
1セルの場合も整理出来ちゃえば長くなるだけで難しくはないです。

[投稿情報: くまぷー]

＞整理出来ちゃえば

年々、根気が・・・(^^ゞ

[投稿情報: くまぷー]

＞では午後８時を目途に・・・

★終了宣言
1.　minさん
2.　sakudaさん
3.　niさん

４人揃いませんが解禁です。m(__)m

[投稿情報: ｎｉ]

では、
O6 {=MAX((B3:J11="飛")*ROW(1:9))}
O7 {=MAX((B3:J11="飛")*B2:J2)}
P6 {=MAX((B3:J11="角")*ROW(1:9))}
P7 {=MAX((B3:J11="角")*B2:J2)}
M6 {=16-2*MAX(ABS(P6:P7-5))-((O6-P6)^2=(O7-P7)^2)*MIN(SIGN(P6:P7-O6:O7)*(O6:O7-5)+5)}
29+26+29+26+82=192　でした。

[投稿情報: くまぷー]

M6,上手くまとめていますね～
力の差を感じます。

[投稿情報: y sakuda]

niさんの192は私と同じです。　｛｝がないだけでー10と言うことです。
従って、１セルの式、319です。
=16-MAX(ABS(MID(MAX((B3:J11="角")*(ROW(1:9)&B2:J2)),{1,2},1)-5))*2-(MMULT({1,-1},MMULT((0&MID(LARGE((B3:J11>"")*(ROW(1:9)&B2:J2),{1,2}),{1;2},1))*1,{1;-1})^2)=0)*MIN(ABS(10*(MOD(MAX((ROW(1:9)&CODE(B3:J11&0))*1),10)=8)-MAX((B3:J11="飛")*ROW(1:9))),ABS(10*(MOD(MAX((B2:J2&CODE(B3:J11&0))*1),10)=8)-MAX((B3:J11="飛")*B2:J2)))

[投稿情報: y sakuda]

あっ、M6の式、趣旨は同じですが、ちょっと違うので出しておきます。
=16-MAX(ABS(O6:O7-5)*2)-((O6-P6)^2-(O7-P7)^2=0)*MIN(ABS((P6:P7>O6:O7)*10-P6:P7))

[投稿情報: ｎｉ]

＞((O6-P6)^2-(O7-P7)^2=0)
は
((O6-P6)^2=(O7-P7)^2)
で2個減りますね。

[投稿情報: y sakuda]

>((O6-P6)^2=(O7-P7)^2)で2個減りますね。
あっ、気が付かなかった^^;

[投稿情報: min]

一応やったということで。

100{=16-MAX(ABS(O6:P6-5))*2-OR(O6-O7-P7+P6=0,O6-O7+P7-P6=0)*MIN(IF(O6＜O7,10-O7,O7),IF(P6＜P7,10-P7,P7))}

O6=26{=SUM((B3:J11="角")*B2:J2)}
P6=29{=SUM((B3:J11="角")*ROW(1:9))}
O7=26{=SUM((B3:J11="飛")*B2:J2)}
P7=29{=SUM((B3:J11="飛")*ROW(1:9))}

計210

でした。

[投稿情報: y sakuda]

まあ、飛車の時から分かってたようなものですが、結局これも特に良い手がないってことですね・・・・