自分で3分で書いたやつ。
$ time perl -le 'for(1..10000000){$s="";$s.="Fizz" if !($_%3);$s.="Bizz" if !($_%5);$s=$_ if !$s;print $s}' > /dev/null
real 0m17.770s
user 0m17.701s
sys 0m0.008s
探し当てたやつ。
$ time perl -le 'print(($_%3?"":Fizz).($_%5?"":Buzz)||$_) for(1..10000000)' > /dev/null real 0m21.733s user 0m21.517s sys 0m0.004s
自分で書いたものの方が早いのはなぜだ。余分な処理をたくさんやっているように思えるのだが。プロファイラがほしいな。