2008-08-24 04:59:22 -04:00
|
|
|
! Copyright (C) 2008 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2008-12-29 15:29:26 -05:00
|
|
|
USING: binary-search kernel math.primes.list math.ranges sequences
|
2008-08-24 04:59:22 -04:00
|
|
|
prettyprint ;
|
|
|
|
|
IN: benchmark.binary-search
|
|
|
|
|
|
|
|
|
|
: binary-search-benchmark ( -- )
|
|
|
|
|
1 1000000 [a,b] [ primes-under-million sorted-member? ] map length . ;
|
|
|
|
|
|
2008-12-29 15:29:26 -05:00
|
|
|
! Force computation of the primes list before benchmarking the binary search
|
|
|
|
|
primes-under-million drop
|
|
|
|
|
|
2008-08-24 04:59:22 -04:00
|
|
|
MAIN: binary-search-benchmark
|
