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

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi all,
Can anyone please explain this code for printing fibonacci series

$ perl -le ' $==1,(1 x $_)=~/(^)(1|11\1)*(?{$=++})^/,print $= for 0..1
+0'

[download]
2 3 5 8 13 21 34 55 89 144 233
Thanx in advance!!!

Back to Seekers of Perl Wisdom