君ならどう書く 小町算 (2)
。
変態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っぽくすると変態っぽい気がしたのでAA化した。
sub k{ my ($s,$c)=@_; ++$c; $v= $s .$_ .$c, $c == 9? eval (" $v -100 || ++ \$i "): k($v ,$ c) for (qw(+ - * /),'');}k (1,1); print"$i\n";
センス悪い。