basis/math/primes/factors/factors-tests.factor

   1 USING: math math.primes.factors sequences tools.test ;
   2
   3 { { 999983 999983 1000003 } } [ 999969000187000867 factors ] unit-test
   4 { { } } [ -5 factors ] unit-test
   5 { { { 999983 2 } { 1000003 1 } } } [ 999969000187000867 group-factors ] unit-test
   6 { { 999983 1000003 } } [ 999969000187000867 unique-factors ] unit-test
   7 { 999967000236000612 } [ 999969000187000867 totient ] unit-test
   8 { 0 } [ 1 totient ] unit-test
   9 { { 425612003 } } [ 425612003 factors ] unit-test
  10 { { 13 4253 15823 32472893749823741 } } [ 28408516453955558205925627 factors ] unit-test
  11 { { 1 2 3 4 6 8 12 24 } } [ 24 divisors ] unit-test
  12 { 24 } [ 360 divisors length ] unit-test
  13 { { 1 } } [ 1 divisors ] unit-test
  14
  15
  16 { { 618970019642690137449562111 } } [
  17     618970019642690137449562111 factors ! 89 2^ 1 -, prime
  18 ] unit-test
  19
  20 {
  21     { 162259276829213363391578010288127 }
  22 } [
  23     ! Mersenne Prime M107
  24     107 2^ 1 - factors
  25 ] unit-test
  26
  27 {
  28     { 2316528667279 8168603188573 }
  29 } [
  30     18922803457956001611802867 factors
  31 ] unit-test
  32
  33 { { 35742549198872617291353508656626642567 } } [
  34     35742549198872617291353508656626642567 factors ! bell number prime
  35 ] unit-test
  36
  37 ! Too slow
  38 ! {
  39 !     {
  40 !         618970019642690137449562111
  41 !         162259276829213363391578010288127
  42 !         170141183460469231731687303715884105727
  43 !     }
  44 ! } [
  45 !     89 2^ 1 -
  46 !     107 2^ 1 -
  47 !     127 2^ 1 - * * factors
  48 ! ] unit-test