diff options
Diffstat (limited to 'generic.mu')
| -rw-r--r-- | generic.mu | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic.mu b/generic.mu index 4486e8bc..1392394a 100644 --- a/generic.mu +++ b/generic.mu @@ -5,7 +5,6 @@ (function factorial [ (default-space:space-address <- new space:literal 30:literal) (n:integer <- input 0:literal) - more-clauses (x:integer <- subtract n:integer 1:literal) (subresult:integer <- factorial x:integer) (result:integer <- multiply subresult:integer n:integer) @@ -13,7 +12,9 @@ ]) ; factorial 0 = 1 -(after factorial/more-clauses [ +(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) |