numb 0.63.0 → 0.68.0

data/VERSION

@@ -1 +1 @@
-0.63.0
+0.68.0

data/lib/numb/biquadratic.rb

@@ -0,0 +1,5 @@
+class Integer
+  def biquadratic?
+    (self ** (1.0/4.0)).integer?
+  end
+end

data/lib/numb/breeder.rb

@@ -0,0 +1,9 @@
+# coding: utf-8
+class Integer
+  def breeder?(b)
+    a = self
+    x = (a.σ - a).fdiv(b)
+    abx = a + (b*x)
+    (abx == a.σ) and (abx == b.σ * (x + 1))
+  end
+end

data/lib/numb/brown.rb

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

data/lib/numb/factorial.rb

@@ -0,0 +1,6 @@
+class Integer
+  def factorial
+    return 1 if zero?
+    (1..self).reduce(:*)
+  end
+end

data/lib/numb/quarticfree.rb

@@ -0,0 +1,6 @@
+class Integer
+  def quarticfree?
+    self == 1 or prime_signature.max < 4
+  end
+  alias :biquadratefree? :quarticfree?
+end

data/lib/numb.rb

@@ -1,10 +1,10 @@
 # coding: utf-8
 
 libs = %w{abundancy abundant achilles almost_perfect amicable aspiring 
-          automorphic balanced_prime carmichael carol centered_n_gonal 
-          centered_triangular congruum composite coprime core cototient 
-          cube d decagonal deficient dodecagonal dihedral_prime dudeney 
-          economical emrip equidigital extravagant factorion 
+          automorphic balanced_prime biquadratic breeder brown carmichael carol
+          centered_n_gonal centered_triangular congruum composite coprime
+          core cototient cube d decagonal deficient dodecagonal dihedral_prime
+          dudeney economical emrip equidigital extravagant factorial factorion 
           fermat_pseudoprime fibonacci friendly frugal happy harshad 
           heptagonal hexagonal highly_composite highly_abundant hilbert 
           hyperperfect idoneal impolite integer_p interprime 
@@ -14,12 +14,13 @@ libs = %w{abundancy abundant achilles almost_perfect amicable aspiring
           nivenmorphic noncototient nth_prime number_of_divisors octagonal 
           ordinal ore parasitic pentagonal perfect perfect_power polite 
           polydivisible poulet powerful practical prime_count prime_signature 
-          primitive_pseudoperfect primorial pronic proth refactorable repunit 
-          rhonda rough self self_descriptive semiperfect semiprime 
-          smarandache_wellin smith smooth sophie_germain_prime sphenic square
-          square_free sublime sum_of_squares superabundant superperfect 
-          totient triangular trimorphic undulating unitary_perfect 
-          unitary_divisor untouchable vampire weird zeisel
+          primitive_pseudoperfect primorial pronic proth quarticfree 
+          refactorable repunit rhonda rough self self_descriptive 
+          semiperfect semiprime smarandache_wellin smith smooth 
+          sophie_germain_prime sphenic square square_free sublime 
+          sum_of_squares superabundant superperfect totient triangular 
+          trimorphic undulating unitary_perfect unitary_divisor untouchable
+          vampire weird zeisel
 }
 
 class Integer

data/spec/01_spec.rb

@@ -0,0 +1 @@
+require_relative 'spec_helper'

data/spec/biquadratic_spec.rb

@@ -0,0 +1,20 @@
+describe Integer, "#biquadratic?" do
+  # A000583
+  @seq = [0,1,16,81,256,625,1296,2401,4096,6561,10000,
+          14641,20736,28561,38416,50625,65536,83521,104976,
+          130321,160000,194481,234256,279841,331776,390625,
+          456976,531441,614656,707281,810000,923521,1048576,
+          1185921].to_seq
+
+  @seq.each do |n|
+    it "should return true for biquadratic number #{n}" do
+      n.should be_biquadratic
+    end
+  end
+
+  @seq.invert.sample(10).each do |n|
+    it "should return false for non-biquadratic number #{n}" do
+      n.should_not be_biquadratic
+    end
+  end
+end

data/spec/breeder_spec.rb

@@ -0,0 +1,18 @@
+describe Integer, "#breeder?" do
+  @seq = [
+    # Amicable Pairs: A Survery; García, Pedersen, Riele
+    [220, 4], [2024, 8], [4981977,13096726199356992193],
+    [1001910071475,22707444689738187457315483201],
+  ]
+
+  @seq.first(2).each do |a, b|
+    it "should return true for breeder pair (#{a}, #{b})" do
+      a.breeder?(b).should be_true
+    end
+  end
+  [[345, 98], [4001, 31], [1110, 2]].each do |a, b|
+    it "should return false for non-breeder pair (#{a}, #{b})" do
+      a.breeder?(b).should be_false
+    end
+  end
+end

data/spec/brown_spec.rb

@@ -0,0 +1,20 @@
+describe Integer, "#brown?" do
+  # A163524
+  @seq = [5,4,11,5,71,7]
+
+  @seq.each_slice(2) do |n, m|
+    it "should return true for Brown pair (#{n}, #{m})" do
+      n.brown?(m).should be_true
+    end
+
+    it "should return false for inverted, non-Brown pair (#{m}, #{n})" do
+      m.brown?(n).should be_false
+    end
+  end
+
+  @seq.to_seq.invert.sample(10).each_slice(2) do |n, m|
+    it "should return false for non-Brown pair (#{n}, #{m})" do
+      n.brown?(m).should be_false
+    end
+  end
+end

data/spec/factorial_spec.rb

@@ -0,0 +1,14 @@
+describe Integer, "#factorial" do
+  # A000142
+  @seq = [1,1,2,6,24,120,720,5040,40320,362880,3628800,
+          39916800,479001600,6227020800,87178291200,
+          1307674368000,20922789888000,355687428096000,
+          6402373705728000,121645100408832000,
+          2432902008176640000]
+
+  @seq.each_with_index do |factorial, n|
+    it "should return #{factorial} for #{n}!" do
+      n.factorial.should == factorial
+    end
+  end
+end

data/spec/quarticfree_spec.rb

@@ -0,0 +1,28 @@
+describe Integer, "#quarticfree?" do
+  @seq = {
+    # A046100
+    true =>  [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,17,18,19,20,
+              21,22,23,24,25,26,27,28,29,30,31,33,34,35,36,37,
+              38,39,40,41,42,43,44,45,46,47,49,50,51,52,53,54,
+              55,56,57,58,59,60,61,62,63,65,66,67,68,69,70,71,
+              72,73,74,75,76],
+    # A046101          
+    false => [16,32,48,64,80,81,96,112,128,144,160,162,176,192,
+              208,224,240,243,256,272,288,304,320,324,336,352,
+              368,384,400,405,416,432,448,464,480,486,496,512,
+              528,544,560,567,576,592,608,624,625,640,648,656,
+              672,688,704].to_seq
+  }
+
+  @seq[false].invert.sample(10).each do |n|
+    it "should return true for quarticfree number #{n}" do
+      n.should be_quarticfree
+    end
+  end
+
+  @seq[false].sample(10).each do |n|
+    it "should return false for non-quarticfree number #{n}" do
+      n.should_not be_quarticfree
+    end
+  end
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: numb
 version: !ruby/object:Gem::Version 
-  version: 0.63.0
+  version: 0.68.0
 platform: ruby
 authors: 
 - Run Paint Run Run
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-01-14 00:00:00 +00:00
+date: 2010-01-15 00:00:00 +00:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
@@ -47,6 +47,9 @@ files:
 - lib/numb/aspiring.rb
 - lib/numb/automorphic.rb
 - lib/numb/balanced_prime.rb
+- lib/numb/biquadratic.rb
+- lib/numb/breeder.rb
+- lib/numb/brown.rb
 - lib/numb/carmichael.rb
 - lib/numb/carol.rb
 - lib/numb/centered_n_gonal.rb
@@ -67,6 +70,7 @@ files:
 - lib/numb/emrip.rb
 - lib/numb/equidigital.rb
 - lib/numb/extravagant.rb
+- lib/numb/factorial.rb
 - lib/numb/factorion.rb
 - lib/numb/fermat_pseudoprime.rb
 - lib/numb/fibonacci.rb
@@ -124,6 +128,7 @@ files:
 - lib/numb/primorial.rb
 - lib/numb/pronic.rb
 - lib/numb/proth.rb
+- lib/numb/quarticfree.rb
 - lib/numb/refactorable.rb
 - lib/numb/repunit.rb
 - lib/numb/rhonda.rb
@@ -153,6 +158,7 @@ files:
 - lib/numb/vampire.rb
 - lib/numb/weird.rb
 - lib/numb/zeisel.rb
+- spec/01_spec.rb
 - spec/abundancy_spec.rb
 - spec/abundant_spec.rb
 - spec/achilles_spec.rb
@@ -161,6 +167,9 @@ files:
 - spec/aspiring_spec.rb
 - spec/automorphic_spec.rb
 - spec/balanced_prime_spec.rb
+- spec/biquadratic_spec.rb
+- spec/breeder_spec.rb
+- spec/brown_spec.rb
 - spec/carmichael_spec.rb
 - spec/carol_spec.rb
 - spec/centered_n_gonal_spec.rb
@@ -182,6 +191,7 @@ files:
 - spec/emrip_spec.rb
 - spec/equidigital_spec.rb
 - spec/extravagant_spec.rb
+- spec/factorial_spec.rb
 - spec/factorion_spec.rb
 - spec/fermat_pseudoprime_spec.rb
 - spec/fibonacci_spec.rb
@@ -238,6 +248,7 @@ files:
 - spec/primorial_spec.rb
 - spec/pronic_spec.rb
 - spec/proth_spec.rb
+- spec/quarticfree_spec.rb
 - spec/refactorable_spec.rb
 - spec/repunit_spec.rb
 - spec/rhonda_spec.rb
@@ -297,6 +308,7 @@ signing_key:
 specification_version: 3
 summary: Experiments in number theory with new predicate methods for Integer.
 test_files: 
+- spec/01_spec.rb
 - spec/leonardo_spec.rb
 - spec/economical_spec.rb
 - spec/unitary_perfect.rb
@@ -317,12 +329,15 @@ test_files:
 - spec/fermat_pseudoprime_spec.rb
 - spec/abundant_spec.rb
 - spec/superperfect_spec.rb
+- spec/biquadratic_spec.rb
 - spec/self_spec.rb
 - spec/square_spec.rb
+- spec/quarticfree_spec.rb
 - spec/untouchable_spec.rb
 - spec/ordinal_spec.rb
 - spec/perfect_spec.rb
 - spec/perfect_power_spec.rb
+- spec/factorial_spec.rb
 - spec/carmichael_spec.rb
 - spec/abundancy_spec.rb
 - spec/polite_spec.rb
@@ -351,6 +366,7 @@ test_files:
 - spec/vampire_spec.rb
 - spec/dodecagonal_spec.rb
 - spec/dihedral_prime_spec.rb
+- spec/breeder_spec.rb
 - spec/sphenic_spec.rb
 - spec/idoneal_spec.rb
 - spec/lucas_carmichael_spec.rb
@@ -395,6 +411,7 @@ test_files:
 - spec/number_of_distinct_prime_factors_spec.rb
 - spec/balanced_prime_spec.rb
 - spec/digital_sum_spec.rb
+- spec/brown_spec.rb
 - spec/factorion_spec.rb
 - spec/undulating_spec.rb
 - spec/extravagant_spec.rb