diff --git a/extra/benchmark/binary-search/binary-search.factor b/extra/benchmark/binary-search/binary-search.factor index e5c81a954d..5883836b7d 100644 --- a/extra/benchmark/binary-search/binary-search.factor +++ b/extra/benchmark/binary-search/binary-search.factor @@ -1,13 +1,17 @@ ! Copyright (C) 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: binary-search kernel math.primes.list math.ranges sequences -prettyprint ; +USING: binary-search compiler.units kernel math.primes math.ranges +memoize prettyprint sequences ; IN: benchmark.binary-search -: binary-search-benchmark ( -- ) - 1 1000000 [a,b] [ primes-under-million sorted-member? ] map length . ; +[ + MEMO: primes-under-million ( -- seq ) 1000000 primes-upto ; +] with-compilation-unit ! Force computation of the primes list before benchmarking the binary search primes-under-million drop +: binary-search-benchmark ( -- ) + 1 1000000 [a,b] [ primes-under-million sorted-member? ] map length . ; + MAIN: binary-search-benchmark diff --git a/extra/math/primes/list/authors.txt b/extra/math/primes/list/authors.txt deleted file mode 100644 index 7c1b2f2279..0000000000 --- a/extra/math/primes/list/authors.txt +++ /dev/null @@ -1 +0,0 @@ -Doug Coleman diff --git a/extra/math/primes/list/list.factor b/extra/math/primes/list/list.factor deleted file mode 100644 index 7467d126d0..0000000000 --- a/extra/math/primes/list/list.factor +++ /dev/null @@ -1,4 +0,0 @@ -USING: math.primes memoize ; -IN: math.primes.list - -MEMO: primes-under-million ( -- seq ) 1000000 primes-upto ;