Mercurial > repos > tabletprog

view samples/slist.tp @ 196:228df5004ab5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Define methods in an object before running populate symbols on those methods to avoid a bug in which self was not properly marked as closed over due to a method not being defined when a symbol search was done
author Mike Pavone <pavone@retrodev.com>
date Tue, 27 Aug 2013 21:38:09 -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"
	}
}