Memoize small primes list
This makes "benchmark.binary-search" work again in a reasonable time.db4
parent
ca0f3659e4
commit
f521805bb3
|
@ -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 ;
|
||||||
|
|
Loading…
Reference in New Issue