From 79d80d2d8905b62a30f8856b86811ed932c00c45 Mon Sep 17 00:00:00 2001
From: Kimplul <kimi.h.kuparinen@gmail.com>
Date: Sun, 5 Jan 2025 18:26:26 +0200
Subject: fix procedure/function compilation
+ Add fib example
---
examples/fib.ph | 11 +++++++++++
1 file changed, 11 insertions(+)
create mode 100644 examples/fib.ph
(limited to 'examples')
diff --git a/examples/fib.ph b/examples/fib.ph
new file mode 100644
index 0000000..9e1a185
--- /dev/null
+++ b/examples/fib.ph
@@ -0,0 +1,11 @@
+function Fib{ num[int] } return int
+is
+ do
+ 1
+ unless 1 < num
+ otherwise
+ Fib(num - 1) + Fib(num - 2)
+ done
+end function
+
+print Fib(42)
--
cgit v1.2.3