diff options
Diffstat (limited to 'ack.kpl')
| -rw-r--r-- | ack.kpl | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -11,13 +11,13 @@ } ? { m = 0 { n + 1 } - &(m > 0; n = 0) { ack `sync (m - 1; 1) } - { ack `sync (m - 1; ack `sync (m; n - 1)) } + &(m > 0; n = 0) { ack `call (m - 1; 1) } + { ack `call (m - 1; ack `call (m; n - 1)) } } ) `export ack_string : Fn[m; n] $ ( - String $ ("ack("; m; " "; n; ") = "; ack `sync (m; n); "\n") + String $ ("ack("; m; " "; n; ") = "; ack `call (m; n); "\n") ) `is_main Fn $ ( @@ -28,5 +28,5 @@ "Usage: "; args `get 0; " "; args `get 1; " <m> <n>\n" ) } - `print ack_string `sync (I64 $ args `get -2; I64 $ args `get -1) + `print ack_string `call (U64 $ args `get -2; U64 $ args `get -1) ) |
