From 6ef8829451871b534572d47312ae255dee088588 Mon Sep 17 00:00:00 2001
From: Flavian Kaufmann <flavian@flaviankaufmann.ch>
Date: Thu, 22 May 2025 13:23:18 +0200
Subject: cleanup

---
 examples/example.imp | 21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

(limited to 'examples/example.imp')

diff --git a/examples/example.imp b/examples/example.imp
index a5bc5dd..de76b27 100644
--- a/examples/example.imp
+++ b/examples/example.imp
@@ -1,12 +1,11 @@
-procedure factorial(n;r) begin
-  if n <= 0 then
-    r := 1;
-  else
-    m := n - 1;
-    factorial(m;r);
-    r := r * n;
-  end;
-end;
-
+f1 := 0;
+f2 := 1;
 n := 5;
-factorial(n;r);
\ No newline at end of file
+
+while n # 0 do
+  var tmp := f2 in
+    f2 := f1 + f2;
+    f1 := tmp;
+  end;
+  n := n - 1;
+end;
\ No newline at end of file
-- 
cgit v1.2.3