2009-05-16 17:58:11 -04:00
|
|
|
USING: lists lists.lazy math.primes.lists tools.test ;
|
2009-01-07 14:57:49 -05:00
|
|
|
|
|
|
|
|
{ { 2 3 5 7 11 13 17 19 23 29 } } [ 10 lprimes ltake list>array ] unit-test
|
|
|
|
|
{ { 101 103 107 109 113 } } [ 5 100 lprimes-from ltake list>array ] unit-test
|
|
|
|
|
{ { 1000117 1000121 } } [ 2 1000100 lprimes-from ltake list>array ] unit-test
|
|
|
|
|
{ { 999983 1000003 } } [ 2 999982 lprimes-from ltake list>array ] unit-test
|
