From e7e5af8874121da995611e685719c91af8e38ae1 Mon Sep 17 00:00:00 2001 From: nodist Date: Tue, 2 Jun 2026 16:25:49 -0400 Subject: use sync insted of call --- fib.kpl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'fib.kpl') 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; " \n" + "#BOLD#RED#Got %#\n" `format `join args + "#BOLD#WHITE#Usage % % #\n" `format (args `get 0; args `get 1) ) } - `print fib_string `call U64 $ args `get -1 + `print fib_string `sync U64 $ args `get -1 ) -- cgit v1.2.3