Data commit

Task/Miller-Rabin-primality-test/Ruby/miller-rabin-primality-test-1.rb

@@ -0,0 +1,22 @@
+def miller_rabin_prime?(n, g)
+  d = n - 1
+  s = 0
+  while d % 2 == 0
+    d /= 2
+    s += 1
+  end
+  g.times do
+    a = 2 + rand(n - 4)
+    x = a.pow(d, n)  # x = (a**d) % n
+    next if x == 1 || x == n - 1
+    for r in (1..s - 1)
+      x = x.pow(2, n) # x = (x**2) % n
+      return false if x == 1
+      break if x == n - 1
+    end
+    return false if x != n - 1
+  end
+  true # probably
+end
+
+p primes = (3..1000).step(2).find_all {|i| miller_rabin_prime?(i,10)}

Task/Miller-Rabin-primality-test/Ruby/miller-rabin-primality-test-2.rb

@@ -0,0 +1,7 @@
+puts miller_rabin_prime?(94366396730334173383107353049414959521528815310548187030165936229578960209523421808912459795329035203510284576187160076386643700441216547732914250578934261891510827140267043592007225160798348913639472564715055445201512461359359488795427875530231001298552452230535485049737222714000227878890892901228389026881,1000)
+puts miller_rabin_prime?(138028649176899647846076023812164793645371887571371559091892986639999096471811910222267538577825033963552683101137782650479906670021895135954212738694784814783986671046107023185842481502719762055887490765764329237651328922972514308635045190654896041748716218441926626988737664133219271115413563418353821396401,1000)
+puts miller_rabin_prime?(123301261697053560451930527879636974557474268923771832437126939266601921428796348203611050423256894847735769138870460373141723679005090549101566289920247264982095246187318303659027201708559916949810035265951104246512008259674244307851578647894027803356820480862664695522389066327012330793517771435385653616841,1000)
+puts miller_rabin_prime?(119432521682023078841121052226157857003721669633106050345198988740042219728400958282159638484144822421840470442893056822510584029066504295892189315912923804894933736660559950053226576719285711831138657839435060908151231090715952576998400120335346005544083959311246562842277496260598128781581003807229557518839,1000)
+puts miller_rabin_prime?(132082885240291678440073580124226578272473600569147812319294626601995619845059779715619475871419551319029519794232989255381829366374647864619189704922722431776563860747714706040922215308646535910589305924065089149684429555813953571007126408164577035854428632242206880193165045777949624510896312005014225526731,1000)
+puts miller_rabin_prime?(153410708946188157980279532372610756837706984448408515364579602515073276538040155990230789600191915021209039203172105094957316552912585741177975853552299222501069267567888742458519569317286299134843250075228359900070009684517875782331709619287588451883575354340318132216817231993558066067063143257425853927599,1000)
+puts miller_rabin_prime?(103130593592068072608023213244858971741946977638988649427937324034014356815504971087381663169829571046157738503075005527471064224791270584831779395959349442093395294980019731027051356344056416276026592333932610954020105156667883269888206386119513058400355612571198438511950152690467372712488391425876725831041,1000)

Task/Miller-Rabin-primality-test/Ruby/miller-rabin-primality-test-3.rb

@@ -0,0 +1,124 @@
+class Integer
+    # Returns true if +self+ is a prime number, else returns false.
+    def primemr?(k = 10)
+      primes = [2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47]
+      return primes.include? self if self <= primes.last
+      modp47 = 614_889_782_588_491_410      # => primes.reduce(:*), largest < 2^64
+      return false if self.gcd(modp47) != 1 # eliminates 86.2% of all integers
+      # Choose input witness bases: wits = [range, [wit_bases]] or nil
+      wits = WITNESS_RANGES.find { |range, wits| range > self }
+      witnesses = wits && wits[1] || k.times.map{ 2 + rand(self - 4) }
+      miller_rabin_test(witnesses)
+    end
+
+    private
+    # Returns true if +self+ passes Miller-Rabin Test with witness bases +b+
+    def miller_rabin_test(witnesses)    # use witness list to test with
+      neg_one_mod = n = d = self - 1    # these are even as 'self' always odd
+      d >>= 4 while (d & 0xf) == 0                  # suck out factors of 2
+      (d >>= (d & 3)^2; d >>= (d & 1)^1) if d.even? # 4 bits at a time
+      witnesses.each do |b|             # do M-R test with each witness base
+        next if (b % self) == 0         # **skip base if a multiple of input**
+        s = d
+        y = b.pow(d, self)              # y = (b**d) mod self
+        until y == 1 || y == neg_one_mod || s == n
+          y = y.pow(2, self)            # y = (y**2) mod self
+          s <<= 1
+        end
+        return false unless y == neg_one_mod || s.odd?
+      end
+      true
+    end
+
+    # Best known deterministic witnesses for given range and set of bases
+    # https://miller-rabin.appspot.com/
+    # https://en.wikipedia.org/wiki/Miller%E2%80%93Rabin_primality_test
+    WITNESS_RANGES = {
+      341_531 => [9345883071009581737],
+      1_050_535_501 => [336781006125, 9639812373923155],
+      350_269_456_337 => [4230279247111683200, 14694767155120705706, 16641139526367750375],
+      55_245_642_489_451 => [2, 141889084524735, 1199124725622454117, 11096072698276303650],
+      7_999_252_175_582_851 => [2, 4130806001517, 149795463772692060, 186635894390467037,
+                                3967304179347715805],
+      585_226_005_592_931_977 => [2, 123635709730000, 9233062284813009, 43835965440333360,
+                                  761179012939631437, 1263739024124850375],
+      18_446_744_073_709_551_615 => [2, 325, 9375, 28178, 450775, 9780504, 1795265022],
+      318_665_857_834_031_151_167_461 => [2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37],
+      3_317_044_064_679_887_385_961_981 => [2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41]
+    }
+end
+
+def tm; t = Time.now; yield; Time.now - t end
+
+# 10 digit primes
+n = 2147483647
+print "\n number = #{n} is prime? "; print " in ", tm{ print n.primemr? }, " secs"
+puts
+
+# 18 digit non-prime
+n = 844674407370955389
+print "\n number = #{n} is prime? "; print " in ", tm{ print n.primemr? }, " secs"
+puts
+
+# 19 digit primes
+n = 9241386435364257883
+print "\n number = #{n} is prime? "; print " in ", tm{ print n.primemr? }, " secs"
+puts
+
+# 20 digit primes; largest < 2^64
+n = 18446744073709551533
+print "\n number = #{n} is prime? "; print " in ", tm{ print n.primemr? }, " secs"
+puts
+
+# 58 digit prime
+n = 4547337172376300111955330758342147474062293202868155909489
+print "\n number = #{n} is prime? "; print " in ", tm{ print n.primemr? }, " secs"
+puts
+
+# 58 digit non-prime
+n = 4547337172376300111955330758342147474062293202868155909393
+print "\n number = #{n} is prime? "; print " in ", tm{ print n.primemr? }, " secs"
+puts
+
+# 81 digit prime
+n = 100000000000000000000000000000000000000000000000000000000000000000000000001309503
+print "\n number = #{n} is prime? "; print " in ", tm{ print n.primemr? }, " secs"
+puts
+
+# 81 digit non-prime
+n = 100000000000000000000000000000000000000000000000000000000000000000000000001309509
+print "\n number = #{n} is prime? "; print " in ", tm{ print n.primemr? }, " secs"
+puts
+
+# 308 digit prime
+n = 94366396730334173383107353049414959521528815310548187030165936229578960209523421808912459795329035203510284576187160076386643700441216547732914250578934261891510827140267043592007225160798348913639472564715055445201512461359359488795427875530231001298552452230535485049737222714000227878890892901228389026881
+print "\n number = #{n} is prime? "; print " in ", tm{ print n.primemr? }, " secs"
+puts
+
+n = 138028649176899647846076023812164793645371887571371559091892986639999096471811910222267538577825033963552683101137782650479906670021895135954212738694784814783986671046107023185842481502719762055887490765764329237651328922972514308635045190654896041748716218441926626988737664133219271115413563418353821396401
+print "\n number = #{n} is prime? "; print " in ", tm{ print n.primemr? }, " secs"
+puts
+
+n = 123301261697053560451930527879636974557474268923771832437126939266601921428796348203611050423256894847735769138870460373141723679005090549101566289920247264982095246187318303659027201708559916949810035265951104246512008259674244307851578647894027803356820480862664695522389066327012330793517771435385653616841
+print "\n number = #{n} is prime "; print " in ", tm{ print n.primemr? }, " secs"
+puts
+
+n = 119432521682023078841121052226157857003721669633106050345198988740042219728400958282159638484144822421840470442893056822510584029066504295892189315912923804894933736660559950053226576719285711831138657839435060908151231090715952576998400120335346005544083959311246562842277496260598128781581003807229557518839
+print "\n number = #{n} is prime "; print " in ", tm{ print n.primemr? }, " secs"
+puts
+
+n = 132082885240291678440073580124226578272473600569147812319294626601995619845059779715619475871419551319029519794232989255381829366374647864619189704922722431776563860747714706040922215308646535910589305924065089149684429555813953571007126408164577035854428632242206880193165045777949624510896312005014225526731
+print "\n number = #{n} is prime? "; print " in ", tm{ print n.primemr? }, " secs"
+puts
+
+n = 153410708946188157980279532372610756837706984448408515364579602515073276538040155990230789600191915021209039203172105094957316552912585741177975853552299222501069267567888742458519569317286299134843250075228359900070009684517875782331709619287588451883575354340318132216817231993558066067063143257425853927599
+print "\n number = #{n} is prime? "; print " in ", tm{ print n.primemr? }, " secs"
+puts
+
+n = 103130593592068072608023213244858971741946977638988649427937324034014356815504971087381663169829571046157738503075005527471064224791270584831779395959349442093395294980019731027051356344056416276026592333932610954020105156667883269888206386119513058400355612571198438511950152690467372712488391425876725831041
+print "\n number = #{n} is prime? "; print " in ", tm{ print n.primemr? }, " secs"
+puts
+
+n = 94366396730334173383107353049414959521528815310548187030165936229578960209523421808912459795329035203510284576187160076386643700441216547732914250578934261891510827140267043592007225160798348913639472564715055445201512461359359488795427875530231001298552452230535485049737222714000227878890892901228389026881
+print "\n number = #{n} is prime? "; print " in ", tm{ print n.primemr? }, " secs"
+puts