フィボナッチ数列

% perl -e '$b=1;print("$a\n")while(($c=$b+$a)&&($a=$b)&&($b=$c)&&($a<100))'

1
1
2
3
5
8
13
21
34
55
89

今の僕の限界・・・。セミコロンは反則ですね。頑張ります＞＜