view samples/fibmacro.tp @ 306:8dbb2d2522a5

Fix a crash in from:withLength when given a negative length. Fix a bug in trim that was causing it to give a negative length to from:withLength
author Michael Pavone <pavone@retrodev.com>
date Sun, 27 Jul 2014 13:01:08 -0700
parents 647f7a2d253b
children
line wrap: on
line source

#{
fib <- :n {
	if: n < 2 {
		1
	} else: {
		(fib: n-1) + (fib: n-2)
	}
}
fibm <- macro: :n {
	eval: n :n {
		fib: n
	} else: {
		quote: (fib: n)
	}
}

main <- {
	print: (string: (fibm: 20)) . "\n"
}

}