Mercurial > repos > tabletprog

view samples/slist.tp @ 222:c6e321a538d4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Implemented more of the grammar. Dealt with some name conflicts along the way.
author Michael Pavone <pavone@retrodev.com>
date Sun, 29 Dec 2013 13:08:01 -0800
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"
	}
}