diff options
Diffstat (limited to 'tangle.mu')
| -rw-r--r-- | tangle.mu | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tangle.mu b/tangle.mu index 8ac7abe6..121bfbcc 100644 --- a/tangle.mu +++ b/tangle.mu @@ -17,21 +17,21 @@ recipe factorial [ after +base-case [ # if n=0 return 1 - zero?:boolean <- equal n:number, 0:literal + zero?:boolean <- equal n:number, 0 break-unless zero?:boolean - reply 1:literal + reply 1 ] after +recursive-case [ # return n * factorial(n - 1) - x:number <- subtract n:number, 1:literal + x:number <- subtract n:number, 1 subresult:number <- factorial x:number result:number <- multiply subresult:number, n:number reply result:number ] recipe main [ - 1:number <- factorial 5:literal + 1:number <- factorial 5 $print [result: ], 1:number, [ ] ] |