はじめに
Algorithm X と Dancing Links は、クヌース先生が考案された Exact Cover Problem という問題を解くためのアルゴリズムとデータ構造です。今回は簡単な「敷き詰め問題」を例題にして Algorithm X について説明します。
●敷き詰め問題
パズルの世界では正方形を 2 個つないでできる図形をドミノ (domino)、3 個つないでできる図形をトロミノ (tromino)、4 個つないでできる図形をテトロミノ (tetromino)、5 個つないできる図形をペントミノ (pentomino) と呼びます。トロミノはトリオミノと呼ばれることもありますが、本稿ではトロミノと書くことにします。
トロミノには次に示す 2 種類の図形があります。
ここで、トロミノの L-Block (L トロミノ) を n * n の正方形に敷き詰めることを考えます。n が 3 の倍数の場合、n * n は 3 で割り切れるので、L トロミノで敷き詰めることができそうです。ただし、3 * 3 の場合はできません。n mod 3 が 1 または 2 の場合、n * n は 3 で割ると 1 余る [*1] ので、L トロミノで敷き詰めることはできませんが、n * n の正方形から一片の正方形 (1 * 1) を取り除いた図形には敷き詰めることができるかもしれません。たとえば、4 * 4 - 1 の場合、次のように敷き詰めることができます。
参考 URL 1 によると、『一般に一辺が 2 ^ n のとき、L-トロミノで敷き詰められる』 とのことです。この場合、取り除く一片の位置はどこでもかまいません。それ以外の場合、たとえば 5 * 5 - 1 や 7 * 7 - 1 は L トロミノで敷き詰めることができるのでしょうか。プログラムを作って確かめてみましょう。
[*1] m = 1, 2, 3, ... とすると、(3m + 1) * (3m + 1) = 9m^2 + 6m + 1 = 3(3m^2 + 2m) + 1, (3m + 2) * (3m + 2) = 9m^2 + 12m + 4 = 3(3m^2 + 4m + 1) + 1 となり、どちらも 3 で割ると 1 余ることがわかります。
●Exact Cover Problem
盤面が 4 行 4 列の場合、L テトロミノの置き方は下図に示すように 36 通りあります。
0 番目の正方形を取り除くとすると、L テトロミノの置き方は 33 通りあります。そこから 5 つの L テトロミノを選び、盤面に配置できるか調べればいいわけです。チェック方法も簡単です。L テトロミノを重なり合うことなく配置するわけですから、5 つのテトロミノの和集合を求めると、1 から 15 までの数字がちょうど一つずつ揃うことになります。一つでも数字が欠けていれば、重なり合っている部分があるわけです。
参考 URL 2 によると、このような問題を Exact Cover Problem と呼ぶそうです。ここで Exact Cover Problem について簡単に説明しておきましょう。
集合 X とその部分集合からなる集合 S において、集合 S の部分集合 S* を考えます。このとき、S* が X のすべての要素を含んでいて、それが重複することなくちょうど一つずつあることを Exact Cover といいます。
簡単な例を示しましょう。次の図を見てください。
X = {1, 2, 3, 4, 5}
S = {A, B, C, D, E, F}
A = {1, 2}
B = {2, 3}
C = {3, 4}
D = {1, 5}
E = {5}
F = {2}
S* を {A, C, D} とすると、X の要素をすべて含んでいますが、要素 1 が重複しているので Exact Cover ではありません。S* = {A, C, E} とすると X の要素が重複することなくちょうど一つずつ含まれているので Exact Cover になります。同様に、S* = {C, D, F} も Exact Cover です。
Exact Cover を求める簡単な方法は、S* の組み合わせをすべて試してみることです。というよりも、基本的にはそれしか方法がないのです。S の要素数が n 個ある場合、調べる組み合わせの総数は nＣ1 + nＣ2 + ... + nＣn = 2n - 1 通りにもなります。Exact Cover Problem は 巡回セールスマン問題 と同様に n が大きくなると解くのが大変困難になる問題なのです。
●プログラムの作成 (1)
もちろん、問題によっては調べる組み合わせの総数を減らすことができる場合もあります。今回の L テトロミノの敷き詰めの場合、配置する L テトロミノの個数は盤面の大きさで決定することができます。0 番目の正方形を取り除く場合、調べる組み合わせの総数は次のようになります。
4 * 4 : 33Ｃ5 = 237336 5 * 5 : 141Ｃ8 = 3165326793495 7 * 7 : 321Ｃ12 = 2029286708447775708880
どうやら、単純に組み合わせを生成して試してみる方法では解けそうにもありません。そこで、組み合わせを生成するとき、重複する要素をチェックして枝刈りすることにします。Python でプログラムすると、次のようになります。
リスト : L トロミノの敷き詰め
# L トロミノの生成
def makeLtromino(w, h):
tbl = []
for x in range(0, w - 1):
for y in range(0, h - 1):
z = y * w + x
tbl.append([z, z+1, z+w ])
tbl.append([z, z+1, z+w+1])
tbl.append([z, z+w, z+w+1])
tbl.append([ z+1, z+w, z+w+1])
return tbl
# 部分集合の判定
def isSubset(xs, ys):
for x in xs:
if x not in ys: return False
return True
# 等値の判定
def isEqSet(xs, ys):
return len(xs) == len(ys) and isSubset(xs, ys)
# 重複要素があるか
def isDuplicate(xs, ys):
for x in xs:
if x in ys: return True
return False
# 組み合わせの生成
def combination(fn, zs, xs):
a = []
b = []
def comb(i):
if isEqSet(zs, b):
fn(a)
elif i < len(xs):
if not isDuplicate(xs[i], b):
a.append(xs[i])
for x in xs[i]: b.append(x)
comb(i + 1)
for _ in xs[i]: b.pop()
a.pop()
comb(i + 1)
comb(0)
# L トロミノの敷き詰め
# n * n - 1
def solverLtromino1(n, m):
c = [0]
def counter(xs):
if c[0] == 0: print(xs)
c[0] += 1
#
tbl = [xs for xs in makeLtromino(n, n) if m not in xs]
zs = [z for z in range(0, n * n) if z != m]
combination(counter, zs, tbl)
return c[0]
# n * n
def solverLtromino(n):
c = [0]
def counter(xs):
if c[0] == 0: print(xs)
c[0] += 1
#
tbl = makeLtromino(n, n)
zs = range(0, n * n)
combination(counter, zs, tbl)
return c[0]
組み合わせを生成する関数 combination() で、集合 (リスト) を一つ選択するときに今まで選択した集合の要素と同じものがないか関数 isDuplicate() でチェックします。あとは特に難しいところはないと思います。
●実行結果 (1)
それでは実行してみましょう。Python3 では時間がかかるので、今回は PyPy3 を使うことにします。PyPy は Python の実装の 1 つで、JIT により標準の Python よりも高速に動作します。
- PyPy (本家)
PyPy は上記公式サイトからダウンロードすることができます。また、少し古いバージョンになりますが、Ubuntu 20.04 LTS の場合、次のコマンドでインストールすることができます。
$ sudo apt install pypy3
$ pypy3 --version Python 3.6.9 (7.3.1+dfsg-4, Apr 22 2020, 05:15:29) [PyPy 7.3.1 with GCC 9.3.0]
実行環境は Ubuntu 20.04 LTS (WSL1), Intel Core i5-6200U 2.30GHz です。
>>>> solverLtromino1(4, 0) [[1, 4, 5], [8, 12, 13], [6, 9, 10], [2, 3, 7], [11, 14, 15]] 1 >>>> solverLtromino1(4, 1) [[0, 4, 5], [8, 12, 13], [6, 9, 10], [2, 3, 7], [11, 14, 15]] 1 >>>> solverLtromino1(4, 4) [[0, 1, 5], [8, 12, 13], [6, 9, 10], [2, 3, 7], [11, 14, 15]] 1 >>>> solverLtromino1(4, 5) [[0, 1, 4], [8, 12, 13], [6, 9, 10], [2, 3, 7], [11, 14, 15]] 1 >>>> solverLtromino1(5, 0) [[5, 6, 10], [15, 20, 21], [1, 2, 7], [11, 12, 16], [17, 18, 22], [3, 4, 8], [9, 13, 14], [19, 23, 24]] 8 >>>> solverLtromino1(5, 1) 0 >>>> solverLtromino1(5, 2) [[0, 1, 5], [6, 10, 11], [15, 16, 20], [17, 21, 22], [7, 8, 12], [3, 4, 9], [13, 14, 18], [19, 23, 24]] 16 >>>> solverLtromino1(5, 6) 0 >>>> solverLtromino1(5, 7) 0 >>>> solverLtromino1(5, 12) [[0, 1, 5], [6, 10, 11], [15, 16, 20], [17, 21, 22], [2, 3, 7], [4, 8, 9], [13, 14, 18], [19, 23, 24]] 32 >>>> solverLtromino(6) [[0, 1, 6], [7, 12, 13], [18, 19, 24], [25, 30, 31], [2, 3, 8], [9, 14, 15], [20, 21, 26], [27, 32, 33], [4, 5, 10], [11, 16, 17], [22, 23, 28], [29, 34, 35]] 162
4 * 4 盤はどの正方形を取り除いても敷き詰めることができます。5 * 5 盤の場合、取り除く位置によっては敷き詰めることができません。6 * 6 盤は敷き詰めることができて、解の総数は 162 通りとなりました。
ただし、このプログラムはとても遅いです。4 * 4 盤と 5 * 5 盤は短時間で解けますが、6 * 6 盤になると実行時間は約 92 秒、7 * 7 盤は途中であきらめました。解を高速に求めるには重複した要素をチェックするだけでは不十分で、L トロミノを置くことができない隙間 (大きさ 3 未満の隙間) を作らないように配置する必要があります。
これは敷き詰め問題だけではなく、Exact Cover Problem でも起こりうる問題です。集合 S から部分集合を選択していくと、S に残っている要素では X の要素をすべてカバーできない状況に陥ることがあります。この場合、解がないのはあきらかですね。ここで枝刈りすることができれば、解を高速に求めることができるはずです。
実をいうと、このような処理を効率よく行うアルゴリズムとデータ構造が考案されています。それがクヌース先生の Algorithm X と Dancing Links です。もちろん、敷き詰め問題に対しても Algorithm X は有効です。
●Algorithm X の基本
Algorithm X は Exact Cover Problem を解くためのアルゴリズムです。基本は深さ優先探索ですが、効率よく枝刈りができるように工夫されています。
簡単な例を示しましょう。次の図を見てください。
X = {1, 2, 3, 4, 5}
S = {A, B, C, D, E, F}
A = {1, 2}
B = {2, 3}
C = {3, 4}
D = {1, 5}
E = {5}
F = {2}
| 1 2 3 4 5 --+----------- A | 1 1 0 0 0 B | 0 1 1 0 0 C | 0 0 1 1 0 D | 1 0 0 0 1 E | 0 0 0 0 1 F | 0 1 0 0 0
集合 X と集合 S の関係を行列で表します。行が S の要素 (部分集合) で、列が X の要素を表します。たとえば、A は {1, 2} なので、列 1, 2 を 1 にセットし、それ以外の値は 0 となります。列から見ると、その要素を含んでいる部分集合には 1 がセットされ、それ以外の値は 0 となります。
Algorithm X は部分集合を選択するとき、1 の個数が一番少ない列を基準に選びます。上図の場合、4 は C だけしかないので、4 と C を選びます。
| 1 2 3 4 5 --+----------- 要素 4 を選択, 部分集合 C を選択 A | 1 1 0 0 0 要素 3, 4 を削除、3, 4 を含んでいる集合 B, C を削除 B | 0 1 1 0 0 C | 0 0 1 1 0 D | 1 0 0 0 1 E | 0 0 0 0 1 F | 0 1 0 0 0 | 1 2 5 --+----------- A | 1 1 0 | | D | 1 0 1 E | 0 0 1 F | 0 1 0
部分集合 C は要素 3, 4 を含んでいるので、行列から列 3, 4 を削除します。要素 3, 4 を含んでいる部分集合は、要素が重複するので選択肢から除外することができます。この場合は選択した部分集合 C だけではなく B も行列から削除します。
行列は空ではないので、同様に部分集合を選択します。この場合、列 1 から部分集合を選びます。A と D があるので、最初は A を選びましょう。
| 1 2 5 --+----------- 要素 1 を選択, 部分集合 A を選択 A | 1 1 0 要素 1, 2 を削除, 1, 2 を含んでいる集合 A, D, F を削除 | | D | 1 0 1 E | 0 0 1 F | 0 1 0 | 5 --+----------- | | | | E | 1 |
A の要素は 1, 2 なので、行列から列 1, 2 を削除します。そして、要素 1, 2 を含む部分集合 A, D, F を削除します。
行列は空ではないので、同様に部分集合を選択します。
| 5
--+----------- 要素 5 を選択, 部分集合 E を選択
| 要素 5 を削除, 5 を含んでいる集合 E を削除
|
|
|
E | 1
|
空行列になったので選択した部分集合 {C, A, E} が解となる
部分集合 E を選択すると行列は空になります。今まで選択した部分集合 C, A, E が解となります。
次に、別解を探索するためバックトラックします。列 1 を選択したとき、部分集合は A と D の 2 つがありました。今度は D を選択します。
| 1 2 5 --+----------- 要素 1 を選択, 部分集合 D を選択 A | 1 1 0 要素 1, 5 を削除, 1, 5 を含んでいる集合 A, D, E を削除 | | D | 1 0 1 E | 0 0 1 F | 0 1 0 | 2 --+----------- | | | | | F | 1
D の要素は 1, 5 なので、行列から列 1, 5 を削除します。それから、要素 1, 5 を含む部分集合 A, D, E を削除します。
| 2
--+----------- 要素 2 を選択, 部分集合 F を選択
| 要素 2 を削除, 2 を含んでいる集合 F を削除
|
|
|
|
F | 1
空行列になったので選択した部分集合 {C, D, F} が解となる
同様に部分集合 F を選ぶと行列は空になります。選択した部分集合 {C, D, F} が解となります。
さらに別解を探すためバックトラックします。要素 4 を選択したとき、選択できる部分集合は C しかありませんでした。他の選択肢がないので、ここで探索を終了します。
Algorithm X のポイントは、選択肢の少ない要素 (列) から選んでいくところです。集合 S から部分集合を選択していくと、S に残っている要素では X の要素をすべてカバーできない状況に陥ることがあります。この場合、解がないのはあきらかです。この状態は行列でいうと、ある列の要素がすべて 0 になることに対応します。選択肢の数が最小の列を探す場合、最小値は 0 ですから、選択肢 0 の列が選ばれることになります。つまり、ここで枝刈りすることができるわけです。
もう一つのポイントが行列を表すデータ構造です。要素 (列) から部分集合 (行) を求める処理と、行と列の取り外しと元に戻す処理が高速でなければ、Algorithm X を高速に動作させることはできません。
クヌース先生の Dancing Links は、行列の 1 の要素を縦方向と横方向の双方向リストでつないだデータ構造です。次の図を見てください。
H は行列全体のヘッダーで、1, 2, 3, 4, 5 が列を表すヘッダーです。列のヘッダーから縦方向のリンクをたどれば、要素を含む部分集合を簡単に求めることができます。また、横方向のリンクをたどれば、その部分集合の要素も簡単に求めることができます。
双方向リストの場合、リンクから節 (node) を削除したり、それを元に戻すことは節のデータを書き換えることで簡単にできます。列を取り除く場合、列ヘッダーをつないでいる横方向のリンクから、該当する列のヘッダーを削除すればいいわけです。部分集合を削除する場合は、節の横方向のリンクをたどり、縦方向のリンクから節を削除することで実現できます。
ところで、いきなり Algorithm X + Dancing Links を実装するのはハードルが高いので、Dancing Links の前に immutable なデータ構造で Algorithm X を実装してみましょう。最近のパソコンはハイスペックなので、immutable なデータ構造でも、それなりの速度で動作するかもしれません。
●連想リストによる Algorithm X の実装
行列を表すデータ構造ですが、列を連想リストで表すと簡単です。次の図を見てください。
X = {1, 2, 3, 4, 5}
S = {A, B, C, D, E, F}
A = {1, 2}
B = {2, 3}
C = {3, 4}
D = {1, 5}
E = {5}
F = {2}
部分集合 S をリスト [[1,2], [2,3], [3,4], [1,5], [5], [2]] で与えることにします。部分集合はリストの添字で区別することにします。列は連想リストで表します。キーが列の番号で、データは要素 (列) を含む部分集合のリストです。
行列から列を削除する場合は、連想リストから該当する列を削除するだけです。行を削除する場合は、連想リストのデータ (部分集合のリスト) から該当する部分集合の番号を削除します。たとえば、上図で部分集合 3 を削除する場合、列 1, 5 から部分集合を削除するので、列 1 は (1, [0, 3]) から (1, [0]) に、列 5 は (5, [3, 4]) から (5, [4]) になります。
簡単な例を示しましょう。
| 1 2 3 4 5 : [(1,[0,3]), (2,[0,1,5]), (3,[1,2]), (4,[2]), (5,[3,4])] --+----------- 0 | 1 1 0 0 0 列 (4, [2]) を選択、部分集合 2 を選択 1 | 0 1 1 0 0 部分集合 2 の要素 3, 4 を列から削除 2 | 0 0 1 1 0 => [(1,[0, 3]) (2, [0, 1, 5]) (5, [3, 4])] 3 | 1 0 0 0 1 4 | 0 0 0 0 1 要素 3, 4 を含む部分集合 1, 2 を削除 5 | 0 1 0 0 0 => [(1,[0, 3]) (2, [0, 5]) (5, [3, 4])] | 1 2 5 : [(1,[0, 3]) (2, [0, 5]) (5, [3, 4])] --+----------- 0 | 1 1 0 | | 3 | 1 0 1 4 | 0 0 1 5 | 0 1 0
部分集合 2 は要素 3, 4 を含んでいるので、連想リストから列 3, 4 を削除します。要素 3, 4 を含んでいる部分集合は 1 と 2 です。列 (2, [0, 1, 5]) は 1 を含んでいるので、ここから 1 を削除します。
行列は空ではないので、同様に部分集合を選択します。この場合、列 1 から部分集合を選びます。0 と 3 があるので、最初は 0 を選びましょう。
| 1 2 5 : [(1,[0, 3]) (2, [0, 5]) (5, [3, 4])] --+----------- 0 | 1 1 0 列 (1, [0, 3]) を選択, 部分集合 0 を選択 | 部分集合 0 の要素 1, 2 を連想リストから削除 | => [(5, [3, 4])] 3 | 1 0 1 4 | 0 0 1 要素 1, 2 を含む部分集合 0, 3. 5 を削除 5 | 0 1 0 => [(5, [4])] | 5 : [(5, [4])] --+----------- | | | | 4 | 1 |
部分集合 0 の要素は 1, 2 なので、行列から列 1, 2 を削除します。そして、要素 1, 2 を含む部分集合 0, 3, 5 を削除します。この場合、列 (5, [3, 4]) の 3 を削除して (5, [4]) になります。
行列は空ではないので、同様に部分集合を選択します。
| 5 : [(5, [4])]
--+-----------
| 要素 5 を選択, 部分集合 4 を選択
| 要素 5 を削除
| => []
|
4 | 1
|
空行列になったので選択した部分集合 {2, 0, 4} が解となる
部分集合 4 を選択すると行列は空になります。今まで選択した部分集合 {2, 0, 4} が解となります。あとは、この処理を繰り返すだけです。
●プログラムの作成 (2)
それではプログラムを作りましょう。まず最初に、リストから行列 (連想リスト) を生成する関数 makeMatrix() を作ります。
リスト : 行列の生成
# 連想リストの探索
def assoc(x, xs):
for y, ys in xs:
if x == y: return ys
return None
# 行列の生成
def makeMatrix(ls):
cols = []
for n, xs in enumerate(ls):
for x in xs:
ys = assoc(x, cols)
if ys is None:
cols.append((x, [n]))
else:
ys.append(n)
return cols
引数 ls は部分集合を格納したリスト (配列) です。連想リストは変数 cols にセットします。for ループの変数 n が部分集合 (行) の番号、次の for ループの変数 x が部分集合の要素 (列の番号) になります。次に、関数 assoc() で連想リストから x を探します。見つけた場合、そのデータ ys に n を追加します。見つからない場合は (x, [n]) を cols に append で追加します。最後に cols を返します。
次は選択肢が最小の列を求める関数 searchMinCol() を作ります。
リスト : 選択肢が最小の列を求める
def searchMinCol(cols):
min_col = None
min_size = 0x7fffffff
for col in cols:
size = len(col[1])
if size < min_size:
min_col = col[1]
min_size = size
return min_col
searchMinCol() は簡単です。min_col に最小の列のデータを、min_size にその長さをセットします。あとは、for ループで連想リストの要素を取り出してデータの長さを求め、min_size よりも小さい場合は、min_col と min_size の値を書き換えます。最後に min_col を返します。
次は列を削除する関数 removeColumns() を作ります。
リスト : 列の削除
def removeColumns(xs, ys):
a = []
for zs in ys:
if zs[0] not in xs: a.append(zs)
return a
removeColumns() の引数() xs は削除する列の番号を格納したリスト、ys は行列を表す連想リストです。for ループで連想リストから要素 zs を取り出し、そのキー zs[0] が xs に含まれていなければ、zs をリスト a に追加します。最後に a を返します。
次は列の要素 (部分集合) を削除する関数 removeSubsets() を作ります。
リスト : 部分集合を削除
# 差集合
def setDifference(xs, ys):
a = []
for x in xs:
if x not in ys: a.append(x)
return a
def removeSubsets(xs, ys, zs):
a = []
for b in zs:
if b[0] in xs:
a.append((b[0], setDifference(b[1], ys)))
else:
a.append(b)
return a
引数 xs が要素を削除する列の番号を格納したリスト、ys が削除する部分集合の番号を格納したリスト、zs が行列を表す連想リストです。for ループで zs の要素を取り出して変数 b にセットします。キー b[0] が xs に含まれている場合、データ b[1] から ys の要素を削除し、キーといっしょにタプルに格納してリスト a に追加します。関数 setDifference() は xs と ys の集合の差を求めるだけなので簡単です。キーが xs に含まれていない場合は b をそのまま a に追加します。最後に a を返します。
次は、複数の要素 (列) から属する部分集合を集める関数 collectSubsets() を作ります。この関数は複数の列を削除するとき、削除する部分集合を求めるために使います。
リスト : 要素 (列) が属する部分集合を集める
def collectSubsets(xs, ys):
a = []
for x in xs:
zs = assoc(x, ys)
for z in zs:
if z not in a: a.append(z)
return a
引数 xs は要素 (列の番号) を格納したリストで、ys が行列を表す連想リストです。for ループで xs から列の番号を順番に取り出し、assoc() で ys からその番号を探索します。見つけた場合は、for ループでその要素をリスト a に追加します。このとき、重複要素をチェックしていることに注意してください。最後に a を返します。
次は複数の部分集合から属する要素 (列) を集める関数 collectColumns() を作ります。この関数は列の部分集合を削除するとき、削除する列を求めるために使います。
リスト : 部分集合の要素 (列) を集める
def collectColumns(xs, ys):
a = []
for x in xs:
for z in ys[x]:
if z not in a: a.append(z)
return a
引数 xs は部分集合の番号を格納したリストで、ys は部分集合を格納したリストです。for ループで xs から部分集合の番号を順番に取り出して変数 x にセットします。次の for ループで、ys からその要素を取り出してリスト a に追加します。このとき、重複要素をチェックしていることに注意してください。
最後に Algorithm X を実行する関数 algoX() を作ります。
リスト : Algorithm X
def algoX(f, lines, columns):
a = []
def algoSub(cols):
if cols == []:
f(a)
else:
for x in searchMinCol(cols):
cs = lines[x]
ls = collectSubsets(cs, cols)
zs = collectColumns(ls, lines)
a.append(cs)
algoSub(removeSubsets(zs, ls, removeColumns(cs, cols)))
a.pop()
#
algoSub(columns)
引数 f は解を見つけたときに実行する関数、lines は部分集合を格納したリスト、columns は行列を表す連想リストです。選択した部分集合はリスト a に格納します。実際の処理は局所関数 algoSub() で行います。
引数 cols が空リストの場合、行列は空になったので関数 f に a を渡して実行します。そうでなければ、searchMinCol() で選択肢が最小の列を探して、その部分集合 x を for ループで取り出します。選択肢が 0 の場合、searchMinCol() は空リスト [ ] を返すので for ループは実行されません。ここで枝刈りされることに注意してください。
次に、部分集合 x の要素を lines から取り出して、変数 cs にセットします。これが削除する列になります。collectSubsets() で cs に属する部分集合を求めて変数 ls にセットします。これが削除する部分集合になります。部分集合を削除する列は、collectColumns() で求めて変数 zs にセットします。最後に、algoX() を再帰呼び出しするとき、removeColumns() で columns から列 cs を削除し、removeSubsets() で部分集合 ls を削除します。
●実行結果 (2)
それでは実行してみましょう。結果は次のようになりました。
表 : 実行結果
盤面 | A | 総数 | 時間 (秒)
------+----+---------+--------
6 * 6 | -- | 162 | 0.068
------+----+---------+--------
7 * 7 | 0 | 1440 | 0.158
| 1 | 704 | 0.028
| 2 | 816 | 0.041
| 3 | 1088 | 0.034
| 8 | 704 | 0.027
| 9 | 288 | 0.010
| 10 | 576 | 0.018
| 16 | 608 | 0.023
| 17 | 416 | 0.022
| 24 | 736 | 0.024
------+----+---------+--------
8 * 8 | 0 | 30355 | 0.821
------+----+---------+--------
9 * 9 | -- | 1193600 | 35.413
A : 取り除く正方形の位置
実行環境 : PyPy 7.3.1, Ubuntu 20.04 LTS (WSL1), Intel Core i5-6200U 2.30GHz
6 * 6 盤の実行時間は 0.068 秒になりました。最初に作成したプログラムの実行時間は約 92 秒だったので、劇的に速くなりました。7 * 7 盤も高速に解くことができ、どの位置の正方形を取り除いても敷き詰めることができます。Algorithm X は敷き詰め問題でも大きな効果を発揮することがわかります。ですが、盤面を大きくすると探索する局面数が爆発的に増えるので、実行時間は急激に遅くなります。
今回はここまでです。次回は Dancing Links を実装して、どのくらい速くなるか試してみましょう。
●参考文献, URL
- 数理パズル入門, L-トロミノの敷き詰め (リンク切れ)
- Exact cover - Wikipedia (en)
- Donald Knuth, "Dancing Links (PDF)"
- Knuth's Algorithm X - Wikipedia (en)
- Dancing Links - Wikipedia (en)
●プログラムリスト
#
# tromino.py : トロミノの敷き詰め
#
# Copyright (C) 2014-2022 Makoto Hiroi
#
import time
# L トロミノの生成
def makeLtromino(w, h):
tbl = []
for x in range(0, w - 1):
for y in range(0, h - 1):
z = y * w + x
tbl.append([z, z+1, z+w ])
tbl.append([z, z+1, z+w+1])
tbl.append([z, z+w, z+w+1])
tbl.append([ z+1, z+w, z+w+1])
return tbl
# 連想リストの探索
def assoc(x, xs):
for y, ys in xs:
if x == y: return ys
return None
# 行列の生成
def makeMatrix(ls):
cols = []
for n, xs in enumerate(ls):
for x in xs:
ys = assoc(x, cols)
if ys is None:
cols.append((x, [n]))
else:
ys.append(n)
return cols
# 最小の列を探す
def searchMinCol(cols):
min_col = None
min_size = 0x7fffffff
for col in cols:
size = len(col[1])
if size < min_size:
min_col = col[1]
min_size = size
return min_col
# 列を削除する
def removeColumns(xs, ys):
a = []
for zs in ys:
if zs[0] not in xs: a.append(zs)
return a
# 差集合
def setDifference(xs, ys):
a = []
for x in xs:
if x not in ys: a.append(x)
return a
# 部分集合を削除
def removeSubsets(xs, ys, zs):
a = []
for b in zs:
if b[0] in xs:
a.append((b[0], setDifference(b[1], ys)))
else:
a.append(b)
return a
# 要素 (列) が属する部分集合を集める
def collectSubsets(xs, ys):
a = []
for x in xs:
zs = assoc(x, ys)
for z in zs:
if z not in a: a.append(z)
return a
# 部分集合の要素 (列) を集める
def collectColumns(xs, ys):
a = []
for x in xs:
for z in ys[x]:
if z not in a: a.append(z)
return a
# Knuth's Algorithm X
def algoX(f, lines, columns):
a = []
def algoSub(cols):
if cols == []:
f(a)
else:
for x in searchMinCol(cols):
cs = lines[x] # 削除する列
ls = collectSubsets(cs, cols) # 削除する行
zs = collectColumns(ls, lines) # delCs を削除する列
a.append(cs)
algoSub(removeSubsets(zs, ls, removeColumns(cs, cols)))
a.pop()
#
algoSub(columns)
# L トロミノの敷き詰め
# n * n - 1
def solverLtromino1(n, m):
c = [0]
def counter(xs):
if c[0] == 0: print(xs)
c[0] += 1
#
ls = [xs for xs in makeLtromino(n, n) if m not in xs]
mt = makeMatrix(ls)
algoX(counter, ls, mt)
return c[0]
# n * n
def solverLtromino(n):
c = [0]
def counter(xs):
if c[0] == 0: print(xs)
c[0] += 1
#
ls = makeLtromino(n, n)
mt = makeMatrix(ls)
algoX(counter, ls, mt)
return c[0]
改訂 2022 年 9 月 17 日