18 lines
308 B
Plaintext
18 lines
308 B
Plaintext
to fib "loop
|
|
make "fib1 0
|
|
make "fib2 1
|
|
|
|
type [You requested\ ]
|
|
type :loop
|
|
print [\ Fibonacci Numbers]
|
|
type :fib1
|
|
type [\ ]
|
|
type :fib2
|
|
type [\ ]
|
|
|
|
make "loop :loop - 2
|
|
repeat :loop [ make "fibnew :fib1 + :fib2 type :fibnew type [\ ] make "fib1 :fib2 make "fib2 :fibnew ]
|
|
print [\ ]
|
|
|
|
end
|