summaryrefslogtreecommitdiff
path: root/comp/lucas-standen-NEA/writeup2/examples/fib_example.zpy
blob: 2c66618875f9b4311a8840bf0e9f11c045a30685 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
(defun fib int n:int)
	(if (< n 2))
		(return n)
	(endif)

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

(defun main int)
	(let n:int 30)
	(printint (fib n))
	(printchar '\n')
(endfun)