Mercurial > repos > tabletprog
diff 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 |
line wrap: on
line diff
--- a/samples/testarray.tp Tue Jul 10 23:18:14 2012 -0700 +++ b/samples/testarray.tp Wed Jul 11 19:17:24 2012 -0700 @@ -1,11 +1,18 @@ #{ + sum <- :arr { + cursum <- 0 + foreach: arr :idx el { + cursum <- cursum + el + } + cursum + } main <- { foo <- #[42 30 28] - sum <- 0 - foreach: foo :idx el { - sum <- sum + el - } - sum + bar <- #[] + bar append: 30 + bar append: 28 + bar append: 42 + (sum: foo) + (sum: bar) } }