diff options
author | Kartik Agaram <vc@akkartik.com> | 2019-07-27 16:01:55 -0700 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2019-07-27 17:47:59 -0700 |
commit | 6e1eeeebfb453fa7c871869c19375ce60fbd7413 (patch) | |
tree | 539c4a3fdf1756ae79770d5c4aaf6366f1d1525e /archive/2.vm/factorial.mu | |
parent | 8846a7f85cc04b77b2fe8a67b6d317723437b00c (diff) | |
download | mu-6e1eeeebfb453fa7c871869c19375ce60fbd7413.tar.gz |
5485 - promote SubX to top-level
Diffstat (limited to 'archive/2.vm/factorial.mu')
-rw-r--r-- | archive/2.vm/factorial.mu | 33 |
1 files changed, 33 insertions, 0 deletions
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 + ] +] |