新・関数で出来ますか~？ 第8回 王手飛車！

【問題】　王・飛車(青色)はくまぷーの駒。

黒い角はあなたの駒。F9を押してください。

３枚の駒の位置が変わります。角が「王手飛車取り」の位置に

来たら、セルZ9に「王手飛車！」と表示させてください。

ただし、下図の場合は飛車取りではあるが王手ではないので除外する。

また下図の場合は王手ではあるが飛車取りではないので除外する。

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

※解答用参考ファイルの拡張子zipをxlsxにしてお使いください。

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

解答発表は8/12（土）8/14(月）　8/19(土）の２０：００です。それまでは直接数式を

書き込むこと・ポイントとなる関数名を書き込むことはご遠慮ください。

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

★sakudaさんからチエック用のファイルを頂きました。

お使いください。

20170811VBAをダウンロード

マクロ入り回答シートの使用法  
  
 １．問題シートコピーボタン 
  ボタンを押すと、ブックの最後に新しい問題シートが追加されます。
  この際、現在のシートをそのままコピーしますので、回答欄の式やその他に入れたゴミもそのままになります
  従って、不要なものは手動で消してください。
  
 2．実行開始ボタン 
  チェックを開始します。
  ①チェック回数はループ回数欄で指定できます。
  ②上限は特にありませんが、空欄のままだと1000とみなします。
  　（画面の更新を殺してありませんので、1000回ですと1分くらいかかります）
  ③「王手飛車で停止」にチェックが入っていると、王手飛車のところでコードの実行を終了します。
  ④「誤判定無視」にチェックが入っていると、誤判定が起こってもそのまま継続します。
  　（チェックがない場合、ダイアローグが出て、続行と終了を選択できます。）
  ⑤チェック対象はZ9セルのみです。またチェックの際何か文字が入っていれば、王手飛車！とみなします。
  　（！が漢字でもアスキーでも良いようにしたためです。　極端な話、X一文字でも王手飛車！入っているとみなします）

 



　　　　　　　　　　　　　　　　　　　

Comments

[投稿情報: くまぷー]

まだ自分では解答を作っていません。
よろしくお願いいたします。

[投稿情報: y sakuda]

これ、結構面倒くさい。
>ただし、下図の場合は飛車取りではあるが王手ではないので除外する。
飛合になってる判定が入ると簡単にできるかな？

それから、角が王で取れる位置にいる時も、王手飛車の扱いでいいんでしょうか？

[投稿情報: くまぷー]

角が即、取られても一応、王手なので可です。

[投稿情報: y sakuda]

>角が即、取られても一応、王手なので可です。
これ、不可だったら何がどうなるか分かんないですね――

でとりあえず作って見ました。一列かつ王手、飛車取のみの除外条件が面倒で、なんと351と長大になりました。
もちろん、式を条件毎に作って組み合わせたので無駄があるのは明らかなんですが、それをきちんと整理して組みなおすのも面倒くさくてやる気になんないと言う代物です^^

[投稿情報: y sakuda]

布団入っても眠れずにあれこれ考えてたら、判別式ややこしいことやりすぎてるのに気が付いて、307
300は切りたかったんだけど・・・・

[投稿情報: くまぷー]

sakudaさん、お早うございます。
この「王手飛車！」、F9を押下していても
なかなか、王手飛車取り状態にならないので
1万回連続チエックマクロを作成していただければ
助かります。お時間があれば、よろしくお願いします。m(__)m

それでは、練習試合のため、体育館に・・・
世間は山の日で、休みだというのに・・・(T.T)

[投稿情報: min]

やってみました。

とりあえず、、できませんでした。。

[投稿情報: jyo3]

今日は午前、時間がありました。
気になりつつやってなかった、、

自分の、最初の問題が・・・・
ようやくできましたので、、、、

そのうち、他のくまぷーさんの、、、
変化問題を、、、やってみます。

でも、疲れたので、、、558文字
元気が出て、、時間が出来たら・・・ってことで、、、

あ、でも、、、くまぷーさんの、、3問は、、、答え合わせ、、明日でしたね、、、
まとめられるかなーーー・・・・

[投稿情報: y sakuda]

明け方、ふと目がさめ、脈絡もなにもなく頭かすめたムダが気になりやってみたら
288
最初のに比べると、大分すっきりしました。

[投稿情報: y sakuda]

＞1万回連続チエックマクロを作成していただければ

なかなか出ませんから私は盤面の式を消したシートで手動で駒いれて式作ってました。
どういう形のものが良いのか考えて作って見ます。

[投稿情報: y sakuda]

マクロの本体はとっくにできてるんですが、こういうの始めると使いがってとか凝りだすんで、改造が終わらなくなるｗ
どうせくまぷーさん夕方まで部活商売でしょうからもう少しいじって7時頃には簡単なマニュアルつけて送ります^^

しかし、できたって人他に出てこないですねーー

[投稿情報: jyo3]

ただいま帰りましたけど、、、
>しかし、できたって人他に出てこないですねーー
そかそか、、、
では、、、やってみます。

[投稿情報: jyo3]

作ってみました。229文字・・・・
ん、、、、200回ぐらいＦ９

・・・・・・・・・・・・・・
王手飛車が、、、、、出ません。

がくっ・・・・どおしましょ・・・・
判定・・・・

[投稿情報: jyo3]

続けて100回ぐらい・・・
・・・・・・・・・・・・・・・・
きたーーー
・・・・・・王手飛車！・・・・・

怖いから、Ｆ９・・・もうやめようかなーーー、、、

、、、もう1回だけ・・・見たいなーーー

[投稿情報: y sakuda]

＞229文字・・・
はるかにぶち抜かれた^^
100回に1回前後の割で出る感じです。

くまぷーさんまだ見たいだからメールアドレスEWのメッセージで送ってくれればマクロ入りシート直送しますよーー

[投稿情報: jyo3]

>くまぷーさんまだ見たいだからメールアドレスEWのメッセージで送ってくれればマクロ入りシート直送しますよーー
・・・・・・・・・・・・・？？？？
怖いから、・・・・も、、ちょっと、、、、考えてからにしますーーー。

・・・・・・
有難うございます。、、です、、、けど、、ね、、、、

[投稿情報: y sakuda]

結構王手飛車出るんですけどね
数回でいきなり出ることもありますよ^^

[投稿情報: y sakuda]

カミさん娘と飯食ってくるから、何とかしろってメールしてきたんで食事にでますので、7時過ぎまで消えちゃいまーーす。
そこ頃にはくまぷーさん帰ってそうだな

[投稿情報: くまぷー]

>そこ頃にはくまぷーさん帰ってそうだな

帰ってきました。
よろしくお願いいたしますm(__)m

[投稿情報: くまぷー]

sakudaさんから頂いたファイルをアップしました。有り難うございます。

＞食事にでますので

私もこれから、一息つきます。

[投稿情報: jyo3]

>数回でいきなり出ることもありますよ
ですよねーーー

で、500回ほど・・・Ｆ９

６，７回・・・正常判定・・・・
誤判定は、、、なし。・・・

うむーーー、、、いいのかなーーー

[投稿情報: y sakuda]

＞うむーーー、、、いいのかなーーー
是非チェックプログラムを使用してください。

私のは基本的には角の式を使ってます。
一列に斜めに並んでるのを判定しているのも、その応用でそこが結構長くなっており、とてもじゃないが200の前半までは減りそうもないです。
ジョー3の楽しみです。

[投稿情報: y sakuda]

何度か回してみましたが、やはり平均すると1000回で王手飛車10回前後が多いですね。
しかし、1000回で4~5回って時もあるんで、出ないとなったら本当に出ない。

王手飛車にならない、各筋に3個並ぶってパターンは王手飛車の回数の一割くらいみたい。

[投稿情報: y sakuda]

＞王手飛車の回数の一割くらいみたい。
訂正。ずっと多いですね。大手飛車の回数の5~8割くらい発生してますねーー
1000回で大手飛車の回数より多いなんてこともあった^^

[投稿情報: jyo3]

うーーん、、、

王手飛車と、、、、

角　　問題と、、、、

飛角竜馬　問題は、、、

・・・・・・・・・・・・・・・
似てますねーーー、、、

私の場合・・・・・エンジンは同じ。、、、かも、、、知れない。

呑んだせいかも・・・

[投稿情報: y sakuda]

何も思いつかないので、3回程一万回試行をやって見ました。その結果
王手飛車　89回、100回、108回
一直線に駒が並んで、大手飛車にならない回数　46回、47回、52回
でした。　参考まで。

しかしジョー3、229ってどうやったんだろうな。これまでの経験で言えば、今私がやってるような構成はジョー3まずやりそうもない。
例によってややこしいことやりすぎてシンプルな方法見落としてるんだろうな・・・・
私のは、駒が3個直線で並んでるかどうかの判定が長くなってます。

[投稿情報: jyo3]

3個？？？
構成？？？

へーーー

わかんない

あとで、、考える。

かも、、、

[投稿情報: くまぷー]

疲れて寝てしまい、今目が覚めました。(^^ゞ

＞駒が3個直線で並んでるかどうかの判定が長くなってます。

同じです。そこだけで300越えです。

＞3個？？？

角が王と飛車に挟まれているときは王手飛車だけど
そうでないときは、王手飛車にならない・・・

[投稿情報: y sakuda]

くまぷーさんと発想は同じみたいな感じですね。
私の場合、
１．角筋に駒が二つあるか
２．一列にならんでるか
３．角が中央にあるか
と言う３パートがあり、それぞれが相当長いので300近くになってます。
使ってる関数ジョー3ほとんど使わないし、好みじゃないはずなんでジョー3の角筋判定が謎です。
私は見当もつかないんだけど、からくちさんが角の判定は基本47っておっしゃってるんでそっちの方向だと思うんですけどね。

しかし、maronさんも出て来てないし、minさんもできてないらしいですけど、これも土曜日に答え合わせするんですかね？

[投稿情報: くまぷー]

>これも土曜日に答え合わせするんですかね？

延期しましょう。ちょっと無理ですね。
私もまだできていないし・・・

[投稿情報: jyo3]

王飛角竜馬王　　での

王　角竜
の配置や、
角
馬飛
　角王　　　の配置

と、同じような、、
理屈で・・・解けると思います。

[投稿情報: jyo3]

＞王飛角竜馬王　　での

間違い・・・です

王飛角竜馬　　　です。

極論、、、、
王飛角竜馬　　　問題が、、、解決すると・・・
この問題も、、、その手で、できると、思います。、、けど、、

王飛角竜馬　　５５８
も
この問題　　　２２９

どちらも、、、短縮は、、、
一切考慮してません。　

短縮の得意な min さんなら、、
きっと、かなり減ると思います。　・・・文字数。

[投稿情報: くまぷー]

>王飛角竜馬　　　問題が、、、解決すると・・・
>この問題も、、、その手で、できると、思います。、、けど、、

では、第8回の締め切りを再度、延期して
「王飛角竜馬問題」と合わせましょう。

[投稿情報: y sakuda]

>王飛角竜馬
まだ考えてないんですが、これまでので、できることできないことが結構はっきりしてきてますので、そろい踏みになるとどこから手を付けて良いか分からなくなってます。
この場合も、筋に駒があるとダメってのは分かり切ってるんですが、大手飛車で実際にやってみるとものすごく面倒臭い。
もちろん、大手飛車のように、両方当たりにならなきゃいけない訳じゃないですので違いはあるんですが・・・・・
王の位置を特定して隣接のマスをチェックする良い手が見つかりゃ何とかなるんでしょうが、そこまで行きつくのか^^

[投稿情報: jyo3]

sakuda さんの判定プログラム・・・
・・・・・・
２２９には、理屈的には自信があったが、、、
・・・・・・・・・・・・・・
恐る恐る、、、、コピーして・・・判定！！
・・・・
結果は、、、、、誤判断！！　が、、、出ました！！

あせりました！！

コピーを、、、間違えた
　　

で、、、きちんと、、、したら、、、、
・・・・
あーーーよかった。

[投稿情報: jyo3]

王手飛車で、、停止

これ、、、いいです。

いろいろなパターンを、見れて面白いです

角が５５（中央）にあるのが、、一番多いのかなーーー
とか、、、見てるだけで、、楽しいです。

[投稿情報: jyo3]

>では、第8回の締め切りを再度、延期して
>「王飛角竜馬問題」と合わせましょう。

>そろい踏みになるとどこから手を付けて良いか分からなくなってます。

わたしは、どちらでも良いです。

別手法のものを出しますので・・・・
（作れたらね・・・頭には・・・構想だけ）

あ、、、
そういえば、、、
王手飛車問題だけでなく、、、

ほかのやつ、、、
そそ、、、
飛車問題も、、、
角問題も、、、、

飛角竜馬　　問題の、、、
部品で、、、出来てるんだった。

5時から、、、時間ありそうなら、、、別案、、頑張る。

[投稿情報: jyo3]

あ、、、あと、確認ですけど、、、

出題者回答例は、、、、

飛車問題
角問題
王手飛車問題は、
くまぷーさんで、、、

私は、
最初の送ったやつ（飛角竜馬ぜーんぶ出るやつ）
だけで、、、いいですね、、、解答例はね、、、

[投稿情報: くまぷー]

>出題者回答例は、、、、

>飛車問題
>角問題
>王手飛車問題は、
>くまぷーさんで、、、

了解しました。
とりあえず、今日の分飛車と角の準備をします。

[投稿情報: くまぷー]

答え合わせ、ちょっとお待ちを。
解説に間違いがあって修正しています。

[投稿情報: y sakuda]

王手飛車も私はデータエリアは使ってないんですが・・・・・
飛角龍馬そろい踏みになるとできるかなーー
こだわるつもりで居るんですが、良い手を思いつかないです。

[投稿情報: y sakuda]

>コピーを、、、間違えた
www

>王手飛車で、、停止　これ、、、いいです。
ありがとうございます。

あのプログラム、本来の王手飛車チェックだけなら30分もかかってないんですが、それじゃ芸がないんで、使いがってだとか結果表示の方法考えて凝りだしたらドツボにはまっちゃいました。
それも本質に関係ないところで・・・・
①フォームのチェックボックスは直接参照できないらしいこと忘れてた⇒シートのどこかにチェック結果が入るため式によってはゴミが悪さする可能性がある
②でチェックボックスをActiveX（ユーザーフォームでつかうやつ）に替えたら、シート上にActiveX置いた時の参照の仕方まるっきり忘れてて大汗をかいた
③元々ユーザーフォームはまともなアプリ作るときにしか使わないのでもう2年くらいちゃんと使っておらず、基本的な約束事全部わすれてたｗ
で、そんなんで数時間ムダにした上、作ってみるといろいろ気に入らず、修正また修正でほぼ一日かかっちゃった。

腕が錆びついてるなんてもんじゃないですねーー

[投稿情報: y sakuda]

飛角龍馬がそろった奴、多少問題を推測しながら盤面だけで可能かどうか考えてみました。
可能であることは確信がありますが、1000越えるじゃないかと思います。
後にも先にもExcel初めてからそんな長い式作ったことないｗ
あたりまえですけどねーー

[投稿情報: jyo3]

詰将棋の世界では、、1000手越え、、、、いっぱい

あるよ、、、

まけてられん、、、、
わたしらもね、、、、、、

[投稿情報: y sakuda]

>詰将棋の世界では、、1000手越え、、、、いっぱい
話は聞いたことあるけど＾＾
しかし、本当に一意になってるのかどうか検証が大変そう
後、本で見たことあるんだけど、煙づめっていうんでしたっけ、詰んだときには駒がすべて消えちゃうってやつ。
もちろんそんなの自分じゃやってみてもいないですけどねーー
自分でやったことあるのはせいぜい13手づめくらいでしょうねーー

後、飛筋と角筋の邪魔な駒の判定がヤバソウ。本番では最低駒が5個ありそうだから、王手飛車のはそのままじゃ使えないからどうなるかなーー

[投稿情報: jyo3]

>判定がヤバソウ。
そのへん、、、

それが、、面白いのだ、、、、

わたしの、、、勝負！！・・・・・・・・

勝っても、負けても・・・・嬉しい、、ね、、

[投稿情報: y sakuda]

1000超なんてことになったら、勝負とかなんとかじゃなくて、できれば満足^^
多分、ダイエットなんかしようとしたとたんに動かなくなりそうｗ