7 lines
198 B
Text
7 lines
198 B
Text
|
define('ifib(n)f1,f2') :(ifib_end)
|
||
|
|
ifib ifib = le(n,2) 1 :s(return)
|
||
|
|
f1 = 1; f2 = 1
|
||
|
|
if1 ifib = gt(n,2) f1 + f2 :f(return)
|
||
|
|
f1 = f2; f2 = ifib; n = n - 1 :(if1)
|
||
|
|
ifib_end
|