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

2012-07-13 16:11:01 -07:00 · 2012-07-13 16:11:01 -07:00 · e8024370f7
parent 40db157be2
commit e8024370f7
1 changed files with 2 additions and 1 deletions
--- a/extra/benchmark/binary-search/binary-search.factor
+++ b/extra/benchmark/binary-search/binary-search.factor
@ -10,6 +10,7 @@ MEMO: primes-under-million ( -- seq ) 1000000 primes-upto ;
 primes-under-million drop

 : 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