http://qs1969.pair.com?node_id=271725

I was going through the "miscellaneous nodes" section and found this one of many to be interesting. So... I thought I would do a little digging and sure enough, consistent with one of the many glories of Perl (there is a module for just about everything), I found one, on CPAN, that generates Fibonacci numbers and related things.
This is the CPAN documentation URL:
http://search.cpan.org/author/VIPUL/Math-Fibonacci-1.5/lib/Math/Fibonacci.pm
And here is a little chunk of code, (all of 5 lines), which generates a 10 number Fibonacci Series:
```#!/usr/bin/perl -w
use strict;
use Math::Fibonacci qw(series);
my @fibonacci=series(10);
print "@fibonacci\n";

The wonders of Perl!

Replies are listed 'Best First'.
Re^2: Fibonacci Generator
by Anonymous Monk on May 26, 2007 at 10:02 UTC
could try this out - if (n==1 || n == 2) { return 1;} else { return (fib(n-1) + fib(n-2)); }
could try this out - if (n==1 || n == 2) { return 1;} else { return (fib(n-1) + fib(n-2)); }

Whoa! What algorithm is that? It must be something absolutely new and ingenious: has anybody seen anything similar before?!? But... what language is that?

Re^2: Fibonacci Generator
by Anonymous Monk on Dec 06, 2009 at 03:48 UTC
i think this is much better:--- #!/user/bin/perl \$a=0; \$b=1; for(\$i=0;\$i<=20;\$i++) { print "\$a\n"; \$c=\$a+\$b; \$a=\$b; \$b=\$c; }