IN: scratchpad
USE: compiler
USE: kernel
USE: math
USE: test
: fib ( n -- nth fibonacci number )
dup 1 <= [ drop 1 ] [ pred dup fib swap pred fib + ] ifte ;
compiled
[ 9227465 ] [ 34 fib ] unit-test