diff options
Diffstat (limited to 'archive/1.vm.arc/factorial.mu')
-rw-r--r-- | archive/1.vm.arc/factorial.mu | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/archive/1.vm.arc/factorial.mu b/archive/1.vm.arc/factorial.mu deleted file mode 100644 index 96a28fd3..00000000 --- a/archive/1.vm.arc/factorial.mu +++ /dev/null @@ -1,22 +0,0 @@ -(function factorial [ - (default-space:space-address <- new space:literal 30:literal) - (n:integer <- next-input) - { begin - ; if n=0 return 1 - (zero?:boolean <- equal n:integer 0:literal) - (break-unless zero?:boolean) - (reply 1:literal) - } - ; return n*factorial(n-1) - (x:integer <- subtract n:integer 1:literal) - (subresult:integer <- factorial x:integer) - (result:integer <- multiply subresult:integer n:integer) - (reply result:integer) -]) - -(function main [ - (1:integer <- factorial 5:literal) - ($print (("result: " literal))) - (print-integer nil:literal/terminal 1:integer) - ($print (("\n" literal))) -]) |