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)} …

http://twitter.com/tomotaka_ito/status/24445961129 後輩がやってる課題作成のやつをやってみたらハノイの塔をPerlで解くというお題だったので挑戦してみた。 $n = $ARGV[0]; print "N = $n\n"; $s=[[],[],[]]; for($i=$n;1<=$i;$i--){push(@{$s[0]},$i);}…