「「ナイト・ツアー」の解をPython 60行でコーディング」記事へのコメント

本家のPerlのChessモジュールを使ったやつが動かない

[t-nissie (8647)]

Perl6じゃないとダメなのかしら

$ cat tour.pl
#!/usr/bin/perl
use Chess;
 
$knight = Chess::Piece::Knight->new();
$board = Chess::Board->new(100, 100, setup => {
                $knight => "a1";
});
 
$knight->tour()->show();
$ perl --version
 
This is perl, v5.8.8 built for darwin-thread-multi-2level
 
$ ./tour.pl
syntax error at ./tour.pl line 7, near "}"
Execution of ./tour.pl aborted due to compilation errors.

prologのやつは動かし方がわかりません

--
love && peace && free_software
t-nissie

Re:

[kr (10950)]

Prolog版は、'<'〜'>'が消えてしまっている気がします。 また、gprologではnot/1を(\+)/1に置き換えると動くようです。

wrapper(Size, [X, Y], Path) :-
        X =< Size, X >= 1,
        Y =< Size, Y >= 1,
        Depth is Size * Size - 1,
        worker(Size, [X, Y], Depth, [], ReversedPath),
        reverse(ReversedPath, Path),
        write(Path), nl.
worker(_, State, 0, CurrentPath, [Sta

Re:本家のPerlのChessモジュールを使ったやつが動かない

[t-nissie (8647)]

おお、いつもありがとうございます。

3x3と4x4には解がないけど5x5にはたくさん解があることがすぐに出せますね。

| ?- wrapper(3,[1,1],_).
 
no
| ?- wrapper(4,[1,1],_).
 
(25 ms) no
| ?- wrapper(5,[1,1],_).
[[1,1],[2,3],[3,5],[5,4],[4,2],[2,1],[3,3],[1,4],[2,2],[4,1],[5,3],[4,5],[2,4],[1,2],[3,1],[5,2],[4,4],[2,5],[1,3],[3,2],[5,1],[4,3],[5,5],[3,4],[1,5]]
 
true ? a

Prologは勉強しようと思ってもいつも「磯野家の家系」どまりなので、
これを機会に、Knight's Tour Puzzleで「始点と終点が一致」の条件を
つけたら解はどれくらい減るのか、をとりあえず目標にいじってみます。

--
love && peace && free_software
t-nissie