5954 - 'factorial' working!

1 files changed, 19 insertions, 0 deletions

diff --git a/apps/factorial.mu b/apps/factorial.mu
new file mode 100644
index 00000000..f306de25
--- /dev/null
+++ b/apps/factorial.mu
@@ -0,0 +1,19 @@
+fn main -> result/ebx: int {
+  var tmp/eax: int <- factorial 5
+  result <- copy tmp
+}
+
+fn factorial n: int -> result/eax: int {
+  compare n 1
+  {
+    break-if->
+    result <- copy 1
+  }
+  {
+    break-if-<=
+    var tmp/ecx: int <- copy n
+    tmp <- decrement
+    result <- factorial tmp
+    result <- multiply n
+  }
+}