diff options
| -rw-r--r-- | ack.kpl | 8 | ||||
| -rw-r--r-- | fib.kpl | 6 | ||||
| -rw-r--r-- | fib_import.kpl | 2 |
3 files changed, 8 insertions, 8 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) ) @@ -17,12 +17,12 @@ } ? { n < 3 { 2 } - { `sync(fib; n - 1) + fib `sync n - 2 } + { `call(fib; n - 1) + fib `call n - 2 } } ) `export fib_string Fn[n] $ ( - String $ ("fib("; n; ") = "; fib `sync n; "\n") + String $ ("fib("; n; ") = "; fib `call n; "\n") ) `is_main Fn $ ( @@ -33,5 +33,5 @@ "Usage: "; args `get 0; " "; args `get 1; " <number>\n" ) } - `print fib_string `sync I64 $ args `get -1 + `print fib_string `call U64 $ args `get -1 ) diff --git a/fib_import.kpl b/fib_import.kpl index 478e8ab..4f53604 100644 --- a/fib_import.kpl +++ b/fib_import.kpl @@ -4,5 +4,5 @@ ( fib_string ) : `import "./fib.kpl" @ 0 .. 30 { - `print fib_string `sync n + `print fib_string `call n }[n] |