> > おー！
> あんまり短くなった気がしない
> (1..100).each {|i|
>   j = ''
>   if i % 3 == 0
>     j += "Fizz"
>   end
>   if i % 5 == 0
>     j += "Buzz"
>   end
>   if j != ''
>     print j, "\n"
>   else
>     print i, "\n"
>   end
> }

Perlなら一行で書けて精神的！(;´Д`)
foreach(1..100){$tmp=0;unless($_%3){$tmp="Fizz"};unless($_%5){$tmp="Buzz"};unless($_%15){$tmp="FizzBuzz"};unless($tmp){$tmp=$_};print "$tmp\n"}

参考：2008/06/15(日)22時22分31秒