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/factorial.imp | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 examples/factorial.imp

(limited to 'examples/factorial.imp')

diff --git a/examples/factorial.imp b/examples/factorial.imp
new file mode 100644
index 0000000..0ab74cd
--- /dev/null
+++ b/examples/factorial.imp
@@ -0,0 +1,9 @@
+procedure factorial(n;r) begin
+  if n <= 0 then
+    r := 1;
+  else
+    m := n - 1;
+    factorial(m;r);
+    r := r * n;
+  end;
+end;
\ No newline at end of file
-- 
cgit v1.2.3