Mercurial > repos > tabletprog
diff samples/oper_impl.tp @ 126:a2d2d8e09291
Merge
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Mon, 05 Aug 2013 23:37:17 -0700 |
parents | 9820ecd4eed4 |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/samples/oper_impl.tp Mon Aug 05 23:37:17 2013 -0700 @@ -0,0 +1,20 @@ +#{ + pair <- :a b { + #{ + first <- a + second <- b + + <- :other { + pair: first + (other first) second + (other second) + } + } + } + + main <- { + foo <- pair: 5 7 + bar <- pair: 9 23 + baz <- foo + bar + print: ((baz first) string) . "\n" + print: ((baz second) string) . "\n" + 0 + } +}