2 # Note: be careful about running this with an argument > (say) 18 !
3 # running this script on '27' will chew up ~80 MB of virtual
4 # ram. and its apetite grows per 1.61803 ** $n.
6 # Your system admin folk would probably be displeased if you trash
7 # other people's work, or disable systems running this script!
9 # Usage: perl nfib.prl <number>
16 if ($n==0) {return (0);}
17 elsif($n==1) {return(1);}
18 return (&fib ($n-1) + &fib($n-2));