【´・ω・`】:y sakudaさんからVBAでの回答を頂きました。
---------------------------------------------------------------------------------------
一筆書きの方がどうにもならなかったのでプログラムを作ってみました。
一応、対称や回転で同形になるものは省くようにしてありますが、
回転のチェックが十分かどうか今一つ自信がありません。
(8Queenまでは目検で確認したつもりですがw)
本気でやるなら、本当に回転させてマッチングしてアルゴリズムの確認を
取ったりするところですが、遊びですので、"多分"レベルでそれ以上の検証
はしておりませんw
こちらは1シートに出てきた図形を並べてますので、13以上になると2003では
シートがパンクするので、12×12で打ち止めにしました。
もっとも、13ではパンクした4700パターンでまだ先が長そうでした。
(時間的には12でも10秒程度で終わりました)
書き流しみたいなものですので、あちこち怪しげな代物ですが、座興と思って
ご容赦ねがいます^^
(y sakudaさん談)
最近のコメント