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 /arc/generic.mu | |
parent | 8846a7f85cc04b77b2fe8a67b6d317723437b00c (diff) | |
download | mu-6e1eeeebfb453fa7c871869c19375ce60fbd7413.tar.gz |
5485 - promote SubX to top-level
Diffstat (limited to 'arc/generic.mu')
-rw-r--r-- | arc/generic.mu | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/arc/generic.mu b/arc/generic.mu deleted file mode 100644 index 1c4b9bb0..00000000 --- a/arc/generic.mu +++ /dev/null @@ -1,30 +0,0 @@ -; To demonstrate generic functions, we'll construct a factorial function with -; separate base and recursive clauses. Compare factorial.mu. - -; factorial n = n*factorial(n-1) -(function factorial [ - (default-space:space-address <- new space:literal 30:literal) - (n:integer <- input 0:literal) - (x:integer <- subtract n:integer 1:literal) - (subresult:integer <- factorial x:integer) - (result:integer <- multiply subresult:integer n:integer) - (reply result:integer) -]) - -; factorial 0 = 1 -(function factorial [ - (default-space:space-address <- new space:literal 30:literal) - (n:integer <- input 0:literal) - { begin - (zero?:boolean <- equal n:integer 0:literal) - (break-unless zero?:boolean) - (reply 1:literal) - } -]) - -(function main [ - (1:integer <- factorial 5:literal) - ($print (("result: " literal))) - (print-integer nil:literal/terminal 1:integer) - ($print (("\n" literal))) -]) |