mirror of
https://github.com/usatiuk/psil.git
synced 2025-10-28 10:47:49 +01:00
13 lines
156 B
Plaintext
13 lines
156 B
Plaintext
(define (fib n)
|
|
(if (> n 0)
|
|
(if (> n 1)
|
|
(+ (fib (- n 1))
|
|
(fib (- n 2)))
|
|
1)
|
|
0)
|
|
)
|
|
|
|
(fib 10)
|
|
(fib 11)
|
|
(fib 12)
|