perl - 旧 TPJ 文章中的 8 queen 问题缺少到主模块 Queen 的链接

Question

有没有人从 perl journal 那里得到完整的程序？

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

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

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

这是一个带有 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 的 web page (文章在PDF)
2. 他的 GitLab