| Author: | mrjbq7 |
|---|---|
| Mode: | factor |
| Date: | Mon, 16 May 2011 23:08:37 |
MEMO: slow-fib ( m -- n )
dup 0 >= [ throw ] unless
dup 2 >= [
[ 2 - slow-fib ] [ 1 - slow-fib ] bi +
] when ;
! try this to get "Retain stack overflow":
! ( scratchpad ) 100000 slow-fib