FizzBuzz

$ perl -le "print *1 for 1..100"

キモいけどこんなのでもいいのかな。
でも形態としてfor1回、if2回使ってる的なカンジだからよくないのか。
ぬぬ。低脳スペックなボクが単純に思いつくのはこの程度か。


TAKESAKOさんのこちら(http://labs.cybozu.co.jp/blog/takesako/2007/05/fizzbuzz.html)の記事がエロかった。
凄いなぁ。

print+(Fizz)[$_%3].(Buzz)[$_%5]||$_,$/for 1..1e2

これって、$_%3とか$_%5で割り切れるときは正常に表示されて、どっちか表示されてるときは.で結合されるからFizz,Buzz,FizzBuzzのどれかが表示されて、どれもなければ||の$_のほうが表示されるって漢字なんですかね。
分かってるのか分かってないのか曖昧だ。

*1:$_ % 3 ? '' : 'Fizz').($_ % 5 ? '' : 'Buzz '