numb 0.111.0 → 0.114.0

data/VERSION

@@ -1 +1 @@
-0.111.0
+0.114.0

data/lib/numb/aliquot_sequence.rb

@@ -6,7 +6,7 @@ class Integer
     max_iterations.floor.times do |limit|
       sequence << summatory_function[sequence.last]
       break if sequence[0..-2].include?(sequence.last)
-      return sequence << (1/0.0) if limit.succ == max_iterations
+      return sequence << (1/0.0) if limit.consecutive?(max_iterations)
     end
     sequence
   end

data/lib/numb/betrothed.rb

@@ -1,7 +1,7 @@
 # coding: utf-8
 class Integer
   def betrothed?(m)
-    σ == m.σ and σ == self.succ + m
+    σ == m.σ and consecutive?(σ - m)
   end
   alias :quasi_amicable? :betrothed?
   alias :reduced_amicable? :betrothed?

data/lib/numb/brown.rb

@@ -1,6 +1,5 @@
 class Integer
   def brown?(n)
-    m = self
-    n.factorial.succ == m**2
+    n.factorial.consecutive?(self ** 2)
   end
 end

data/lib/numb/catalan.rb

@@ -0,0 +1,13 @@
+class Integer
+  def catalan
+    (2*self).factorial / (succ.factorial * factorial)
+  end
+
+  def catalan?
+    n = -1
+    loop do
+      return true if (cat = (n += 1).catalan) == self
+      return false if cat > self
+    end
+  end
+end

data/lib/numb/centered_cube.rb

@@ -0,0 +1,7 @@
+class Integer
+  def centered_cube?
+    1.upto(Math.cbrt(self)).any? do |n|
+      self == n**3 + (n - 1) ** 3
+    end
+  end
+end

data/lib/numb/centered_hexagonal.rb

@@ -0,0 +1,6 @@
+class Integer
+  def centered_hexagonal?
+    n = self - 1
+    n.divides?(6) and (n/6).triangular?
+  end
+end

data/lib/numb/consecutive.rb

@@ -0,0 +1,5 @@
+class Integer
+  def consecutive?(m)
+    self == m.succ or succ == m
+  end
+end

data/lib/numb/dihedral_prime.rb

@@ -21,11 +21,6 @@ class Integer
   def dihedral_prime?
     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
+    [reverse, mirror[self], mirror[reverse]].all?(&:prime?)
   end
 end

data/lib/numb/emrip.rb

@@ -10,8 +10,6 @@ class Integer
   #     7.emrip?     #=> false
   #
   def emrip?
-    return false unless prime?
-    reversed = to_s.reverse.to_i
-    reversed != self and reversed.prime?
+    prime? and reverse != self and reverse.prime?
   end
 end

data/lib/numb/idoneal.rb

@@ -62,4 +62,5 @@ class Integer
     end
     true
   end
+  alias :convenient? :idoneal?
 end

data/lib/numb/lychrel.rb

@@ -1,6 +1,6 @@
 class Integer
   def palindrome?
-    to_s.reverse.to_i == self
+    reverse == self
   end
 
   def lychrel?
@@ -8,7 +8,7 @@ class Integer
     # This limit is as arbitrary as it looks
     100.times do
       return false if n.palindrome?
-      n += n.to_s.reverse.to_i
+      n += n.reverse
     end
     true
   end

data/lib/numb/mms_pair.rb

@@ -1,7 +1,7 @@
 # coding: utf-8
 class Integer
   def mms_pair?(other)
-    return false unless (self == other.succ) || (other == self.succ)
+    return false unless consecutive?(other)
     sum = [self,other].map do |n|
       (n.digits + n.prime_factors.map{|p| p.digits}.flatten).reduce(:+)
     end

data/lib/numb/properties.rb

@@ -0,0 +1,11 @@
+class Integer
+  def properties
+    methods.grep(/\?/).
+            map{|m| method(m)}.
+            uniq. # Filter out aliases
+            select{|m| m.arity.zero? and m[]}.
+            map{|m| m.name[0..-2]}. # Strip question mark
+            map(&:to_sym).
+            sort
+  end
+end

data/lib/numb/reverse.rb

@@ -0,0 +1,5 @@
+class Integer
+  def reverse
+    to_s.reverse.to_i
+  end
+end

data/spec/numb/catalan_spec.rb

@@ -0,0 +1,29 @@
+# A000108 
+CATALAN = [1,1,2,5,14,42,132,429,1430,4862,16796,58786,
+          208012,742900,2674440,9694845,35357670,129644790,
+          477638700,1767263190,6564120420,24466267020,
+          91482563640,343059613650,1289904147324]
+
+describe Integer, "#catalan?" do
+  @seq = CATALAN.uniq
+
+  @seq.each do |n|
+    it "returns true for Catalan number #{n}" do
+      n.should be_catalan
+    end
+  end
+
+  @seq.to_seq.invert.sample(100).each do |n|
+    it "returns false for non-Catalan number #{n}" do
+      n.should_not be_catalan
+    end
+  end
+end
+
+describe Integer, "#catalan" do
+  CATALAN.each_with_index do |catalan, n|
+    it "returns #{catalan} for #{n}" do
+      n.catalan.should == catalan
+    end
+  end
+end

data/spec/numb/centered_cube_spec.rb

@@ -0,0 +1,20 @@
+describe Integer, "#centered_cube?" do
+  # A005898
+  @seq = [1,9,35,91,189,341,559,855,1241,1729,2331,3059,
+          3925,4941,6119,7471,9009,10745,12691,14859,17261,
+          19909,22815,25991,29449,33201,37259,41635,46341,
+          51389,56791,62559,68705,75241,82179,89531,97309,
+          105525]
+
+  @seq.each do |n|
+    it "returns true for centered cube #{n}" do
+      n.should be_centered_cube
+    end
+  end
+
+  @seq.to_seq.invert.sample(100).each do |n|
+    it "returns false for non-centered-cube #{n}" do
+      n.should_not be_centered_cube
+    end
+  end
+end

data/spec/numb/centered_hexagonal_spec.rb

@@ -0,0 +1,20 @@
+describe Integer, "#centered_hexagonal?" do
+  # A003215
+  @seq = [1,7,19,37,61,91,127,169,217,271,331,397,469,547,
+          631,721,817,919,1027,1141,1261,1387,1519,1657,
+          1801,1951,2107,2269,2437,2611,2791,2977,3169,3367,
+          3571,3781,3997,4219,4447,4681,4921,5167,5419,5677,
+          5941,6211,6487]
+
+  @seq.each do |n|
+    it "returns true for centered hexagonal number #{n}" do
+      n.should be_centered_hexagonal
+    end
+  end
+
+  @seq.to_seq.invert.sample(100).each do |n|
+    it "returns false for non-centered-hexagonal number #{n}" do
+      n.should_not be_centered_hexagonal
+    end
+  end
+end

data/spec/numb/reverse_spec.rb

@@ -0,0 +1,13 @@
+describe Integer, "#reverse" do
+  it "returns single digits as-is" do
+    (0..9).each do |n|
+      n.reverse.should == n
+    end
+  end
+
+  [[10,1], [99, 99], [1234, 4321], [101, 101], [8272, 2728]].each do |n,r|
+    it "returns #{r} for #{n}" do
+      n.reverse.should == r
+    end
+  end
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: numb
 version: !ruby/object:Gem::Version 
-  version: 0.111.0
+  version: 0.114.0
 platform: ruby
 authors: 
 - Run Paint Run Run
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-03-13 00:00:00 +00:00
+date: 2010-03-14 00:00:00 +00:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
@@ -64,10 +64,14 @@ files:
 - lib/numb/brown.rb
 - lib/numb/carmichael.rb
 - lib/numb/carol.rb
+- lib/numb/catalan.rb
+- lib/numb/centered_cube.rb
+- lib/numb/centered_hexagonal.rb
 - lib/numb/centered_n_gonal.rb
 - lib/numb/centered_triangular.rb
 - lib/numb/composite.rb
 - lib/numb/congruum.rb
+- lib/numb/consecutive.rb
 - lib/numb/coprime.rb
 - lib/numb/core.rb
 - lib/numb/cototient.rb
@@ -153,10 +157,12 @@ files:
 - lib/numb/primitive_pseudoperfect.rb
 - lib/numb/primorial.rb
 - lib/numb/pronic.rb
+- lib/numb/properties.rb
 - lib/numb/proth.rb
 - lib/numb/quarticfree.rb
 - lib/numb/refactorable.rb
 - lib/numb/repunit.rb
+- lib/numb/reverse.rb
 - lib/numb/rhonda.rb
 - lib/numb/rough.rb
 - lib/numb/safe_prime.rb
@@ -227,6 +233,9 @@ files:
 - spec/numb/brown_spec.rb
 - spec/numb/carmichael_spec.rb
 - spec/numb/carol_spec.rb
+- spec/numb/catalan_spec.rb
+- spec/numb/centered_cube_spec.rb
+- spec/numb/centered_hexagonal_spec.rb
 - spec/numb/centered_n_gonal_spec.rb
 - spec/numb/centered_triangular_spec.rb
 - spec/numb/composite_spec.rb
@@ -320,6 +329,7 @@ files:
 - spec/numb/quarticfree_spec.rb
 - spec/numb/refactorable_spec.rb
 - spec/numb/repunit_spec.rb
+- spec/numb/reverse_spec.rb
 - spec/numb/rhonda_spec.rb
 - spec/numb/rough_spec.rb
 - spec/numb/safe_prime_spec.rb
@@ -429,6 +439,7 @@ test_files:
 - spec/numb/perfect_spec.rb
 - spec/numb/perfect_power_spec.rb
 - spec/numb/factorial_spec.rb
+- spec/numb/centered_cube_spec.rb
 - spec/numb/carmichael_spec.rb
 - spec/numb/woodall_spec.rb
 - spec/numb/abundancy_spec.rb
@@ -450,6 +461,7 @@ test_files:
 - spec/numb/heptagonal_spec.rb
 - spec/numb/kynea_spec.rb
 - spec/numb/sum_of_squares_spec.rb
+- spec/numb/centered_hexagonal_spec.rb
 - spec/numb/centered_n_gonal_spec.rb
 - spec/numb/highly_abundant_spec.rb
 - spec/numb/augmented_amicable_spec.rb
@@ -475,6 +487,7 @@ test_files:
 - spec/numb/dihedral_prime_spec.rb
 - spec/numb/breeder_spec.rb
 - spec/numb/sphenic_spec.rb
+- spec/numb/reverse_spec.rb
 - spec/numb/idoneal_spec.rb
 - spec/numb/sum_of_unitary_divisors_spec.rb
 - spec/numb/square_triangular_spec.rb
@@ -528,6 +541,7 @@ test_files:
 - spec/numb/weird_spec.rb
 - spec/numb/interprime_spec.rb
 - spec/numb/number_of_distinct_prime_factors_spec.rb
+- spec/numb/catalan_spec.rb
 - spec/numb/balanced_prime_spec.rb
 - spec/numb/binomial_spec.rb
 - spec/numb/digital_sum_spec.rb