diff --git a/extra/benchmark/binary-search/binary-search.factor b/extra/benchmark/binary-search/binary-search.factor index 5883836b7d..a7af66ed7e 100644 --- a/extra/benchmark/binary-search/binary-search.factor +++ b/extra/benchmark/binary-search/binary-search.factor @@ -1,12 +1,10 @@ -! Copyright (C) 2008 Slava Pestov. +! Copyright (C) 2008, 2010 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: binary-search compiler.units kernel math.primes math.ranges -memoize prettyprint sequences ; +USING: binary-search kernel math.primes math.ranges memoize +prettyprint sequences ; IN: benchmark.binary-search -[ - MEMO: primes-under-million ( -- seq ) 1000000 primes-upto ; -] with-compilation-unit +MEMO: primes-under-million ( -- seq ) 1000000 primes-upto ; ! Force computation of the primes list before benchmarking the binary search primes-under-million drop