diff options
Diffstat (limited to 'fib.kpl')
| -rw-r--r-- | fib.kpl | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -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 ) |
