君ならどう書く 小町算 (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";

センス悪い。