1 ! Copyright (C) 2007, 2009 Slava Pestov, Daniel Ehrenberg.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: math kernel memoize tools.test parser generalizations
4 prettyprint io.streams.string sequences eval namespaces see ;
8 dup 1 <= [ drop 1 ] [ dup 1 - fib swap 2 - fib + ] if ;
10 MEMO: x ( a b c d e -- f g h i j )
13 [ 89 ] [ 10 fib ] unit-test
23 MEMO: see-test ( a -- b ) reverse ;
25 [ "USING: memoize sequences ;\nIN: memoize.tests\nMEMO: see-test ( a -- b ) reverse ;\n" ]
26 [ [ \ see-test see ] with-string-writer ]
29 [ ] [ "IN: memoize.tests : fib ( -- ) ;" eval( -- ) ] unit-test
31 [ "IN: memoize.tests\n: fib ( -- ) ;\n" ] [ [ \ fib see ] with-string-writer ] unit-test
33 [ sq ] ( a -- b ) memoize-quot "q" set
35 [ 9 ] [ 3 "q" get call ] unit-test