aocla/examples/fib.aocla
2023-01-30 22:33:15 +01:00

16 lines
158 B
Text

// Fibonacci example
[(n)
[$n 1 <=]
[
$n
]
[
$n 1 - fib
$n 2 - fib
+
] ifelse
] 'fib def
10 fib
printnl