Mercurial > repos > tabletprog
diff samples/range.tp @ 343:21e20c9bb2ba
Added range module and sample
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Sun, 05 Apr 2015 23:35:05 -0700 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/samples/range.tp Sun Apr 05 23:35:05 2015 -0700 @@ -0,0 +1,11 @@ +#{ + main <- { + foreach: (range from: 10 to: 20) :idx el { + print: (string: idx) . ": " . el . "\n" + } + sum <- (range from: 0 to: 100 by: 3) fold: 0 with: :acc el { + acc + el + } + print: "Sum of range from: 0 to: 100 by: 3 is " . sum . "\n" + } +} \ No newline at end of file