From b7631c98cfc5012809ed65468948314c9f07b477 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 17 Apr 2010 00:57:53 -0500 Subject: [PATCH] benchmark.binary-search: cleanup --- extra/benchmark/binary-search/binary-search.factor | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) 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