Mercurial > repos > tabletprog
annotate samples/range.tp @ 354:a6cdcc1b1c02
Fix il and llcompile modules enough that it actually attempts to run the compiled program
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 15 Apr 2015 20:08:38 -0700 |
parents | 21e20c9bb2ba |
children |
rev | line source |
---|---|
343
21e20c9bb2ba
Added range module and sample
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
1 #{ |
21e20c9bb2ba
Added range module and sample
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
2 main <- { |
21e20c9bb2ba
Added range module and sample
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
3 foreach: (range from: 10 to: 20) :idx el { |
21e20c9bb2ba
Added range module and sample
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
4 print: (string: idx) . ": " . el . "\n" |
21e20c9bb2ba
Added range module and sample
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
5 } |
21e20c9bb2ba
Added range module and sample
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
6 sum <- (range from: 0 to: 100 by: 3) fold: 0 with: :acc el { |
21e20c9bb2ba
Added range module and sample
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
7 acc + el |
21e20c9bb2ba
Added range module and sample
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
8 } |
21e20c9bb2ba
Added range module and sample
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
9 print: "Sum of range from: 0 to: 100 by: 3 is " . sum . "\n" |
21e20c9bb2ba
Added range module and sample
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
10 } |
21e20c9bb2ba
Added range module and sample
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
11 } |