view samples/testarray.tp @ 368:0673ccbc7379

Add clone bethod to bytearray module
author Michael Pavone <pavone@retrodev.com>
date Sun, 09 Aug 2015 20:00:08 -0700
parents 810b6115c1d4
children
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
		print: "" . ((sum: foo) + (sum: bar)) . "\n"
		val <- bar pop
		print: "popped off: " . val . ", new length: " . (bar length) . "\n"
	}
}