Select Code to Download

Select or download this

c:\test>615969 62
57: Use of uninitialized value in array element at c:\test\615969.pl l
+ine 66.
...
Use of uninitialized value in array element at c:\test\615969.pl line 
+25.
Use of uninitialized value in array element at c:\test\615969.pl line 
+25.
60: 0,0->2,1

Select or download this

my $steps = shift( @ARGV ) || 64;

...
...
# Change this number to solve more or less of the puzzle
    while ( $move < $steps ) {

Select or download this

        my ($newx, $newy) = calculate_move($board, $x, $y);
        printf "\r$move: $x,$y->$newx,$newy\t";

Select or download this

c:\test>perl -v

...
Binary build 811 provided by ActiveState Corp. http://www.ActiveState.
+com
ActiveState is a division of Sophos.
Built Dec 13 2004 09:52:01

Select or download this

sub back {
    print "\n*** BACK ***\n";
...

Select or download this

c:\test>615969 61
43: 0,7->-2,6
...
15   14   23   02   17   42   21   04

00   01   14   15   22   05   42   43