diff options
Diffstat (limited to 'ack.kpl')
| -rw-r--r-- | ack.kpl | 12 |
1 files changed, 6 insertions, 6 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) ) |