xref: /openbsd-src/gnu/usr.bin/perl/lib/perl5db/t/fact (revision 91f110e064cd7c194e59e019b83bb7496c1c84d4) 
1*91f110e0Safresh1#!/usr/bin/perl
2*91f110e0Safresh1
3*91f110e0Safresh1use strict;
4*91f110e0Safresh1use warnings;
5*91f110e0Safresh1
6*91f110e0Safresh1sub fact {
7*91f110e0Safresh1    my $n = shift;
8*91f110e0Safresh1    if ($n > 1) {
9*91f110e0Safresh1        return $n * fact($n - 1);
10*91f110e0Safresh1    } else {
11*91f110e0Safresh1        return 1;
12*91f110e0Safresh1    }
13*91f110e0Safresh1}
14*91f110e0Safresh1fact(5);
15