http://odz.sakura.ne.jp/projecteuler/index.php?cmd=read&page=Problem%2035 *Problem 35 「巡回素数」 † 197は巡回素数と呼ばれる. 桁を回転させたときに得られる数 197, 971, 719 が全て素数だからである. 100未満には巡回素数が13個ある: 2, 3, 5, 7, 11, 13, 17, 31, 37, 71, 73, 79, および97である. 100万未満の巡回素数はいくつあるか? 解法 配列つかえたら素数を篩にかけて、それを参照すればいいだけなのですが。 Prologにはリストしかないから効率的な方法を只今考え中。 木を使うのが一番オーソドックスに思えるけれど？
