もう一つの「７人の美女」

元ネタはこちら

【´･ω･`】:y sakudaさんからVBAでの回答を頂きました。

---------------------------------------------------------------------------------------

一筆書きの方がどうにもならなかったのでプログラムを作ってみました。
一応、対称や回転で同形になるものは省くようにしてありますが、
回転のチェックが十分かどうか今一つ自信がありません。
（８Queenまでは目検で確認したつもりですがｗ）
本気でやるなら、本当に回転させてマッチングしてアルゴリズムの確認を
取ったりするところですが、遊びですので、"多分"レベルでそれ以上の検証
はしておりませんｗ

こちらは１シートに出てきた図形を並べてますので、13以上になると2003では
シートがパンクするので、１２×１２で打ち止めにしました。
もっとも、１３ではパンクした4700パターンでまだ先が長そうでした。
（時間的には１２でも10秒程度で終わりました）

書き流しみたいなものですので、あちこち怪しげな代物ですが、座興と思って
ご容赦ねがいます^^
　　　　　　　　　　　　　　　　　　　　　　　　　　　（y sakudaさん談）

NQueenV2.xlsをダウンロード

Comments

[投稿情報: くまぷー]

>一応、対称や回転で同形になるものは省くようにしてあります

処理が増えているはずなのに
以前のものに比べてかなり早くなっている・・・
シートをいちいち挿入しなくなったからなのか・・・

[投稿情報: y sakuda]

お手数をかけました
>シートをいちいち挿入しなくなったからなのか・・・

もちろんそうだと思います。

小さいボードでも、味がある図形が結構ありますが、12Qの1760、1762、1775,1776なんかは回転しても図柄が変わらないすぐれものです。
（4Q,5Q以外ではここまで出現しないみたいです）

[投稿情報: ジョー3]

面白くて、配置をじっと・・・・
見てしまった。

Ｎ（ナイト）の動きに沿って
Ｑが配置というのは、
４Ｑ、５Ｑにしかないんでしょうかね。

大ゲイマならあるんでしょうかね？

桂馬は白丸から白丸へ飛び（八方）
●○
●
○

大ゲイマは、
●○
●
●
○
白丸から白丸へ、（八方）

[投稿情報: y sakuda]

桂馬と言うわけではなく、４辺ともQのある位置が同じで、回転してもパターンが変わらないと言う意味です。
6Q以降はなぜか、12Qまで出現しないようです。