perl 5.8.8 $ time perl -e 'for ($i = 0; $i <= 100000000; $i++) { }' 7.65 real 7.63 user 0.00 sys$ time perl -e 'for ($i = 0; $i < 100000001; $i++) { }' 6.19 real 6.18 user 0.00 sys$ time perl -e 'for $i (0 .. 100000000) { }' 4.16 real 4.15…

元の内容とは関係ない話なのでリンクは張らないけど、4 つの変数 a, b, c, d があって、そのうち異なる 2 つの変数の組み合わせすべてについて foo を作用させよという問題があるとする。解答例は Perl だとこんな感じになる。 @array = ($a, $b, $c, $d); f…

テレビに入り込んだ虫は、数週間後には居なくなっていた。どこ行ったんだろうなあ。

昨日調子に乗って食べ過ぎたせいか体調がまた悪くなった。