Mercurial > repos > tabletprog

comparison samples/fibmacro.tp @ 298:647f7a2d253b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 }