竹内関数(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" : [[ 3 4 ack >pipe ]] while-pipe . repeat ; > "ackermann.pp" load ok. > par 125 125 125 125 125 125 12…