From 9f728121a17cbb997c18752d01d7529539966e94 Mon Sep 17 00:00:00 2001
From: Mathias Magnusson <mathias@magnusson.space>
Date: Tue, 29 Jul 2025 18:39:46 +0200
Subject: make parameters usable

---
 fibonacci.hgn | 19 +++++++++----------
 1 file changed, 9 insertions(+), 10 deletions(-)

(limited to 'fibonacci.hgn')

diff --git a/fibonacci.hgn b/fibonacci.hgn
index 362e244..b1ce582 100644
--- a/fibonacci.hgn
+++ b/fibonacci.hgn
@@ -1,19 +1,18 @@
 main := proc() {
-    p(69)
+    n := read_int(0)
+    fib(n)
+    exit(0)
+}
+
+fib := proc(n) {
     a := 0
     b := 1
-    n := 10
-    # n := read_int(0)
-    while n > 0 {
+    i := 0
+    while i < n {
         c := a + b
         a = b
         b = c
-        n = n - 1
+        i = i + 1
     }
     print(a)
-    exit(0)
-}
-
-p := proc() {
-    print(1)
 }
-- 
cgit v1.2.3