「Fizz Buzz for Perl」記事へのコメント

条件分岐をなくしてみました

[Anonymous Coward]

map { print [["FizzBuzz", "Buzz"], ["Fizz", $_]]->[!!($_ % 5)][!!($_ % 3)], ", "; } (1..100);

あってるのかな…

Re:条件分岐をなくしてみました

[Katuragi (13740)]

あってましたよ^^
ハッシュですよね？
すごいや：０

# !!ってなんだろう？？

--
-- ラテール部参加者募集中

Re:条件分岐をなくしてみました

[Anonymous Coward]

ハッシュじゃなくて配列(のリファレンス)ですよ。
!! は ! を2つ並べたものです。でもこれは余計でしたね。
数文字だけ短くなったのでついでに。

print [[$_, "Fizz"], ["Buzz", "Fizz Buzz"]]->[!($_ % 5)][!($_ % 3)], ", " for (1..100);