Mercurial > repos > tabletprog
comparison samples/testarray.tp @ 40:927fd7911a01
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 |