Mercurial > repos > tabletprog

comparison samples/testarray.tp @ 377:93c28eee141e default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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