Select Code to Download

package Series;

use strict;
...
}

1;

#!/usr/bin/perl -w 

...

print shift(@fibo)." " for (1..15);
print "\n";

Arithmetic Series: 1,4,7, ... N_{i-1}+3 ...
1 4 7 10 13 16 19 22 25 28 31 34 37 40 43 
...

Fibonacci Numbers: 0,1,1,2,3, ... N_{i-1}+N_{i-2} ...
0 1 1 2 3 5 8 13 21 34 55 89 144 233 377