Mercurial > repos > tabletprog

view samples/slist.tp @ 229:7435367a932a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Allow newlines between binary operator and the right argument to the operator
author Michael Pavone <pavone@retrodev.com>
date Thu, 02 Jan 2014 21:02:11 -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"
	}
}