diff options
| author | nodist <kevin.comas.git@gmail.com> | 2026-08-02 11:07:19 -0400 |
|---|---|---|
| committer | nodist <kevin.comas.git@gmail.com> | 2026-08-02 11:07:19 -0400 |
| commit | 651cec72681afc0821a03a71d07aaa797d37649e (patch) | |
| tree | 3a5a1689057052ad0fefcebac5ed8b651e5a56b4 /ack.kpl | |
| parent | c9d9511e6c964853e35f143cf45f3a0f02521e1d (diff) | |
new syntax
Diffstat (limited to 'ack.kpl')
| -rw-r--r-- | ack.kpl | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/ack.kpl b/ack.kpl deleted file mode 100644 index bba01ea..0000000 --- a/ack.kpl +++ /dev/null @@ -1,26 +0,0 @@ - -// Ackermann function - -`export ack : ([I64; I64.m; I64.n] - ? { - |(m < 0; n < 0) { 0 } - m = 0 { n + 1 } - &(m > 0; n = 0) { ack `sync (m - 1; 1) } - { ack `sync (m - 1; ack `sync (m; n - 1)) } - } -) - -`export ack_string : ([String; I64.m; I64.n] - "#MAGENTA#ack#(#CYAN#%#, #CYAN#%#) #WHITE#=# #GREEN#%#\n" `format (m; n; ack `sync (m; n)) -) - -`is_main ([Void] - `use "sys" [args] - ? 4 != `length args { - `return `error String $ ( - "#BOLD#RED#Got: %#\n" `format " " `join args - "#BOLD#WHITE#Usage: % % <m> <n>#\n" `format (args `get 0; args `get 1) - ) - } - `value ack_string `sync (I64 $ args `get -2; I64 $ args `get -1) -) |