steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

memoize: cleaner test case.

db4
John Benediktsson 2012-05-04 20:43:23 -07:00
parent bd1b3534b5
commit 47bb96d194
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/memoize/memoize-tests.factor
View File

@ -35,10 +35,8 @@ unit-test
[ 9 ] [ 3 "q" get call ] unit-test [ 9 ] [ 3 "q" get call ] unit-test
: foo ( x -- ) MEMO[ seconds sleep ] ;
[ t ] [ [ t ] [
{ 1/8 1/8 1/8 1/8 1/16 1/16 1/16 } { 1/8 1/8 1/8 1/8 1/16 1/16 1/16 }
[ [ foo ] each ] benchmark [ [ MEMO[ seconds sleep ] ] each ] benchmark
0.18e9 0.25e9 between? 0.18e9 0.25e9 between?
] unit-test ] unit-test