汉诺塔的perl实现

作/译者：吴炳锡（Email: select reverse()），来源：http://coolriver.cublog.cn，转载请注明作/译者和出处，并且不能用于商业用途，违者必究。

 

今天被一个朋友问起汉诺塔，问我能不能把学校写的一个那演示程序给他。忽然都不记得是做什么的了。后来搜一下找到：

 

汉诺塔（又称塔）问题是的一个古老的传说。开天辟地的神勃拉玛在一个庙里留下了三根金刚石的棒，第一根上面套着64个圆的金片，最大的一个在底下，其余一个比一个小，依次叠上去，庙里的众僧不倦地把它们一个个地从这根棒搬到另一根棒上，规定可利用中间的一根棒作为帮助，但每次只能搬一个，而且大的不能放在小的上面。解答结果请自己运行计算，程序见尾部。面对庞大的数字(移动圆片的次数)18446744073709551615，看来，众僧们耗尽毕生精力也不可能完成金片的移动。

　　后来，这个传说就演变为汉诺塔游戏:

　　1.有三根杆子A,B,C。A杆上有若干碟子

　　2.每次移动一块碟子,小的只能叠在大的上面

　　3.把所有碟子从A杆全部移到C杆上

　　经过研究发现，汉诺塔的破解很简单，就是按照移动规则向一个方向移动金片：

　　如3阶汉诺塔的移动：A→C,A→B,C→B,A→C,B→A,B→C,A→C

　　此外，汉诺塔问题也是程序设计中的经典递归问题。

看完才想起来，当时做了一个Ｃ语言实现的演示。Ｎ久没用过Ｃ写过程序了，都忘了。

想了一下感觉这个用perl实现很容易。就简单弄出来一个过程：

 

#!/usr/bin/perl

use strict;
use warnings;

sub hnaoi {
 my ($n, $start,$end, $extra) = @_;
 if ($n == 1) {
    print "Move disk #1 from $start to $end.\n";
 } else {
    hnaoi ($n-1, $start,$extra,$end);
    print "Move disk #$n from $start to $end,\n";
    hnaoi ($n-1,$extra,$end,$start);
 }
}
&hnaoi(5,'A','C','B');

 

Move disk  #1 from A to C.
Move disk #2 from A to B,
Move disk  #1 from C to B.
Move disk #3 from A to C,
Move disk  #1 from B to A.
Move disk #2 from B to C,
Move disk  #1 from A to C.
Move disk #4 from A to B,
Move disk  #1 from C to B.
Move disk #2 from C to A,
Move disk  #1 from B to A.
Move disk #3 from C to B,
Move disk  #1 from A to C.
Move disk #2 from A to B,
Move disk  #1 from C to B.
Move disk #5 from A to C,
Move disk  #1 from B to A.
Move disk #2 from B to C,
Move disk  #1 from A to C.
Move disk #3 from B to A,
Move disk  #1 from C to B.
Move disk #2 from C to A,
Move disk  #1 from B to A.
Move disk #4 from B to C,
Move disk  #1 from A to C.
Move disk #2 from A to B,
Move disk  #1 from C to B.
Move disk #3 from A to C,
Move disk  #1 from B to A.
Move disk #2 from B to C,
Move disk  #1 from A to C.