numb 0.3.0

data/spec/perfect_spec.rb

@@ -0,0 +1,103 @@
+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|
+      n.perfect?.should be_true
+    end
+  end
+
+  it "returns false for the neighbours of the first 7 perfect numbers" do
+    [6, 28, 496, 8128, 33550336, 8589869056, 137438691328].each do |n|
+      (n+1).perfect?.should be_false
+      (n-1).perfect?.should be_false
+    end
+  end
+
+  it "returns false for odd integers" do
+    [29,31,33,35].each do |n|
+      n.perfect?.should be_false
+    end
+  end
+
+  it "returns false for 1" do
+    1.perfect?.should be_false
+  end
+
+  it "returns false for 0" do
+    0.perfect?.should be_false
+  end
+
+  it "returns false for -1" do
+    -1.perfect?.should be_false
+  end
+
+  it "returns false for non-perfect positive integers" do
+    [8, 66, 3478].each do |n|
+      n.perfect?.should be_false
+    end
+  end
+
+  it "returns false for negative integers" do
+    -6.perfect?.should be_false
+  end
+end
+
+describe Integer, "#proper_positive_divisors" do
+  it "returns an Array" do
+    6.proper_positive_divisors.should be_an_instance_of(Array)
+  end
+
+  it "returns integers that divide into self with no remainder" do
+    6.proper_positive_divisors.should include(2, 3)
+  end
+
+  it "doesn't return integers that divide into self with a remainder" do
+    6.proper_positive_divisors.should_not include(4, 5)
+  end
+
+  it "doesn't return itself as a divisor" do
+    9.proper_positive_divisors.should_not include(9)
+  end
+
+  it "returns all of the proper divisors of self" do
+    33.proper_positive_divisors.sort.should == [1, 3, 11]
+  end
+
+  it "returns [] for 1" do
+    1.proper_positive_divisors.should == []
+  end
+
+  it "returns [] for 0" do
+    0.proper_positive_divisors.should == []
+  end
+
+  it "returns [] for -1" do
+    -1.proper_positive_divisors.should == []
+  end
+
+  it "returns [] when self is negative" do
+    -32.proper_positive_divisors.should == []
+  end
+end
+
+describe Integer, "#digital_root" do
+  it "returns each single-digit number as is" do
+    (0..9).each do |n|
+      n.digital_root.should == n
+    end
+  end
+
+  it "returns the sum of the digits of multi-digit numbers" do
+    18.digital_root.should == 9
+  end
+
+  it "returns a single digit even when the sum of the digits is greater than 9" do
+    65536.digital_root.should == 7
+  end
+
+  it "works for negative numbers" do
+    -4.digital_root.should == 5
+    -99.digital_root.should == 9
+  end
+end

data/spec/polite_spec.rb

@@ -0,0 +1,14 @@
+describe Integer, "#polite?" do
+  it "returns true for polite numbers" do
+    [1,3,5,6,7,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].each do |polite|
+      polite.should be_polite
+    end
+  end
+
+  it "returns false for impolite numbers" do
+    [2,4,8,16,32].each do |impolite|
+      impolite.should_not be_polite
+    end
+  end
+end

data/spec/politeness_spec.rb

@@ -0,0 +1,11 @@
+describe Integer, "#politeness" do
+  it "returns number of non-trivial ways to write n as the sum of >= 2 consecutive integers" do
+    [0,0,0,1,0,1,1,1,0,2,1,1,1,1,1,3,0,1,2,1,1,3,1,1,
+     1,2,1,3,1,1,3,1,0,3,1,3,2,1,1,3,1,1,3,1,1,5,1,1,1,
+     2,2,3,1,1,3,3,1,3,1,1,3,1,1,5,0,3,3,1,1,3,3,1,2,1,
+     1,5,1,3,3,1,1,4,1,1,3,3,1,3,1,1,5,3,1,3,1,3,1,1,2,
+     5,2].each_with_index do |politeness, number|
+      number.politeness.should == politeness
+    end
+  end
+end

data/spec/polydivisible_spec.rb

@@ -0,0 +1,19 @@
+describe Integer, "#polydivisible?" do
+  # http://www.research.att.com/~njas/sequences/A078282
+  POLYDIVISIBLE = [1,10,102,1020,10200,102000,1020005,10200056,
+                   102000564,1020005640,10200056405,3608528850368400786036725,
+                   48000688208466084040,30000600003, 381654729]
+
+  it "returns true for polydivisible numbers" do
+    POLYDIVISIBLE.each do |number|
+      number.should be_polydivisible
+    end
+  end
+
+  it "returns false for non-polydivisible numbers" do
+    [123456, 2020, 102001].each do |number|
+      number.should_not be_polydivisible
+    end
+  end
+end
+

data/spec/powerful_spec.rb

@@ -0,0 +1,25 @@
+describe Integer, "#powerful?" do
+  POWERFUL = [1,4,8,9,16,25,27,32,36,49,64,72,81,100,108,121,
+              125,128,144,169,196,200,216,225,243,256,288,289,
+              324,343,361,392,400,432,441,484,500,512,529,576,
+              625,648,675,676,729,784,800,841,864,900,961,968,
+              972,1000]
+  it "returns true for a powerful number" do
+    POWERFUL.each do |number|
+      number.should be_powerful
+    end
+  end
+
+  it "returns false for a non-powerful number" do
+    ((1..999).to_a - POWERFUL).sample(10).each do |number|
+      number.should_not be_powerful
+    end
+  end
+
+  it "returns false for a negative number" do
+    (1..999).each do |number|
+      (-number).should_not be_powerful
+    end
+  end
+end
+

data/spec/practical_spec.rb

@@ -0,0 +1,30 @@
+describe Integer, "#practical?" do
+  PRACTICAL =[1,2,4,6,8,12,16,18,20,24,28,30,32,36,40,42,48,54,
+              56,60,64,66,72,78,80,84,88,90,96,100,104,108,112,
+              120,126,128,132,140,144,150,156,160,162,168,176,
+              180,192,196,198,200,204,208,210,216,220,224,228,
+              234,240,252]
+  it "returns true for any practical number" do
+    PRACTICAL.each do |number|
+      number.should be_practical
+    end
+  end
+
+  it "returns false for any non-practical number" do
+    ((1..252).to_a - PRACTICAL).each do |number|
+      number.should_not be_practical
+    end
+  end
+
+  it "returns true for powers of two" do
+    [38, 41, 2, 5].each do |pow|
+      (2 ** pow).should be_practical
+    end
+  end
+
+  it "returns true for perfect numbers" do
+    [6, 28, 496, 8128, 33550336, 8589869056, 137438691328].each do |n|
+      n.should be_practical
+    end
+  end
+end

data/spec/self_descriptive_spec.rb

@@ -0,0 +1,19 @@
+describe Integer, "#self_descriptive?" do
+  SELF_DESCRIPTIVE = [nil,nil,nil,nil,1210,21200,nil,
+                      3211000,42101000,521001000,6210001000]
+  
+  SELF_DESCRIPTIVE.each_with_index do |number, base|
+    next if number.nil?
+    it "returns true if the number is self-descriptive in base #{base}" do
+      number.self_descriptive?(base).should be_true
+    end
+  end
+
+  [21,101,2345,26871,112200,1723492,
+   66287620,112276826,2386520171].each do |number|
+    base = number.digits.size
+    it "returns false if the number isn't self-descriptive in base #{base}" do
+      number.to_s(base).to_i.self_descriptive?(base).should be_false
+    end
+  end
+end

data/spec/self_spec.rb

@@ -0,0 +1,20 @@
+describe Integer, "#self?" do
+  SELF = [1,3,5,7,9,20,31,42,53,64,75,86,97,108,110,121,
+          132,143,154,165,176,187,198,209,211,222,233,244,
+          255,266,277,288,299,310,312,323,334,345,356,367,
+          378,389,400,411,413,424,435,446,457,468,479,490,
+          501,512,514,525]
+
+  it "returns true for self numbers" do
+    SELF.each do |number|
+      number.should be_self
+    end
+  end
+
+  it "returns false for non-self numbers" do
+    ((1..200).to_a - SELF).each do |number|
+      number.should_not be_self
+    end
+  end
+end
+

data/spec/semi_perfect_spec.rb

@@ -0,0 +1,24 @@
+describe Integer, "#semi_perfect?" do
+  SEMI_PERFECT = [6,12,18,20,24,28,30,36,40,42,48,54,56,60,66,72,
+                  78,80,84,88,90,96,100,102,104,108,112,114,120,126,
+                  132,138,140,144,150,156,160,162,168,174,176,180,
+                  186,192,196,198,200,204,208,210,216,220,222,224,
+                  228,234,240,246,252,258,260,264]
+  it "returns true if the number is semi-perfect" do
+    SEMI_PERFECT.each do |number|
+      number.should be_semi_perfect
+    end
+  end
+
+  it "returns false if the number is not semi-perfect" do
+    ((1..263).to_a - SEMI_PERFECT).each do |number|
+      number.should_not be_semi_perfect
+    end
+  end
+
+  it "returns false if the number is negative" do
+    (1..263).each do |number|
+      (-number).should_not be_semi_perfect
+    end
+  end
+end

data/spec/semiprime_spec.rb

@@ -0,0 +1,21 @@
+describe Integer, "#semiprime?" do
+  # http://www.research.att.com/~njas/sequences/A001358
+  SEMI_PRIME = [4,6,9,10,14,15,21,22,25,26,33,34,35,38,39,46,49,
+                51,55,57,58,62,65,69,74,77,82,85,86,87,91,93,94,
+                95,106,111,115,118,119,121,122,123,129,133,134,
+                141,142,143,145,146,155,158,159,161,166,169,177,
+                178,183,185,187]
+
+  it "returns true for semi-prime numbers" do
+    SEMI_PRIME.each do |number|
+      number.should be_semiprime
+    end
+  end
+
+  it "returns false for non-semi-prime numbers" do
+    ((1..187).to_a - SEMI_PRIME).each do |number|
+      number.should_not be_semiprime
+    end
+  end
+end
+

data/spec/smarandache_wellin_spec.rb

@@ -0,0 +1,26 @@
+describe Integer, "#smarandache-wellin?" do
+  # http://www.research.att.com/~njas/sequences/A019518
+  SMARANDACHE_WELLIN = [2,23,235,2357,235711,23571113,2357111317,
+                        235711131719,23571113171923,2357111317192329,
+                        235711131719232931,23571113171923293137,
+                        2357111317192329313741,235711131719232931374143,
+                        23571113171923293137414347]
+
+  it "returns true for Smarandache-Wellin numbers" do
+    SMARANDACHE_WELLIN.each do |number|
+      number.should be_smarandache_wellin
+    end
+  end
+
+  it "returns false for non-Smarandache-Wellin numbers" do
+    [3,5757490, 99].each do |number|
+      number.should_not be_smarandache_wellin
+    end
+  end
+
+  it "returns false for numbers which merely contain Smarandache-Wellin numbers" do
+    [234, 82357].each do |number|
+      number.should_not be_smarandache_wellin
+    end
+  end
+end

data/spec/smith_spec.rb

@@ -0,0 +1,19 @@
+describe Integer, "#smith?" do
+  # http://www.research.att.com/~njas/sequences/A006753
+  SMITH = [4,22,27,58,85,94,121,166,202,265,274,319,346,355,
+           378,382,391,438,454,483,517,526,535,562,576,588,
+           627,634,636,645,648,654,663,666,690,706,728,729,
+           762,778,825,852,861,895,913,915,922,958,985,1086]
+
+  it "returns true for Smith numbers" do
+    SMITH.each do |number|
+     number.should be_smith
+    end
+  end
+
+  it "returns false for non-Smith numbers" do
+    ((1..1086).to_a - SMITH).each do |number|
+     number.should_not be_smith
+    end
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,9 @@
+require 'spec'
+
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+require 'numb'
+
+Spec::Runner.configure do |config|
+  
+end

data/spec/sphenic_spec.rb

@@ -0,0 +1,20 @@
+describe Integer, "#sphenic?" do
+  # http://www.research.att.com/~njas/sequences/A007304
+  SPHENIC = [30,42,66,70,78,102,105,110,114,130,138,154,165,
+             170,174,182,186,190,195,222,230,231,238,246,255,
+             258,266,273,282,285,286,290,310,318,322,345,354,
+             357,366,370,374,385,399,402,406,410,418,426,429,
+             430,434,435,438]
+
+  it "returns true for sphenic numbers" do
+    SPHENIC.each do |number|
+      number.should be_sphenic
+    end
+  end
+
+  it "returns false for non-sphenic numbers" do
+    ((1..438).to_a - SPHENIC).each do |number|
+      number.should_not be_sphenic
+    end
+  end
+end

data/spec/square_free_spec.rb

@@ -0,0 +1,19 @@
+describe Integer, "#square_free?" do
+  # http://www.research.att.com/~njas/sequences/A005117
+  SQUARE_FREE = [1,2,3,5,6,7,10,11,13,14,15,17,19,21,22,23,26,29,
+                 30,31,33,34,35,37,38,39,41,42,43,46,47,51,53,55,
+                 57,58,59,61,62,65,66,67,69,70,71,73,74,77,78,79,
+                 82,83,85,86,87,89,91,93,94,95,97,101,102,103,105,
+                 106,107,109,110,111,113]
+  it "returns true for square-free numbers" do
+    SQUARE_FREE.each do |number|
+      number.should be_square_free
+    end
+  end
+
+  it "returns false for non-square-free numbers" do
+    ((1..113).to_a - SQUARE_FREE).each do |number|
+      number.should_not be_square_free
+    end
+  end
+end

data/spec/square_spec.rb

@@ -0,0 +1,24 @@
+describe Integer, "#square?" do
+  SQUARES = [0,1,4,9,16,25,36,49,64,81,100,121,144,169,196,
+             225,256,289,324,361,400,441,484,529,576,625,676,
+             729,784,841,900,961,1024,1089,1156,1225,1296,1369,
+             1444,1521,1600,1681,1764,1849]
+  
+  it "returns true if the number is square" do
+    SQUARES.each do |number|
+      number.should be_square
+    end
+  end
+
+  it "returns false if the number isn't square" do
+    ((1..1850).to_a - SQUARES).each do |number|
+      number.should_not be_square
+    end
+  end
+
+  it "returns false for negative numbers" do
+    [-1, -378, -9].each do |number|
+      number.should_not be_square
+    end
+  end
+end

data/spec/triangular_spec.rb

@@ -0,0 +1,19 @@
+describe Integer, "#triangular?" do
+  TRIANGULAR = [0,1,3,6,10,15,21,28,36,45,55,66,78,91,105,120,
+                136,153,171,190,210,231,253,276,300,325,351,378,
+                406,435,465,496,528,561,595,630,666,703,741,780,
+                820,861,903,946,990,1035,1081,1128,1176,1225,1275,
+                1326,1378,1431]
+
+  it "returns true for triangular numbers" do
+    TRIANGULAR.each do |number|
+      number.should be_triangular
+    end
+  end
+
+  it "returns false for non-triangular numbers" do
+    ((1..1431).to_a - TRIANGULAR).each do |number|
+      number.should_not be_triangular
+    end
+  end
+end

data/spec/trimorphic_spec.rb

@@ -0,0 +1,25 @@
+describe Integer, "#trimorphic?" do
+  TRIMORPHIC = [0,1,4,5,6,9,24,25,49,51,75,76,99,125,249,251,375,
+                376,499,501,624,625,749,751,875,999,1249,3751,
+                4375,4999,5001,5625,6249,8751,9375,9376,9999,
+                18751,31249,40625,49999,50001,59375,68751,81249,
+                90624,90625]
+  
+  it "returns true for trimorphic numbers" do
+    TRIMORPHIC.each do |number|
+      number.should be_trimorphic
+    end
+  end
+
+  it "returns false for non-trimorphic numbers" do
+    [2,3,7, 8752, 906266, 33333].each do |number|
+      number.should_not be_trimorphic
+    end
+  end
+
+  it "returns false for negative numbers" do
+    [2,3,4,7,9,8752, 906266, 33333].each do |number|
+      (-number).should_not be_trimorphic
+    end
+  end
+end

data/spec/undulating_spec.rb

@@ -0,0 +1,20 @@
+describe Integer, "#undulating?" do
+  # http://www.research.att.com/~njas/sequences/A046075
+  UNDULATING = [101,121,131,141,151,161,171,181,191,202,212,232,
+                242,252,262,272,282,292,303,313,323,343,353,363,
+                373,383,393,404,414,424,434,454,464,474,484,494,
+                505,515,525,535,545,565,575,585,595,606,616,626,
+                636,646,656]
+
+  it "requires true for undulating numbers" do
+    UNDULATING.each do |number|
+      number.should be_undulating
+    end
+  end
+
+  it "requires false for non-undulating numbers" do
+    ((1..300).to_a - UNDULATING).each do |number|
+      number.should_not be_undulating
+    end
+  end
+end

data/spec/vampire_spec.rb

@@ -0,0 +1,19 @@
+describe Integer, "#vampire?" do
+  # http://www.research.att.com/~njas/sequences/A014575
+  VAMPIRE = [1260,1395,1435,1530,1827,2187,6880,102510,104260,
+             105210,105264,105750,108135,110758,115672,116725,
+             117067,118440,120600,123354,124483,125248,125433,
+             125460,125500,126027,126846,129640]
+  
+  it "returns true for vampire numbers" do
+    VAMPIRE.each do |number|
+      number.should be_vampire 
+    end
+  end
+  
+  it "returns false for non-vampire numbers" do
+    [1259,22,1396].each do |number|
+      number.should_not be_vampire 
+    end
+  end
+end

data/spec/weird_spec.rb

@@ -0,0 +1,24 @@
+describe Integer, "#weird?" do
+  WEIRD = [70,836,4030,5830,7192,7912,9272,10430,10570,
+                  10792,10990,11410,11690,12110,12530,12670,13370,
+                  13510,13790,13930,14770,15610,15890,16030,16310,
+                  16730,16870,17272,17570,17990,18410,18830,18970,
+                  19390,19670]
+  it "returns true if the number is weird" do
+    WEIRD.sample(10).each do |number|
+      number.should be_weird
+    end
+  end
+
+  it "returns false if the number is not weird" do
+    [1, 39, 69, 13791].each do |number|
+      number.should_not be_weird
+    end
+  end
+
+  it "returns false if the number is negative" do
+    [-1, -70, -39, -19390].each do |number|
+      number.should_not be_weird
+    end
+  end
+end