-USING: math.primes.factors sequences tools.test ;
+USING: math math.primes.factors sequences tools.test ;
{ { 999983 999983 1000003 } } [ 999969000187000867 factors ] unit-test
{ { } } [ -5 factors ] unit-test
{ { 1 2 3 4 6 8 12 24 } } [ 24 divisors ] unit-test
{ 24 } [ 360 divisors length ] unit-test
{ { 1 } } [ 1 divisors ] unit-test
+
+
+{ { 618970019642690137449562111 } } [
+ 618970019642690137449562111 factors ! 89 2^ 1 -, prime
+] unit-test
+
+{
+ { 162259276829213363391578010288127 }
+} [
+ ! Mersenne Prime M107
+ 107 2^ 1 - factors
+] unit-test
+
+{
+ { 2316528667279 8168603188573 }
+} [
+ 18922803457956001611802867 factors
+] unit-test
+
+{ { 35742549198872617291353508656626642567 } } [
+ 35742549198872617291353508656626642567 factors ! bell number prime
+] unit-test
+
+! Too slow
+! {
+! {
+! 618970019642690137449562111
+! 162259276829213363391578010288127
+! 170141183460469231731687303715884105727
+! }
+! } [
+! 89 2^ 1 -
+! 107 2^ 1 -
+! 127 2^ 1 - * * factors
+! ] unit-test
+