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

benchmark.binary-search: remove print in favor of assert.

db4
John Benediktsson 2012-07-13 16:11:01 -07:00
parent 40db157be2
commit e8024370f7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/benchmark/binary-search/binary-search.factor
View File

@ -10,6 +10,7 @@ MEMO: primes-under-million ( -- seq ) 1000000 primes-upto ;
primes-under-million drop primes-under-million drop
: binary-search-benchmark ( -- ) : binary-search-benchmark ( -- )
1 1000000 [a,b] [ primes-under-million sorted-member? ] map length . ; 1 1000000 [a,b] [ primes-under-million sorted-member? ] map
length 1000000 assert= ;
MAIN: binary-search-benchmark MAIN: binary-search-benchmark