about summary refs log tree commit diff stats
path: root/tangle.mu
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-05-13 10:03:26 -0700
committerKartik K. Agaram <vc@akkartik.com>2015-05-13 10:03:26 -0700
commit5497090aa1e708c22cd240913a53dda32bb067aa (patch)
tree5a9eb76d447736a8199230c9386bd0a374b325dd /tangle.mu
parent01caf342d072115c27926b1a61c2fc75ab9fbee0 (diff)
downloadmu-5497090aa1e708c22cd240913a53dda32bb067aa.tar.gz
1363 - rename 'integer' to 'number'
..now that we support non-integers.
Diffstat (limited to 'tangle.mu')
-rw-r--r--tangle.mu16
1 files changed, 8 insertions, 8 deletions
diff --git a/tangle.mu b/tangle.mu
index cb322e46..9d04863c 100644
--- a/tangle.mu
+++ b/tangle.mu
@@ -8,7 +8,7 @@
 
 recipe factorial [
   default-space:address:array:location <- new location:type, 30:literal
-  n:integer <- next-ingredient
+  n:number <- next-ingredient
   {
     +base-case
   }
@@ -17,21 +17,21 @@ recipe factorial [
 
 after +base-case [
   # if n=0 return 1
-  zero?:boolean <- equal n:integer, 0:literal
+  zero?:boolean <- equal n:number, 0:literal
   break-unless zero?:boolean
   reply 1:literal
 ]
 
 after +recursive-case [
   # 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
+  x:number <- subtract n:number, 1:literal
+  subresult:number <- factorial x:number
+  result:number <- multiply subresult:number, n:number
+  reply result:number
 ]
 
 recipe main [
-  1:integer <- factorial 5:literal
-  $print [result: ], 1:integer, [
+  1:number <- factorial 5:literal
+  $print [result: ], 1:number, [
 ]
 ]