30byte FizzBuzz問題チャレンジ

i=0;loop{i+=1;m="";m<<"Fizz" if (0==i%3);m<<"Buzz" if (0==i%5);puts(m!=""?m:i)}

79が限界でした。(5分で挫折)

ちょっとがんばったら75になった。そして71になった。

# 75
i=0;loop{i+=1;m=""<<(i%3==0?"Fizz":"")<<(i%5==0?"Buzz":"");puts(m!=""?m:i)}

# 71
i=0;loop{i+=1;m=(i%3==0?"Fizz":"")<<(i%5==0?"Buzz":"");puts(m!=""?m:i)}

Perlだと70でできた。bare word卑怯だなー。

for(;;){$i++;$m=($i%3==0?Fizz:"").($i%5==0?Buzz:"");print $m||$i,"\n"}

しかし、30byteには達しそうもないので、僕はたぶんYahooではエンジニアとして働けないのでしょう。無念。