Memoize small primes list

This makes "benchmark.binary-search" work again in a reasonable time.
db4
Samuel Tardieu 2008-12-29 13:55:47 +01:00
parent ca0f3659e4
commit f521805bb3
1 changed files with 2 additions and 2 deletions

View File

@ -1,4 +1,4 @@
USING: math.primes ; USING: math.primes memoize ;
IN: math.primes.list IN: math.primes.list
: primes-under-million ( -- seq ) 1000000 primes-upto ; MEMO: primes-under-million ( -- seq ) 1000000 primes-upto ;