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

Question

有没有人从 perl 期刊中获得以下完整程序？

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();

标签： perloop

Answer 1

1. 作者 Mike Stok 的网页（文章PDF 格式）
2. 他的GitLab