Re: A quandry in Towers of Hanoi

Your bug is that you are initializing your arrays with:

my @polea = "";
my @poleb = "";
my @polec = "";
[download]

which means that they have invisible 0-width entries on top of each stack. Get rid of those and your bug goes away.

Incidentally if you change the way you print slightly, you can turn warnings back on:

for (my $len = 0 ;$len <= $numdisks; $len++) {
    print join "\t\t\t", map {$_->[$len] || ""} \@polea, \@poleb, \@po
+lec;
    print "\n";
}
[download]

(You have to change this in two locations.)

Comment on Re: A quandry in Towers of Hanoi Select or Download Code

Replies are listed 'Best First'.
Re^2: A quandry in Towers of Hanoi by pmonk4ever (Friar) on May 15, 2009 at 16:42 UTC
Hi, tilly, thank you for your suggestion on the print statement, however, as you can see in my update, something's wrong. I looked up the 'map' function, but perldoc was not very helpful. ki6jux "No trees were harmed in the creation of this node. However, a rather large number of electrons were somewhat inconvenienced."	[reply]
Re^3: A quandry in Towers of Hanoi by tilly (Archbishop) on May 15, 2009 at 17:13 UTC
I said `\@polea` to create a reference to your array while you said `\$polea` which creates a reference to a non-existent scalar. Hence the problem. Implement the print statement as I actually wrote it and the program will run correctly. Also see references quick reference if references are confusing you.	[reply] [d/l] [select]
Re^4: A quandry in Towers of Hanoi by pmonk4ever (Friar) on May 19, 2009 at 01:34 UTC
Oops, I hate it when I do that! Thanks, it worked fine. ki6jux "No trees were harmed in the creation of this node. However, a rather large number of electrons were somewhat inconvenienced."	[reply]