Mercurial > repos > tabletprog

view samples/slist.tp @ 178:e823e104b845

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add initial work on bytearrays with support for allocating executable memory
author Mike Pavone <pavone@retrodev.com>
date Sat, 24 Aug 2013 09:55:54 -0700
parents 18598163e3ef
children
line wrap: on
line source

#{
	sum <- :l {
		l fold: 0 with: :acc el {
			acc + el
		}
	}
	main <- {
		print: (string: (sum: [])) . "\n"
		print: (string: (sum: [1 2 3 4])) . "\n"
		print: (string: (sum: 1 | 2 | 3 | 4 | [])) . "\n"
		print: (string: (sum: [1 2] . [3 4])) . "\n"
	}
}