1999-03-05 階乗を求める (再帰) Perl 明解C言語 入門編 > 8. いろいろなプログラムを作ってみよう > 階乗を求める (再帰) Perl sub factorial { my ($n) = @_; return ($n * &factorial($n -1)) if ($n > 0); return 1; } $n = 3; printf("%dの階乗は%dです。\n", $n, &factorial($n)); 実行結果 L:\>perl lesson_08_063.pl 3の階乗は6です。