Mercurial > repos > tabletprog

comparison samples/testarray.tp @ 40:927fd7911a01

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add append message to array
author Mike Pavone <pavone@retrodev.com>
date Wed, 11 Jul 2012 19:17:24 -0700
parents a997e42b9051
children 48daa1d3e052
comparison
equal deleted inserted replaced
39:a997e42b9051 40:927fd7911a01
1 #{ 1 #{
2 sum <- :arr {
3 cursum <- 0
4 foreach: arr :idx el {
5 cursum <- cursum + el
6 }
7 cursum
8 }
2 main <- { 9 main <- {
3 foo <- #[42 30 28] 10 foo <- #[42 30 28]
4 sum <- 0 11 bar <- #[]
5 foreach: foo :idx el { 12 bar append: 30
6 sum <- sum + el 13 bar append: 28
7 } 14 bar append: 42
8 sum 15 (sum: foo) + (sum: bar)
9 } 16 }
10 } 17 }
11 18