12 lines
233 B
Text
12 lines
233 B
Text
fib: function [x][
|
|
; Using scoped function fibI inside fib
|
|
fibI: function [n][
|
|
(n<2)? -> n -> add fibI n-2 fibI n-1
|
|
]
|
|
if x < 0 -> panic "Invalid argument"
|
|
return fibI x
|
|
]
|
|
|
|
loop 0..4 'x [
|
|
print fib x
|
|
]
|