Mercurial > repos > tabletprog
annotate samples/recursive_closure.tp @ 57:08ae75d90dc2
Add != operator. Fix more closure bugs.
| author | Mike Pavone <pavone@retrodev.com> |
|---|---|
| date | Sat, 14 Jul 2012 00:00:24 -0700 |
| parents | 93ddb4ad6fcb |
| children | 3a169ebb3224 |
| rev | line source |
|---|---|
| 55 | 1 #{ |
| 2 true <- #{ | |
| 3 if:else <- :self trueblock :elseblock { | |
| 4 trueblock: | |
| 5 } | |
| 6 } | |
| 7 | |
| 8 false <- #{ | |
| 9 if:else <- :self trueblock :elseblock { | |
| 10 elseblock: | |
| 11 } | |
| 12 } | |
| 13 main <- { | |
| 14 foo <- :n { | |
| 15 if: n < 10 { | |
| 16 true | |
| 17 } else: { | |
| 18 foo <- :n { n } | |
| 19 } | |
| 20 foo: n + 1 | |
| 21 } | |
| 22 print: (string: (foo: 0)) | |
| 23 } | |
| 24 } |