fibo.lysp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

(do
	(define 'fibo '(n)
		'(if (= n 0) 0
			'(if (= n 1) 1
				'(+ (fibo (- n 2)) (fibo (- n 1)))
			)
		)
	)
	(print (fibo 1))
	(print (fibo 2))
	(print (fibo 3))
	(print (fibo 4))
	(print (fibo 5))
	(print (fibo 6))
	(print (fibo 7))
	(print (fibo 8))
)