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)
|