2009-06-24 07:13:10 -04:00
|
|
|
USING: arrays kernel math math.primes math.primes.miller-rabin
|
|
|
|
|
sequences tools.test ;
|
2009-05-10 14:47:51 -04:00
|
|
|
IN: math.primes.tests
|
2007-12-26 21:59:39 -05:00
|
|
|
|
|
|
|
|
{ 1237 } [ 1234 next-prime ] unit-test
|
|
|
|
|
{ f t } [ 1234 prime? 1237 prime? ] unit-test
|
|
|
|
|
{ { 2 3 5 7 } } [ 10 primes-upto >array ] unit-test
|
|
|
|
|
{ { 999983 1000003 } } [ 999982 1000010 primes-between >array ] unit-test
|
2008-12-26 14:58:46 -05:00
|
|
|
|
|
|
|
|
{ { 4999963 4999999 5000011 5000077 5000081 } }
|
2009-01-07 14:57:49 -05:00
|
|
|
[ 4999962 5000082 primes-between >array ] unit-test
|
2009-05-10 14:47:51 -04:00
|
|
|
|
2009-06-24 07:04:20 -04:00
|
|
|
{ { 8999981 8999993 9000011 9000041 } }
|
|
|
|
|
[ 8999980 9000045 primes-between >array ] unit-test
|
|
|
|
|
|
2009-05-10 14:47:51 -04:00
|
|
|
[ 2 ] [ 1 next-prime ] unit-test
|
|
|
|
|
[ 3 ] [ 2 next-prime ] unit-test
|
|
|
|
|
[ 5 ] [ 3 next-prime ] unit-test
|
|
|
|
|
[ 101 ] [ 100 next-prime ] unit-test
|
|
|
|
|
[ t ] [ 2135623355842621559 miller-rabin ] unit-test
|
|
|
|
|
[ 100000000000031 ] [ 100000000000000 next-prime ] unit-test
|
|
|
|
|
|
|
|
|
|
[ 49 ] [ 50 random-prime log2 ] unit-test
|
2009-06-24 07:13:10 -04:00
|
|
|
|
|
|
|
|
[ t ] [ 5000077 dup find-relative-prime coprime? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ 5 t { 14 14 14 14 14 } ]
|
|
|
|
|
[ 5 15 unique-primes [ length ] [ [ prime? ] all? ] [ [ log2 ] map ] tri ] unit-test
|
