Re: fibo's 66 chars

[Anonymous Monk]

Or, without creating a large list:

@b=(0,1);@b=($b[1],$b[0]+$b[1])for(2..pop);print$b[1];

(and there is no reason to assign $a)

20090727 Janitored by Corion: Added formatting, code tags, as per Writeup Formatting Tips

[pepik_knize]

I starting going down that path too, but noticed that it fails for 1.

$ perl -e'@b=(0,1);@b=($b[1],$b[0]+$b[1])for(2..pop);print$b[1]' 1
1