Mercurial > repos > tabletprog

view samples/slist.tp @ 257:be224817a14b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix fold on ast nodes so that all nodes get visited
author Michael Pavone <pavone@retrodev.com>
date Sun, 01 Jun 2014 17:20:29 -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"
	}
}