竹内関数（tarai）でやってたけど、速すぎてあれだったので、 アッカーマン関数にした。 "ack" : // ( m n -- result ) ( m n ) local-with `m , 0? if `n , 1 + else `n , 0? if `m , 1 - 1 ack else `m , 1 - `m , `n , 1 - ack ack then then ; "par" : […