2009-02-24 00:28:02 -05:00
|
|
|
! Copyright (C) 2007, 2009 Slava Pestov, Daniel Ehrenberg.
|
2007-09-20 18:09:08 -04:00
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2012-05-05 01:24:21 -04:00
|
|
|
USING: math kernel memoize tools.test parser generalizations
|
|
|
|
prettyprint io.streams.string sequences eval namespaces see ;
|
2008-04-26 00:17:08 -04:00
|
|
|
IN: memoize.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
MEMO: fib ( m -- n )
|
|
|
|
dup 1 <= [ drop 1 ] [ dup 1 - fib swap 2 - fib + ] if ;
|
|
|
|
|
2009-10-08 13:24:07 -04:00
|
|
|
MEMO: x ( a b c d e -- f g h i j )
|
|
|
|
[ 1 + ] 4 ndip ;
|
|
|
|
|
2015-07-02 20:28:17 -04:00
|
|
|
{ 89 } [ 10 fib ] unit-test
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2015-07-02 20:28:17 -04:00
|
|
|
{
|
2009-10-08 13:24:07 -04:00
|
|
|
1 0 0 0 0
|
|
|
|
1 0 0 0 0
|
2015-07-02 20:28:17 -04:00
|
|
|
} [
|
2009-10-08 13:24:07 -04:00
|
|
|
0 0 0 0 0 x
|
|
|
|
0 0 0 0 0 x
|
|
|
|
] unit-test
|
2008-05-28 19:17:58 -04:00
|
|
|
|
|
|
|
MEMO: see-test ( a -- b ) reverse ;
|
|
|
|
|
2015-07-02 20:28:17 -04:00
|
|
|
{ "USING: memoize sequences ;\nIN: memoize.tests\nMEMO: see-test ( a -- b ) reverse ;\n" }
|
2008-05-28 19:17:58 -04:00
|
|
|
[ [ \ see-test see ] with-string-writer ]
|
|
|
|
unit-test
|
|
|
|
|
2015-07-02 20:28:17 -04:00
|
|
|
{ } [ "IN: memoize.tests : fib ( -- ) ;" eval( -- ) ] unit-test
|
2008-05-28 19:17:58 -04:00
|
|
|
|
2015-07-02 20:28:17 -04:00
|
|
|
{ "IN: memoize.tests\n: fib ( -- ) ;\n" } [ [ \ fib see ] with-string-writer ] unit-test
|
2009-02-24 00:28:02 -05:00
|
|
|
|
2011-10-18 16:18:42 -04:00
|
|
|
[ sq ] ( a -- b ) memoize-quot "q" set
|
2009-02-24 00:28:02 -05:00
|
|
|
|
2015-07-02 20:28:17 -04:00
|
|
|
{ 9 } [ 3 "q" get call ] unit-test
|