Select Code to Download

    sub fib {my $n = shift; $n <= 1 ? $n : $n + fib($n - 1)}
    sub fac {my $n = shift; $n <= 1 ?  1 : $n * fac($n - 1)}
    my $var = fib(3) + fac(4);

    my $i = 1;
    sub f {$i += 1; $_[0] * $i}
    print f(2) + f(3);

    my $tmp = f(2);
    print $tmp + f(3);