旧TPJ文章中的 8皇后问题缺少与主模块皇后的链接

Question

谁有完整的程序，下面从perl日志?

https://www.foo.be/docs/tpj/issues/vol1_4/tpj0104 - 0001. - html

更具体地说，下面的链接什么也没有。

http://www.tpj.com/programs.html

这是一个w/8皇后程序。我正在阅读程序，并想研究它，但这篇文章不包含完整的程序。

#!/usr/bin/perl -w
use strict;
require Queen; 
require Queen::Null;
my $lastQueen; 
my $column; 
my $neighbor = new Queen::Null;
foreach $column (1 .. 8) { 
$lastQueen = new Queen; 
$lastQueen->initialColumn($column, $neighbor); 
$neighbor = $lastQueen;
}
$lastQueen->first() and $lastQueen->print();

Answer 1

1. 作者Mike Stok的网页(PDF格式的文章)
他GitLab