Mercurial > repos > rhope
comparison testlistliteral.rhope @ 92:e73a93fb5de1
Beginning of port of compiler to itself, some bugfixes and a refcount optimization
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Mon, 02 Aug 2010 00:58:55 -0400 |
parents | bcdc326b3d6e |
children |
comparison
equal
deleted
inserted
replaced
91:bcdc326b3d6e | 92:e73a93fb5de1 |
---|---|
1 | |
2 Print List[idx, list] | |
3 { | |
4 [list]Index[idx] | |
5 { | |
6 Print[~] | |
7 { Print List[[idx]+[1], list]} | |
8 } | |
9 } | |
1 | 10 |
2 Main[] | 11 Main[] |
3 { | 12 { |
4 Print[Fold[+[?], 0, (5,27,39,43)]] | 13 Print[Fold[+[?], 0, (5,27,39,43)]] |
14 { Print List[0, ("foo","bar","baz")] } | |
5 } | 15 } |