Mercurial > repos > tabletprog

view samples/slist.tp @ 276:9f9cc73bf86d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added toplevel module which will provide top level symbols for new compiler
author Michael Pavone <pavone@retrodev.com>
date Sun, 20 Jul 2014 12:48:37 -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"
	}
}