note
eric256
<p>Hardly original but my own fibonacci number generator.</p>
<code>
use strict;
use warnings;
$| = 1;
sub infinite_fib {
my ($last,$curr) = @_;
return sub {
my $temp = $last + $curr;
$last = $curr;
$curr = $temp;
return $curr;
};
}
my $next_fib = infinite_fib( 1,0 );
print $next_fib->(), "\n" for(1..10);
</code>
<p>Kinda fun just because it reaches infinity in a pretty big hurry if you let it run.</p>
<div class="pmsig"><div class="pmsig-263384">
<br />___________<br />
Eric Hodges
</div></div>
451278
451278