From eff2145f5726c017e6e45a409f40c31c60b21d48 Mon Sep 17 00:00:00 2001 From: nodist Date: Sun, 17 May 2026 15:43:13 -0400 Subject: import example --- fib.kpl | 8 ++++++-- fib_import.kpl | 9 +++++++++ 2 files changed, 15 insertions(+), 2 deletions(-) create mode 100644 fib_import.kpl diff --git a/fib.kpl b/fib.kpl index 4b7fb15..a0d7255 100644 --- a/fib.kpl +++ b/fib.kpl @@ -9,6 +9,11 @@ } ) + +`export fib_string Fn[n] $ ( + String $ ("fib("; n; ") = "; fib `call_sync n; "\n") +) + `is_main Fn $ ( ( args ) : `use "sys" ? 3 != `length args { @@ -17,7 +22,6 @@ "Usage: "; args `get 0; " "; args `get 1; " \n" ) } - n : I64 $ args `get -1 ( print ) : `use "io" - print `call_sync String $ ("fib("; n; ") = "; fib `call_sync n; "\n") + print `call_sync fib_string `call_sync I64 $ args `get -1 ) diff --git a/fib_import.kpl b/fib_import.kpl new file mode 100644 index 0000000..d6333d5 --- /dev/null +++ b/fib_import.kpl @@ -0,0 +1,9 @@ + +// Import and run fib_string function + +( print ) : `use "io" +( fib_string ) : `import "./fib.kpl" + +@ 0 .. 30 { + print `call_sync fib_string `call_sync n +}[n] -- cgit v1.2.3