All pastes #266335 Raw Edit

Mine

public text v1 · immutable
·published 2006-12-04 01:00 UTC
rendered paste body
: fib ( n -- )
  { { [ dup 0 = ] [ drop 1 ] }
    { [ dup 1 = ] [ drop 1 ] }
    { [ dup 1 > ] [ dup 1 - fib  swap  2 - fib + ] } } cond ;