numb 0.84.0 → 0.89.0

data/Rakefile

@@ -21,16 +21,9 @@ rescue LoadError
   puts "Jeweler (or a dependency) not available. Install it with: sudo gem install jeweler"
 end
 
-require 'spec/rake/spectask'
-Spec::Rake::SpecTask.new(:spec) do |spec|
-  spec.libs << 'lib' << 'spec'
-  spec.spec_files = FileList['spec/spec_helper.rb', 'spec/**/*_spec.rb']
-end
-
-Spec::Rake::SpecTask.new(:rcov) do |spec|
-  spec.libs << 'lib' << 'spec'
-  spec.pattern = 'spec/**/*_spec.rb'
-  spec.rcov = true
+require 'rspec/core/rake_task'
+Rspec::Core::RakeTask.new do |spec|
+  spec.ruby_opts = '-r./spec/spec_helper'
 end
 
 begin

data/VERSION

@@ -1 +1 @@
-0.84.0
+0.89.0

data/lib/numb/dihedral_prime.rb

@@ -19,7 +19,13 @@ class Integer
   #     7.dihedral_prime?    #=> false
   #
   def dihedral_prime?
-    return false unless prime?
-    !!to_s.match(/^[01825][018253]*$/)
+    return false unless prime? and to_s.match(/^[01825]+$/)
+    mirror = ->(n){ n.to_s.gsub(/([25])/){|orig| orig == '2' ? '5' : '2'}.to_i }
+    [upside_down, mirror[self], mirror[upside_down]].all?(&:prime?)
+  end
+
+  private
+  def upside_down
+    to_s.reverse.to_i
   end
 end

data/lib/numb/goldbach.rb

@@ -0,0 +1,6 @@
+class Integer
+  def goldbach?
+    return false unless even? and self > 2
+    downto(2).any?{|n| n.prime? and (self - n).prime?}
+  end
+end

data/lib/numb/nivenmorphic.rb

@@ -3,7 +3,7 @@ class Integer
   def nivenmorphic?
     return true if self == 0
     return false unless positive?
-    niven? && self.to_s.end_with?(digital_sum.to_s)
+    niven? && to_s.end_with?(digital_sum.to_s)
   end
   alias :harshadmorphic? :nivenmorphic?
 end

data/lib/numb/nonhypotenuse.rb

@@ -0,0 +1,7 @@
+class Integer
+  def nonhypotenuse?
+    # Shanks, Daniel Non-hypotenuse numbers. Fibonacci Quart. 13 (1975), no.
+    # 4, 319-321.
+    prime_factors.none?{|f| (f - 1).divides?(4) }
+  end
+end

data/lib/numb/safe_prime.rb

@@ -0,0 +1,5 @@
+class Integer
+  def safe_prime?
+    prime? and odd? and ((self - 1) / 2).prime?
+  end
+end

data/lib/numb/st/303/270rmer.rb

@@ -0,0 +1,6 @@
+# coding: utf-8
+class Integer
+  def størmer?
+    ((self ** 2) + 1).prime_factors.max >= 2 * self
+  end
+end

data/lib/numb/unusual.rb

@@ -0,0 +1,5 @@
+class Integer
+  def unusual?
+    prime_factors.max > Math.sqrt(self)
+  end
+end

data/spec/{dihedral_prime_spec.rb → numb/dihedral_prime_spec.rb}

@@ -18,7 +18,7 @@ describe Integer, "#dihedral_prime?" do
     end
   end
 
-  @seq.invert.sample(10).each do |n|
+  @seq.invert.sample(100).each do |n|
     it "returns false for non-Dihedral-prime #{n}" do
       n.should_not be_dihedral_prime
     end

data/spec/numb/goldbach_spec.rb

@@ -0,0 +1,23 @@
+describe Integer, "#goldbach?" do
+  it "returns false for numbers less than or equal to 2" do
+    (0..2).each{|n| n.should_not be_goldbach}
+  end
+
+  it "returns false for any odd number" do
+    prng = Random.new
+    100.times do
+      n = prng.rand(3..100000001)
+      redo if n.even?
+      n.should_not be_goldbach
+    end
+  end
+
+  it "returns true for any even number that is the sum of two primes" do
+    prng = Random.new
+    100.times do
+      n = prng.rand(4..100000001)
+      redo if n.odd?
+      n.should be_goldbach
+    end
+  end
+end

data/spec/{nivenmorphic_spec.rb → numb/nivenmorphic_spec.rb}

@@ -1,12 +1,12 @@
 describe Integer, "#nivenmorphic?" do
-  # A075154
-  @seq = [1,2,3,4,5,6,7,8,9,910,0,912,11713,6314,915,3616,
-          15317,918,17119,9920,18921,9922,82823,19824,9925,
-          46826,18927,18928,78329,99930,585931,388832,
-          1098933,198934,289835,99936,99937,478838,198939,
-          1999840].to_seq
+  # A070938
+  @seq = [1,2,3,4,5,6,7,8,9,910,912,915,918,1810,1812,1815,
+          1818,2710,2712,2715,2718,3610,3612,3615,3616,3618,
+          4510,4512,4515,4518,5410,5412,5415,5418,6310,6312,
+          6314,6315,6318,7210,7212,7215,7216,7218,8110,8112,
+          8115,8118].to_seq
 
-  @seq.sample(10).each do |n|
+  @seq.each do |n|
     it "returns true for Nivenmorphic number #{n}" do
       n.should be_nivenmorphic
     end

data/spec/numb/nonhypotenuse_spec.rb

@@ -0,0 +1,20 @@
+describe Integer, "#nonhypotenuse" do
+  # A004144
+  @seq = [1,2,3,4,6,7,8,9,11,12,14,16,18,19,21,22,23,24,27,
+          28,31,32,33,36,38,42,43,44,46,47,48,49,54,56,57,
+          59,62,63,64,66,67,69,71,72,76,77,79,81,83,84,86,
+          88,92,93,94,96,98,99,103,107,108,112,114,118,121,
+          124,126,127]
+
+  @seq.each do |n|
+    it "should return true for nonhypotenuse number #{n}" do
+      n.should be_nonhypotenuse
+    end
+  end
+
+  @seq.to_seq.invert.each do |n|
+    it "should return false for nonhypotenuse number #{n}" do
+      n.should_not be_nonhypotenuse
+    end
+  end
+end

data/spec/{perfect_spec.rb → numb/perfect_spec.rb}

@@ -1,5 +1,3 @@
-require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
-
 describe Integer, "#perfect?" do
   it "returns true for the first 7 perfect numbers" do
     [6, 28, 496, 8128, 33550336, 8589869056, 137438691328].each do |n|

data/spec/numb/safe_prime_spec.rb

@@ -0,0 +1,20 @@
+describe Integer, "#safe_prime?" do
+  # A005385
+  @seq = [5,7,11,23,47,59,83,107,167,179,227,263,347,359,
+          383,467,479,503,563,587,719,839,863,887,983,1019,
+          1187,1283,1307,1319,1367,1439,1487,1523,1619,1823,
+          1907,2027,2039,2063,2099,2207,2447,2459,2579,2819,
+          2879,2903]
+
+  @seq.each do |n|
+    it "returns true for safe prime #{n}" do
+      n.should be_safe_prime
+    end
+  end
+
+  @seq.to_seq.invert.sample(100).each do |n|
+    it "returns false for non-safe prime #{n}" do
+      n.should_not be_safe_prime
+    end
+  end
+end

data/spec/numb/st/303/270rmer_spec.rb

@@ -0,0 +1,21 @@
+# coding: utf-8
+describe Integer, "#størmer?" do
+  # A005528
+  @seq = [1,2,4,5,6,9,10,11,12,14,15,16,19,20,22,23,24,25,
+          26,27,28,29,33,34,35,36,37,39,40,42,44,45,48,49,
+          51,52,53,54,56,58,59,60,61,62,63,64,65,66,67,69,
+          71,74,77,78,79,80,81,82,84,85,86,87,88,89,90,92,
+          94,95,96]
+
+  @seq.each do |n|
+    it "returns true for Størmer number #{n}" do
+      n.should be_størmer
+    end
+  end
+
+  @seq.to_seq.invert.each do |n|
+    it "returns false for non-Størmer number #{n}" do
+      n.should_not be_størmer
+    end
+  end
+end

data/spec/numb/unusual_spec.rb

@@ -0,0 +1,20 @@
+describe Integer, "#unusual?" do
+  # A064052
+  @seq = [2,3,5,6,7,10,11,13,14,15,17,19,20,21,22,23,26,28,
+          29,31,33,34,35,37,38,39,41,42,43,44,46,47,51,52,
+          53,55,57,58,59,61,62,65,66,67,68,69,71,73,74,76,
+          77,78,79,82,83,85,86,87,88,89,91,92,93,94,95,97,
+          99,101,102]
+
+  @seq.each do |n|
+    it "returns true for unusual number #{n}" do
+      n.should be_unusual
+    end
+  end
+
+  @seq.to_seq.invert.each do |n|
+    it "returns false for non-unusual number #{n}" do
+      n.should_not be_unusual
+    end
+  end
+end

data/spec/spec_helper.rb

@@ -1,5 +1,5 @@
 # coding: utf-8
-require 'spec'
+require 'rspec/core'
 
 $LOAD_PATH.unshift(File.dirname(__FILE__))
 $LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
@@ -57,7 +57,3 @@ class Array
     Seq.new *self
   end
 end
-
-Spec::Runner.configure do |config|
-    
-end