comp/lucas-standen-NEA/code2/examples/fib_example.zpy


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

(defun fib int n:int)
	(if (< n 2))
		(return n)
	(endif)

	(return (+ (fib (- n 1)) (fib (- n 2))))
(endfun)

(defun main int)
	(printstr "give me a number (bellow 30 if you want it to be quick): ")
	(let n:int (readint))
	(printint (fib n))
	(printchar '\n')
(endfun)