Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: Explain one liner for fibonacci

by ambrus (Abbot)
on Dec 22, 2009 at 12:07 UTC ( #813858=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    perl -le'$==1,(1x$_)=~/^(1|11)*(?{$=++})^/,print$=for 0..20'
    
  2. or download this
    perl -le'$==1,(1x$_)=~/^(1|11(??{}))*(?{$=++})^/,print$=for 0..20'
    
  3. or download this
    perl -le'$==0,(1x$_)=~/^(1|11(??{}))*$(?{$=++})^/,print$=for 0..20'
    
  4. or download this
     1  (1)(1)(1)(1)(1)(1)
     2  (1)(1)(1)(1)(1  1)
    ...
    11  (1  1)(1)(1  1)(1)
    12  (1  1)(1  1)(1)(1)
    13  (1  1)(1  1)(1  1)
    
  5. or download this
     1  (1)(1)(1)(1)
     2  (1)(1)(1) 1
    ...
    10  (1  1)(1  1)
    11  (1  1) 1  1
    12   1  1  1  1
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (3)
As of 2014-09-19 06:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (132 votes), past polls