From 6e1eeeebfb453fa7c871869c19375ce60fbd7413 Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Sat, 27 Jul 2019 16:01:55 -0700
Subject: 5485 - promote SubX to top-level

---
 archive/2.vm/factorial.mu | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 archive/2.vm/factorial.mu

(limited to 'archive/2.vm/factorial.mu')

diff --git a/archive/2.vm/factorial.mu b/archive/2.vm/factorial.mu
new file mode 100644
index 00000000..cf2284b2
--- /dev/null
+++ b/archive/2.vm/factorial.mu
@@ -0,0 +1,33 @@
+# example program: compute the factorial of 5
+
+def main [
+  local-scope
+  x:num <- factorial 5
+  $print [result: ], x, [ 
+]
+]
+
+def factorial n:num -> result:num [
+  local-scope
+  load-inputs
+  {
+    # if n=0 return 1
+    zero?:bool <- equal n, 0
+    break-unless zero?
+    return 1
+  }
+  # return n * factorial(n-1)
+  x:num <- subtract n, 1
+  subresult:num <- factorial x
+  result <- multiply subresult, n
+]
+
+# unit test
+scenario factorial-test [
+  run [
+    1:num <- factorial 5
+  ]
+  memory-should-contain [
+    1 <- 120
+  ]
+]
-- 
cgit 1.4.1-2-gfad0