今さら「Fizz-Buzz問題」に取り組む。。。

今さらですが、やってみました、、、

どうしてプログラマに・・・プログラムが書けないのか?
とりあえず、問題だけ見て一回目は、1分程で以下のように、、

for (1..100) {
    print ("FizzBuzz\n"), next if ($_ % 3) == 0 && ($_ % 5) == 0;
    print ("Fizz\n"), next if ($_ % 3) == 0;
    print ("Buzz\n"), next if ($_ % 5) == 0;
    print "$_\n";
}

っで、これはひどいので、さらに考えてみた、、

print 
      +(($_ % 3) == 0 && ($_ % 5) == 0 ? 'FizzBuzz'
    : ($_ % 3) == 0 ? 'Fizz'
    : ($_ % 5) == 0 ? 'Buzz'
    : $_)
    , "\n" for 1..100;

あまり変わって無い気がしますが、、、とりあえず、鰯の回答は以上、、後は、他の方のを見て勉強させてもらいます、、、。