Syntactic Confectionery Delight PerlMonks

### Re: Recursion: the Towers of Hanoi problem

 on Oct 19, 2004 at 12:53 UTC ( #400495=note: print w/ replies, xml ) Need Help??

in reply to Recursion: The Towers of Hanoi problem

Too bad people introduce the Towers of Hanoi, and then stop when they have introduced recursion. Because there's much more to discover. For instance that disks move in simple cycles, with half the disks moving in one direction, the other half in another. And that given the move number, one can calculate which disk needs to be moved based on the binary respresentation of the move number. Here's an interative solution based on those facts:
```\$*=shift;
for(\$_=1;\$_<=\$*;\$_++){\$_[\$_]=[split\$,,((\$*%2)xor(\$_%2))?ABC:ACB]}
for(\$_=1;\$_<2**\$*;\$_++){
\$-=1+length((sprintf("%b",\$_)=~/(0*)\$/)[0]);
printf"Move disk %d from pole %s to pole %s\n",\$-,@{\$_[\$-]}[0,1];
push@{\$_[\$-]},shift@{\$_[\$-]}
}

Create A New User
Node Status?
node history
Node Type: note [id://400495]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (13)
As of 2016-07-27 13:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
What is your favorite alternate name for a (specific) keyboard key?

Results (242 votes). Check out past polls.