FizzBuzzってみる

Perl

@IT辺りで話題に取り上げられていましたのでFizzBuzzってみました。(Perlで)

一行でわかりやすく短く書いてみました。

FizzBuzzについて
http://ja.wikipedia.org/wiki/Fizz_Buzz

map{!($_ % 15) ? print "FizzBuzz\n" : !($_ % 3) ? print "Fizz\n" : !($_ % 5) ? print"Buzz\n" : print "$_\n"}1..100

否定(!)を使っているのが好みの分かれるところかもしれませんが、個人的には左から右に処理が流れている方が読みやすくて好きなのでそうしています。