www.farid-hajji.net banner

Farid Hajji

Perl: Einführung, Anwendungen, Referenz (2/e) [Support-Site]

Farid Hajji: Perl - Einführung, Anwendungen, Referenz
2., aktualisierte und erweiterte Auflage
Addison-Wesley Longman, ISBN 3-8273-1535-2

Beispielprogramm

toh-err.pl
#!/usr/local/bin/perl
# toh-err.pl -- Towers Of Hanoi mit einem Fehler.

print "how many discs? ";
$n = <STDIN>;

t_o_h($n, "left", "center", "right");

sub t_o_h
{
    local($nr, $l, $m, $r) = @_;
    return if $nr == 0;

    t_o_h($nr-1, $l, $r, $m);
    print "move disc from $l to $r\n";
    t_o_h($nr-1, $m, $r, $l);
}
   

[Prev] [Up] [Relevant Chapter] [Next]

[Alte Quelle]


Last modified: $Date: 2006/05/18 12:56:09 $
FH. Search :: Sitemap :: Disclaimer :: Copyright :: Privacy
FreeBSD Logo