Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: Fibonacci Generator

by PERLscienceman (Curate)
on Jul 06, 2003 at 04:27 UTC ( #271725=note: print w/replies, xml ) Need Help??

in reply to Fibonacci Generator

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:
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; }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://271725]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (9)
As of 2016-10-24 21:26 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (310 votes). Check out past polls.