Mercurial > repos > tabletprog

annotate samples/range.tp @ 347:ff7ea11b4b60

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add length method to executable bytearrays
author Michael Pavone <pavone@retrodev.com>
date Fri, 10 Apr 2015 00:48:12 -0700
parents 21e20c9bb2ba
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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 }