Mercurial > repos > tabletprog
comparison samples/fibmacro.tp @ 298:647f7a2d253b
Committing a simple macro example I put together a while ago
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Thu, 24 Jul 2014 23:55:59 -0700 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
297:abe3141caefe | 298:647f7a2d253b |
---|---|
1 #{ | |
2 fib <- :n { | |
3 if: n < 2 { | |
4 1 | |
5 } else: { | |
6 (fib: n-1) + (fib: n-2) | |
7 } | |
8 } | |
9 fibm <- macro: :n { | |
10 eval: n :n { | |
11 fib: n | |
12 } else: { | |
13 quote: (fib: n) | |
14 } | |
15 } | |
16 | |
17 main <- { | |
18 print: (string: (fibm: 20)) . "\n" | |
19 } | |
20 | |
21 } |