竹内関数(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 125 125 125 125 125 125 ok.
並列計算をやってみると、
[[]]
の中を、コア数同時に計算するみたいだ。