lib/perl5db/t/fact


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/usr/bin/perl

use strict;
use warnings;

sub fact {
    my $n = shift;
    if ($n > 1) {
        return $n * fact($n - 1);
    } else {
        return 1;
    }
}
fact(5);