Eight Queens Puzzle

Here you can find a Perl implementation for the eight queens puzzle:

Please read my Disclaimer.

# Die Lösungen des Acht-Damen-Problems
# aus: Niklaus Wirth; Algorithmen und Datenstrukturen; B. G. Teubner, Stuttgart, S. 172
#
# 8 Damen sollen auf dem Schachbrett so aufgestellt werden, dass sie sich
# nicht schlagen können.
#
# ܁bertragen von PASCAL in PERL von B. Plumhoff
#
sub prnt {
for ($k=1; $k<9; $k++) {
print $x[$k]." ";
}
print "\n";
}
sub try {
local($i, $j) = @_;
for ($j=1; $j<9; $j++) {
if ($a[$j] && $b[$i+$j] && $c[7+$i-$j]) {
$x[$i] = $j;
$a[$j] = $b[$i+$j] = $c[7+$i-$j] = 0;
if ($i < 8) {
&try($i+1);
} else {
&prnt;
}
$a[$j] = $b[$i+$j] = $c[7+$i-$j] = 1;
}
}
}
for ($i=1; $i<9; $i++) { $a[$i] = 1; }
for ($i=2; $i<17; $i++) { $b[$i] = 1; }
for ($i=0; $i<15; $i++) { $c[$i] = 1; }
print "\nDie Lösungen des Acht-Damen-Problems\n";
print '=' x 36;
print "\n" x 2;
&try(1);