basis/math/primes/erato/fast/fast-tests.factor

   1 USING: fry kernel sequences tools.test ;
   2 IN: math.primes.erato.fast
   3
   4 {
   5
   6     V{
   7         2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71
   8         73 79 83 89 97
   9     }
  10 } [ 100 sieve ] unit-test
  11
  12 { 1229 } [ 10,000 sieve length ] unit-test
  13 { 9592 } [ 100,000 sieve length ] unit-test
  14 { 78498 } [ 1,000,000 sieve length ] unit-test
  15
  16 { t } [
  17     { 2 3 5 7 11 13 } 100 make-sieve '[ _ marked-prime? ] all?
  18 ] unit-test
  19 { t } [
  20     { 4 6 8 9 10 12 } 100 make-sieve '[ _ marked-prime? not ] all?
  21 ] unit-test