YappoLogs: FizzBuzzのPerlさいたんきろくたっせい(34ばいと)FizzBuzzのPerlさいたんきろくたっせい(34ばいと) FizzBuzzプログラムを書くのが流行っているみたいなので、空気を一切読まずに乱入した。 現在のPerl最短記録はTAKESAKOさんの56byteらしい。 こんなコード perl -e'die+map{(Fizz)[$_%3].(Buzz)[$_%5]||$_,$/}1..1e2' まず、元の翻訳文章には「FizzやBuzzや数字のみを出力せよ」とは書いてない事に気づいたので、warnで出してみた。 perl -le'warn((Fizz)[$_%3].(Buzz)[$_%5]||$_)for 1..100'55byteになった。 次に1から100迄の数値のソースは、別にプログラム側でもっていなくても良い事に気づいたので、これを外だししてみた。 とにかく目的の文字列が出てくればいいのだ。 head -n100 /dev/r
