diff options
| -rw-r--r-- | ack.kpl | 12 | ||||
| -rw-r--r-- | fib.kpl | 10 | ||||
| -rw-r--r-- | fib_import.kpl | 2 |
3 files changed, 12 insertions, 12 deletions
@@ -11,22 +11,22 @@ } ? { m = 0 { n + 1 } - &(m > 0; n = 0) { ack `call (m - 1; 1) } - { ack `call (m - 1; ack `call (m; n - 1)) } + &(m > 0; n = 0) { ack `sync (m - 1; 1) } + { ack `sync (m - 1; ack `sync (m; n - 1)) } } ) `export ack_string : Fn[m; n] $ ( - "#MAGENTA#ack#(#CYAN#%#, #CYAN#%#) #WHITE#=# #GREEN#%#\n" `format (m; n; ack `call (m; n)) + "#MAGENTA#ack#(#CYAN#%#, #CYAN#%#) #WHITE#=# #GREEN#%#\n" `format (m; n; ack `sync (m; n)) ) `is_main Fn $ ( ( args ) : `use "sys" ? 4 != `length args { `return `error String $ ( - "Got: "; " " `join args; "\n" - "Usage: "; args `get 0; " "; args `get 1; " <m> <n>\n" + "#BOLD#RED#Got %#\n" `format `join args + "#BOLD#WHITE#Usage % % <m> <n>#\n" `format (args `get 0; args `get `) ) } - `print ack_string `call (U64 $ args `get -2; U64 $ args `get -1) + `print ack_string `sync (U64 $ args `get -2; U64 $ args `get -1) ) @@ -17,21 +17,21 @@ } ? { n < 3 { 2 } - { `call(fib; n - 1) + fib `call n - 2 } + { `sync(fib; n - 1) + fib `sync n - 2 } } ) `export fib_string Fn[n] $ ( - "#MAGENTA#fib#(#CYAN#%#) #WHITE#=# #GREEN#%#\n" `format (n; fib `call n) + "#MAGENTA#fib#(#CYAN#%#) #WHITE#=# #GREEN#%#\n" `format (n; fib `sync n) ) `is_main Fn $ ( ( args ) : `use "sys" ? 3 != `length args { `return `error String $ ( - "Got: "; " " `join args; "\n" - "Usage: "; args `get 0; " "; args `get 1; " <number>\n" + "#BOLD#RED#Got %#\n" `format `join args + "#BOLD#WHITE#Usage % % <n>#\n" `format (args `get 0; args `get 1) ) } - `print fib_string `call U64 $ args `get -1 + `print fib_string `sync U64 $ args `get -1 ) diff --git a/fib_import.kpl b/fib_import.kpl index d0c48ba..d5a73bb 100644 --- a/fib_import.kpl +++ b/fib_import.kpl @@ -4,5 +4,5 @@ ( fib_string ) : `import "./fib.kpl" @ 0 .. 30 {[n] - `print fib_string `call n + `print fib_string `sync n } |