> > あんまり短くなった気がしない
> > (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時28分43秒