1
# ----------------------------------------------------------------------------
3
# - afnix example : chapter 1 : example 05 -
4
# ----------------------------------------------------------------------------
5
# - This program is free software; you can redistribute it and/or modify -
6
# - it provided that this copyright notice is kept intact. -
8
# - This program is distributed in the hope that it will be useful, but -
9
# - without any warranty; without even the implied warranty of -
10
# - merchantability or fitness for a particular purpose. In not event shall -
11
# - the copyright holder be liable for any direct, indirect, incidental or -
12
# - special damages arising in any way out of the use of this software. -
13
# ----------------------------------------------------------------------------
14
# - copyright (c) 1999-2011 amaury darsch -
15
# ----------------------------------------------------------------------------
17
# the famous fibonacci
18
const fibo (gamma (n) (
19
if (< n 2) n (+ (fibo (- n 1)) (fibo (- n 2)))))
22
println "fibo 10 = " (fibo 10)