Mercurial > repos > tabletprog

diff samples/slist.tp @ 170:18598163e3ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add linked list implementation and cons operator
author Mike Pavone <pavone@retrodev.com>
date Tue, 13 Aug 2013 21:58:03 -0700
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/samples/slist.tp	Tue Aug 13 21:58:03 2013 -0700
@@ -0,0 +1,13 @@
+#{
+	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"
+	}
+}