1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
#!/usr/bin/perl # # Il numero di partenza viene fornito come costante. # $numero = 8; $cont = $numero -1; # Il ciclo seguente è senza fine. while (1) { $numero *= $cont; $cont--; if (!$cont) { last; } } print "Il fattoriale è $numero.\n";
1
Il fattoriale è 40320.