またd.y.d.さんで見つけた。 やるか迷った末うあああってやった。 use strict; our %expr = ( '.' => sub { int($_[0] . $_[1]); }, '*' => sub { $_[0] * $_[1]; }, '/' => sub { $_[0] / $_[1]; }, '+' => sub { $_[0] + $_[1]; }, '-' => sub { $_[0] - $…

MinGWのPerl 5.6のほうが2〜5倍くらい速い。 特にファイルIOが遅い気がする。 理由は、 5.8だから スレッドセーフモードだから コンパイル時ターゲットプロセッサでの最適化？ とかじゃないかなーと思う。

。 変態verを作ろうと思ったら、わりと普通になった。 変態の才能がないことが分かった。 sub k { my($s, $c) = @_; ++$c; $v = $s.$_.$c, $c - 9 ? k($v, $c) :eval "$v - 100 || ++\$i" for(qw(+ - * /), ''); } k(1, 1); print"$i\n"; AAっぽくすると変態…