閑話・・・数字パズル、数独をVBAマクロで解く

　いわゆるコンピュータゲームはあまり好きではないが、マインスィーパー（地雷ゲーム）やgooの数字パズルのようにルールが単純で推理が複雑なゲームはいい。地雷ゲームなどはハイスコアー（最短時間）を更新しようとするあまり時折のめりこんでしまうことがある。地雷の在り処を最後までマークしないまま推理していく方法をとっているので余計に頭を使う。

　数字パズルの方はハイスコアーの記録が残らないので記録更新のワクワク感がないが１０分間の時間制限を超えるとゲームオーバーとなってしまう。たまに残り１枚でゲームオーバーということもありこんな時は非常に悔しい思いをする。

　購読している朝日新聞の土曜版にも「数独」という数字パズルが出題されていて問題と前週の回答が掲載されるので毎週土曜日を楽しみにしている。
こちらの方は時間制限がない代わり難易度に５段階ある。
ルールは至極簡単。９ｘ９の升目があり、縦一列、横一列、および３ｘ３のブロックで１～９の数字を重複しないように入れてゆく。
あまりの単純さにVBAマクロで解答プログラムを組んでみた。


※プログラム（部分）


まず、数字が不明の欄に”１２３４５６７８９”をいれて置き、数字が判っている欄の縦１列、横１列、該当ブロックからその数字を消してゆく。たとえば３列目の４行目が”５”だとすると３列目すべての欄、４行目すべての欄、および１列目の４行目から３列目の６行目にかけたブロックすべての欄から”５”を消す。

この操作を数字が判っているすべての欄で繰り返す。

この操作が終わったら縦１列、横１列、該当ブロックごとに１個しかない数字を探し出す。これが解答の数字。

新たに数字が判ればまた前の操作でやったようにその数字を縦、横、ブロックごとにで消してゆく。


※実例　（６／２付け朝日の問題で）

問題のデータを投入。１個づつ丁寧に投入する。
　

スタートをクリックしてプログラムを起動するとあっという間に解答が出る（この問題では約３秒）
　　



　この問題は難易度５のうちの３番目。このプログラムでは難易度４まではまず解ける。難易度５の問題はもう一工夫必要だ、たとえば２と５の組み合わせが縦、横、ブロックのいずれかに２箇所しかないとその２箇所が２か５ということになり、その２箇所の欄以外は２あるいは５が消せる。簡単だがプログラム化するとなると非常に難しい。

人間ならこの見分けを難なくやれる。コンピュータの性能アップは目覚しいが、こうして人間の判断をプログラム化しようとすると改めて人間の能力のすごさを感じられずにはいられない。