2007-09-20 18:09:08 -04:00
|
|
|
! Copyright (C) 2007 Slava Pestov, Daniel Ehrenberg.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: math kernel memoize tools.test parser ;
|
|
|
|
|
|
|
|
|
|
MEMO: fib ( m -- n )
|
|
|
|
|
dup 1 <= [ drop 1 ] [ dup 1 - fib swap 2 - fib + ] if ;
|
|
|
|
|
|
|
|
|
|
[ 89 ] [ 10 fib ] unit-test
|
|
|
|
|
|
2008-02-06 14:47:19 -05:00
|
|
|
[ "USING: kernel math memoize ; MEMO: x ( a b c d e -- f g h i j ) >r >r >r >r 1+ r> r> r> r> ;" eval ] must-fail
|
