summaryrefslogtreecommitdiff
path: root/fib.kpl
diff options
context:
space:
mode:
Diffstat (limited to 'fib.kpl')
-rw-r--r--fib.kpl10
1 files changed, 5 insertions, 5 deletions
diff --git a/fib.kpl b/fib.kpl
index 501b105..a650f88 100644
--- a/fib.kpl
+++ b/fib.kpl
@@ -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
)