Rat Fib
12345678910111213141516
use bigrat;
my $ARGS = <STDIN>;
my ($counter, $seed1, $seed2) = split(/ /, $ARGS);
print "$counter repetitions: $seed1 $seed2 ";
my $next_to_last = Math::BigRat->new($seed1);
my $last = Math::BigRat->new($seed2);
for(1..$counter) {
my $new = $last+$next_to_last;
print "$new ";
$next_to_last = $last;
$last = $new;
}
Perl
INFO