Übersicht > Türme von Hanoi > Perl

Die Türme von Hanoi in Perl

#!/usr/bin/perl
#***************************************************************#
#*  Die Türme von Hanoi                           Lizenz: GPL  *#
#*                                                             *#
#*  (c) 2002  Roland Illig <1illig@informatik.uni-hamburg.de>  *#
#***************************************************************#

use strict;

sub bewege
# Bewegt n Scheiben von Turm a nach Turm c und benutzt als Zwi-
# schenspeicher Turm b.
{
    my ($a, $b, $c, $n) = @_;
    if ($n == 1) {
        print "Lege die oberste Scheibe von ".
              "Turm $a auf Turm $b.\n";
    } else {
        bewege($a, $c, $b, $n-1);
        bewege($a, $b, $c, 1);
        bewege($b, $a, $c, $n-1);
    }
}

bewege("a", "b", "c", 5);

__END__