Select Code to Download

#! perl -slw
use strict;
...
__END__
C:\test>885839 1000
calulating fibonacci( n ) for n := 1 to 1474 takes: 0.001122 seconds

recursive:  Got 24157816; took 49.278000 seconds