1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2025-01-15 15:40:58 +01:00
planckforth/example/fib.fs
2021-01-10 01:14:42 +09:00

2 lines
73 B
Forth

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