factor/extra/memoize/memoize-tests.factor

! Copyright (C) 2007 Slava Pestov, Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license.
USING: math kernel memoize tools.test parser ;
IN: memoize.tests

MEMO: fib ( m -- n )
    dup 1 <= [ drop 1 ] [ dup 1 - fib swap 2 - fib + ] if ;

[ 89 ] [ 10 fib ] unit-test

[ "USING: kernel math memoize ; IN: memoize.tests MEMO: x ( a b c d e -- f g h i j ) >r >r >r >r 1+ r> r> r> r> ;" eval ] must-fail
Initial import 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 ;`
extra changes: index* -> index-from last-index* -> last-index-from 1 tail -> rest 1 tail-slice -> rest-slice subset -> filter prepose find* -> find-from find-last* -> find-last-from before, after generic, < for integers make between? work for timestamps 2008-04-26 00:17:08 -04:00			`IN: memoize.tests`
Initial import 2007-09-20 18:09:08 -04:00
			`MEMO: fib ( m -- n )`
			`dup 1 <= [ drop 1 ] [ dup 1 - fib swap 2 - fib + ] if ;`

			`[ 89 ] [ 10 fib ] unit-test`

reverse args for assoc-diff, diff fix lots of usings fix help lint 2008-04-26 03:01:43 -04:00			`[ "USING: kernel math memoize ; IN: memoize.tests MEMO: x ( a b c d e -- f g h i j ) >r >r >r >r 1+ r> r> r> r> ;" eval ] must-fail`