12 lines
181 B
Text
12 lines
181 B
Text
def over
|
|
swap dup rot swap
|
|
enddef
|
|
|
|
|Enter a number to obtain Fibonacci sequence: | input nip var count .
|
|
0 1
|
|
FOR count
|
|
over out |, | out . + swap
|
|
ENDFOR
|
|
. print
|
|
input
|
|
clear
|