Mercurial > repos > tabletprog

view samples/slist.tp @ 351:04ba2118c5fe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rename (dict hash) size to (dict hash) length and make it actually work
author Michael Pavone <pavone@retrodev.com>
date Mon, 13 Apr 2015 22:41:00 -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"
	}
}