Welcome to the Monastery PerlMonks

### Re^2: Fibo Golf challenge on 3 monkeys

by chargrill (Parson)
 on Jul 13, 2007 at 19:40 UTC ( #626522=note: print w/replies, xml ) Need Help??

in reply to Re: Fibo Golf challenge on 3 monkeys
in thread Fibo Golf challenge on 3 monkeys

A tiny improvement, substituting \$/ for "\n":
perl -e '\$b-=\$a=1;for(A..T){\$c=\$a;print\$a+=\$b,\$/;\$b=\$c}'

--chargrill
s**lil*; \$*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+\$2\$1+; \$; = qq-\$_-;s,.*,ahc,;\$,.=chop for split q,,,reverse;print for(\$,,\$;,\$*,\$/)

Replies are listed 'Best First'.
Re^3: Fibo Golf challenge on 3 monkeys
by jdalbec (Deacon) on Jul 13, 2007 at 23:02 UTC
I can shave off a couple characters by leveraging the fact that the length of the sequence is even. Also, the OP's sequence starts with F1=1, so if I start there too I don't have to initialize both variables.
perl -e '\$a=1;for(A..J){print\$a+=\$b,\$/,\$b+=\$a,\$/}'
Update: Now that the loop is down to 1 statement I can switch to a postfix for. I can also fold the initialization into the loop.
perl -e 'print\$a+=\$b||1,\$/,\$b+=\$a,\$/for A..J'
... and if you feel strongly about starting with F0=0,
perl -e 'print\$a+=\$b,\$/,\$b+=\$a||1,\$/for A..J'
perl -le'print\$a+=\$b,\$/,\$b+=\$a||1for A..J'

Create A New User
Node Status?
node history
Node Type: note [id://626522]
help
Chatterbox?
 Discipulus thanks back and passes around a weis bier in the berghastof hummelei celebrative glass

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (6)
As of 2018-05-25 17:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
World peace can best be achieved by:

Results (188 votes). Check out past polls.

Notices?