Select Code to Download

    # A classic, recursive soulution.
    sub Rfactorial {
...
        return 1 if $i == 1;
        return $i * Rfactorial($i - 1);
    }

    # Tail recursive
    sub factorial {
...
            fact( $n-1, $n*$a );
        }
    }