fib4


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

#!/usr/bin/perl

sub fib
{
    local($a) = $_[0];
    ($a < 2) ? $a : &fib($a-1) + &fib($a-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);