Mercurial > repos > tabletprog
diff samples/slist.tp @ 170:18598163e3ef
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" + } +}