diff options
Diffstat (limited to 'counters.mu')
-rw-r--r-- | counters.mu | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/counters.mu b/counters.mu index ef841400..71d9cfc9 100644 --- a/counters.mu +++ b/counters.mu @@ -3,16 +3,16 @@ recipe init-counter [ default-space:address:array:location <- new location:type, 30:literal - n:integer <- next-ingredient + n:number <- next-ingredient reply default-space:address:space ] recipe increment-counter [ default-space:address:array:location <- new location:type, 30:literal 0:address:array:location/names:init-counter <- next-ingredient # setup outer space; it *must* come from 'init-counter' - x:integer <- next-ingredient - n:integer/space:1 <- add n:integer/space:1, x:integer - reply n:integer/space:1 + x:number <- next-ingredient + n:number/space:1 <- add n:number/space:1, x:number + reply n:number/space:1 ] recipe main [ @@ -23,12 +23,12 @@ recipe main [ b:address:space <- init-counter 23:literal # increment both by 2 but in different ways increment-counter a:address:space, 1:literal - b-value:integer <- increment-counter b:address:space, 2:literal - a-value:integer <- increment-counter a:address:space, 1:literal + b-value:number <- increment-counter b:address:space, 2:literal + a-value:number <- increment-counter a:address:space, 1:literal # check results $print [Contents of counters ] # trailing space in next line is to help with syntax highlighting - $print [a: ], a-value:integer, [ b: ], b-value:integer, [ + $print [a: ], a-value:number, [ b: ], b-value:number, [ ] ] |