planckforth/example/fib.fs
Koichi Nakamura 7ee972882b Change fib.fs
2021-01-09 20:24:36 +09:00

2 lines
73 B
Forth

: fib dup 2 < unless 1- dup recurse swap 1- recurse + then ;
10 fib . cr