Mercurial > repos > tabletprog

view samples/testarray.tp @ 72:ab6f24d6945d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix determination of whether a method call has an implicit self argument or not. Cleanup C warnings in output.
author Mike Pavone <pavone@retrodev.com>
date Sat, 14 Jul 2012 21:00:21 -0700
parents 927fd7911a01
children 48daa1d3e052
line wrap: on
line source

#{
	sum <- :arr {
		cursum <- 0
		foreach: arr :idx el {
			cursum <- cursum + el
		}
		cursum
	}
	main <- {
		foo <- #[42 30 28]
		bar <- #[]
		bar append: 30
		bar append: 28
		bar append: 42
		(sum: foo) + (sum: bar)
	}
}