core/memoize/memoize-tests.factor

   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 ;
   5 IN: memoize.tests
   6
   7 MEMO: fib ( m -- n )
   8     dup 1 <= [ drop 1 ] [ dup 1 - fib swap 2 - fib + ] if ;
   9
  10 MEMO: x ( a b c d e -- f g h i j )
  11     [ 1 + ] 4 ndip ;
  12
  13 { 89 } [ 10 fib ] unit-test
  14
  15 {
  16     1 0 0 0 0
  17     1 0 0 0 0
  18 } [
  19     0 0 0 0 0 x
  20     0 0 0 0 0 x
  21 ] unit-test
  22
  23 MEMO: see-test ( a -- b ) reverse ;
  24
  25 { "USING: sequences ;\nIN: memoize.tests\nMEMO: see-test ( a -- b ) reverse ;\n" }
  26 [ [ \ see-test see ] with-string-writer ]
  27 unit-test
  28
  29 { } [ "IN: memoize.tests : fib ( -- ) ;" eval( -- ) ] unit-test
  30
  31 { "IN: memoize.tests\n: fib ( -- ) ;\n" } [ [ \ fib see ] with-string-writer ] unit-test
  32
  33 [ sq ] ( a -- b ) memoize-quot "q" set
  34
  35 { 9 } [ 3 "q" get call ] unit-test