diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-07-28 14:33:22 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-07-28 14:33:22 -0700 |
commit | bc6436927640603675e2e700007f53c5ab213869 (patch) | |
tree | e8f76a871ac4118223e03015f32e6bd687a7bd49 /tangle.mu | |
parent | aa0888459fc2ca41b0ad6bef5bfa72223ca33945 (diff) | |
download | mu-bc6436927640603675e2e700007f53c5ab213869.tar.gz |
1868 - start using naked literals everywhere
First step to reducing typing burden. Next step: inferring types.
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, [ ] ] |