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ではエンジニアとして働けないのでしょう。無念。