From a496efcd5d4660da359ce4702b5293698f115dda Mon Sep 17 00:00:00 2001 From: nodist Date: Tue, 19 May 2026 12:30:40 -0400 Subject: add ackerman example --- fib.kpl | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'fib.kpl') diff --git a/fib.kpl b/fib.kpl index 16edbb4..f049ba0 100644 --- a/fib.kpl +++ b/fib.kpl @@ -1,5 +1,8 @@ -// Fibonacci sequence for all numeric types +/* + Fibonacci sequence + n can be any signed or unsigned integer type +*/ `export fib : Fn[n] $ ( ? { @@ -9,7 +12,6 @@ } ) - `export fib_string Fn[n] $ ( String $ ("fib("; n; ") = "; fib `call_sync n; "\n") ) @@ -22,5 +24,5 @@ "Usage: "; args `get 0; " "; args `get 1; " \n" ) } - `print `call_sync fib_string `call_sync I64 $ args `get -1 + `print fib_string `call_sync I64 $ args `get -1 ) -- cgit v1.2.3