8 queen problem in old TPJ aritcle is missing link to main module Queen

Viewed 52

Does anyone have full program for this below from perl journal?

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

More specifically below link comes up nothing.

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

This is the one w/ 8 queens program. I was reading the program and wanted to study it but this article does not contain complete programs.

#!/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();
1 Answers
Related