21 lines
159 B
Plaintext
21 lines
159 B
Plaintext
( iterative fibonacci sequence )
|
|
|
|
: fib
|
|
0 1
|
|
begin
|
|
rot
|
|
dup 0>
|
|
while
|
|
1-
|
|
rot rot
|
|
dup
|
|
dup .
|
|
rot
|
|
+
|
|
repeat
|
|
;
|
|
|
|
15 fib
|
|
|
|
ret
|