extra/memoize/memoize-tests.factor

   1 ! Copyright (C) 2007 Slava Pestov, Daniel Ehrenberg.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: math kernel memoize tools.test parser ;
   4
   5 MEMO: fib ( m -- n )
   6     dup 1 <= [ drop 1 ] [ dup 1 - fib swap 2 - fib + ] if ;
   7
   8 [ 89 ] [ 10 fib ] unit-test
   9
  10 [ "USE: memoize MEMO: x ( a b c d e -- f g h i j ) >r >r >r >r 1+ r> r> r> r> ;" parse ] unit-test-fails