Mercurial > repos > tabletprog
comparison samples/testarray.tp @ 377:93c28eee141e default tip
Merge
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 15 Aug 2015 22:45:33 -0700 |
parents | 810b6115c1d4 |
children |
comparison
equal
deleted
inserted
replaced
376:d61b1f0e1936 | 377:93c28eee141e |
---|---|
11 bar <- #[] | 11 bar <- #[] |
12 bar append: 30 | 12 bar append: 30 |
13 bar append: 28 | 13 bar append: 28 |
14 bar append: 42 | 14 bar append: 42 |
15 print: "" . ((sum: foo) + (sum: bar)) . "\n" | 15 print: "" . ((sum: foo) + (sum: bar)) . "\n" |
16 val <- bar pop | |
17 print: "popped off: " . val . ", new length: " . (bar length) . "\n" | |
16 } | 18 } |
17 } | 19 } |
18 | 20 |