about summary refs log tree commit diff stats
path: root/archive/3.transect/factorial.k2
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2020-01-01 17:04:37 -0800
committerKartik Agaram <vc@akkartik.com>2020-01-01 17:04:37 -0800
commit2a4088119cf41175457414dfa59bd4064b8f0562 (patch)
tree64fe184e399f9870ebd481a90eec34d51e5dff68 /archive/3.transect/factorial.k2
parent23fd294d85959c6b476bcdc35ed6ad508cc99b8f (diff)
downloadmu-2a4088119cf41175457414dfa59bd4064b8f0562.tar.gz
5852
Diffstat (limited to 'archive/3.transect/factorial.k2')
-rw-r--r--archive/3.transect/factorial.k216
1 files changed, 0 insertions, 16 deletions
diff --git a/archive/3.transect/factorial.k2 b/archive/3.transect/factorial.k2
deleted file mode 100644
index 79269773..00000000
--- a/archive/3.transect/factorial.k2
+++ /dev/null
@@ -1,16 +0,0 @@
-# compute the factorial of 5, and return the result in the exit code
-
-fn factorial n : int -> result/EAX : int [
-  result/EAX <- copy 1
-  {
-    compare n, 1
-    break-if <=
-    var tmp/EBX : int
-    tmp/EBX <- copy n
-    tmp/EBX <- subtract 1
-    var tmp2/EAX : int
-    tmp2/EAX <- call factorial, tmp/EBX
-    result/EAX <- multiply tmp2/EAX, n
-  }
-  return result/EAX
-]