11 lines
224 B
Text
11 lines
224 B
Text
local fib n:
|
|
if <= n 1:
|
|
n
|
|
else:
|
|
+ fib - n 1 fib - n 2
|
|
|
|
local :code !compile-string dup "-- fib x" #one less than the xth fibonacci number
|
|
|
|
!run-blob-in { :fib @fib :x 4 } code
|
|
!run-blob-in { :fib @fib :x 6 } code
|
|
!. -
|