fib


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

#!./perl

sub fib
{
    ($_[0] < 2) ? $_[0] : &fib($_[0]-1) + &fib($_[0]-2);
}

sub myruntime
{
    local(@t) = times;          #  in seconds
    $t[0] + $t[1];
}

$x = (shift || 20);
print "Starting fib($x)\n";
$before = &myruntime;
$y = &fib($x);
$after = &myruntime;
printf("Done. Result $y in %g cpu seconds.\n", $after-$before);