aboutsummaryrefslogtreecommitdiff
path: root/forth/fib.fs
blob: 8f4cfbc6e20edba7c9cf7e23062a2a03b36d1169 (plain)
1
2
3
4
5
-fib
marker fib

: fib ( n -- fib )
  0 1 rot 0 ?do  over + swap  loop drop ;