14 lines
228 B
Text
14 lines
228 B
Text
def Fibonacci
|
|
dup 0 < if
|
|
"Invalid argument: " print
|
|
else
|
|
1 1 rot 2 -
|
|
for
|
|
drop
|
|
over over +
|
|
endfor
|
|
endif
|
|
enddef
|
|
|
|
10 Fibonacci pstack print nl
|
|
-10 Fibonacci print
|