combinatorics 0.3.1 → 0.4.1

data/spec/cartesian_product/set_spec.rb

@@ -0,0 +1,10 @@
+require 'spec_helper'
+require 'cartesian_product/mixin_examples'
+
+require 'combinatorics/cartesian_product/extensions/set'
+
+describe Set do
+  subject { Set }
+
+  it_should_behave_like "CartesianProduct::Mixin"
+end

data/spec/choose/array_spec.rb

@@ -0,0 +1,9 @@
+require 'spec_helper'
+require 'combinatorics/choose/extensions/array'
+require 'choose/mixin_examples'
+
+describe Array do
+  subject { Array }
+
+  it_should_behave_like 'Choose::Mixin'
+end

data/spec/choose/cardinality_spec.rb

@@ -0,0 +1,132 @@
+require 'spec_helper'
+require 'combinatorics/choose'
+
+describe Choose do
+  subject { Choose }
+
+  describe "cardinality" do
+    it "should raise RangeError if n is negative" do
+      lambda { subject.cardinality(-1) }.should raise_error(RangeError)
+    end
+
+    it "should raise RangeError if n is negative" do
+      lambda { subject.cardinality(-1, 1) }.should raise_error(RangeError)
+    end
+
+    it "should raise RangeError if r is negative" do
+      lambda { subject.cardinality(1, -1) }.should raise_error(RangeError)
+    end
+
+    it "should raise RangeError if r is greater than n" do
+      lambda { subject.cardinality(2, 3) }.should raise_error(RangeError)
+    end
+
+    it "should return 1 for subject.cardinality(0)" do
+      subject.cardinality(0).should == 1
+    end
+
+    it "should return 1 for subject.cardinality(1)" do
+      subject.cardinality(1).should == 1
+    end
+
+    it "should return 2 for subject.cardinality(2)" do
+      subject.cardinality(2).should == 2
+    end
+
+    it "should return 6 for subject.cardinality(3)" do
+      subject.cardinality(3).should == 6
+    end
+
+    it "should return 24 for subject.cardinality(4)" do
+      subject.cardinality(4).should == 24
+    end
+
+    it "should return 0 for subject.cardinality(1, 0)" do
+      subject.cardinality(1, 0).should == 0
+    end
+
+    it "should return 1 for subject.cardinality(1, 1)" do
+      subject.cardinality(1, 1).should == 1
+    end
+
+    it "should return 2 for subject.cardinality(2, 1)" do
+      subject.cardinality(2, 1).should == 2
+    end
+
+    it "should return 1 for subject.cardinality(2, 2)" do
+      subject.cardinality(2, 2).should == 1
+    end
+
+    it "should return 3 for subject.cardinality(3, 1)" do
+      subject.cardinality(3, 1).should == 3
+    end
+
+    it "should return 3 for subject.cardinality(3, 2)" do
+      subject.cardinality(3, 2).should == 3
+    end
+
+    it "should return 1 for subject.cardinality(3, 3)" do
+      subject.cardinality(3, 3).should == 1
+    end
+
+    it "should return 4 for subject.cardinality(4, 1)" do
+      subject.cardinality(4, 1).should == 4
+    end
+
+    it "should return 6 for subject.cardinality(4, 2)" do
+      subject.cardinality(4, 2).should == 6
+    end
+
+    it "should return 4 for subject.cardinality(4, 3)" do
+      subject.cardinality(4, 3).should == 4
+    end
+
+    it "should return 1 for subject.cardinality(4, 4)" do
+      subject.cardinality(4, 4).should == 1
+    end
+
+    it "should return 15 for subject.cardinality(6, 4)" do
+      subject.cardinality(6, 4).should == 15
+    end
+
+    it "should return 3628800 for subject.cardinality(10)" do
+      subject.cardinality(10).should == 3628800
+    end
+  end
+
+  describe "cardinality_all" do
+    it "should return [] for subject.cardinality_all(0)" do
+      subject.cardinality_all(0).should be_empty
+    end
+
+    it "should return [1] for subject.cardinality_all(1)" do
+      subject.cardinality_all(1).should == [1]
+    end
+
+    it "should return [2, 1] for subject.cardinality_all(2)" do
+      subject.cardinality_all(2).should == [2, 1]
+    end
+
+    it "should return [3, 3, 1] for subject.cardinality_all(3)" do
+      subject.cardinality_all(3).should == [3, 3, 1]
+    end
+
+    it "should return [4, 6, 4, 1] for subject.cardinality_all(4)" do
+      subject.cardinality_all(4).should == [4, 6, 4, 1]
+    end
+
+    it "should allow specifying the range of `r` values" do
+      subject.cardinality_all(10,5..10).should == [
+        252, 210, 120, 45, 10, 1
+      ]
+    end
+
+    it "should raise RangeError for subject.cardinality_all(-1)" do
+      lambda { subject.cardinality_all(-1) }.should raise_error(RangeError)
+    end
+
+    it "should wrap cardinality with Choose.C" do
+      should respond_to(:C)
+    end
+  end
+end

data/spec/choose/mixin_examples.rb

@@ -0,0 +1,48 @@
+require 'spec_helper'
+require 'combinatorics/choose'
+
+shared_examples_for "Choose::Mixin" do
+  let(:empty_set) { Set[] }
+
+  it "should return [[]] for [].choose(0).to_a" do
+    set     = subject[]
+    results = set.choose(0).to_a
+
+    results.should == [empty_set]
+  end
+
+  it "should return [[]] for [1].choose(0).to_a" do
+    set     = subject[1]
+    results = set.choose(0).to_a
+    
+    results.should == [empty_set]
+  end
+
+  it "should return [[1]] for [1].choose(1).to_a" do
+    set     = subject[1]
+    results = set.choose(1).to_a
+    
+    results.should == [Set[1]]
+  end
+
+  it "should return [[1], [2]] for [1, 2].choose(1).to_a" do
+    set     = subject[1, 2]
+    results = set.choose(1).to_a
+    
+    results.should =~ [Set[1], Set[2]]
+  end
+
+  it "should return [[1, 2]] for [1, 2].choose(2).to_a" do
+    set     = subject[1, 2]
+    results = set.choose(2).to_a
+    
+    results.should == [Set[1, 2]]
+  end
+
+  it "should filter out repeated elements" do
+    set1 = subject[1,1,2,3]
+    set2 = subject[1,2,3]
+
+    set1.choose(2).to_a.should == set2.choose(2).to_a
+  end
+end

data/spec/choose/set_spec.rb

@@ -0,0 +1,9 @@
+require 'spec_helper'
+require 'combinatorics/choose/extensions/set'
+require 'choose/mixin_examples'
+
+describe Set do
+  subject { Set }
+
+  it_should_behave_like 'Choose::Mixin'
+end

data/spec/derange/array_spec.rb

@@ -0,0 +1,10 @@
+require 'spec_helper'
+require 'derange/mixin_examples'
+
+require 'combinatorics/derange/extensions/array'
+
+describe Array do
+  subject { Array }
+
+  it_should_behave_like "Derange::Mixin"
+end

data/spec/derange/cardinality_spec.rb

@@ -0,0 +1,14 @@
+require 'spec_helper'
+require 'combinatorics/derange/cardinality'
+
+describe Derange do
+  subject { Derange }
+
+  it "should alias cardinality to subfactorial" do
+    should respond_to(:cardinality)
+  end
+
+  it "should wrap subfactorial with Derange.D" do
+    should respond_to(:D)
+  end
+end

data/spec/derange/mixin_examples.rb

@@ -0,0 +1,52 @@
+require 'spec_helper'
+
+require 'combinatorics/derange'
+
+shared_examples_for "Derange::Mixin" do
+  it "the derange of an empty Set should only contain an empty Array" do
+    set     = subject[]
+    results = set.derange.to_a
+    
+    results.should == [[]]
+  end
+
+  it "should return [[]] for [1].derange.to_a" do
+    set     = subject[1]
+    results = set.derange.to_a
+
+    results.should == [[]]
+  end
+
+  it "should return [[2, 1]] for [1, 2].derange.to_a" do
+    set     = subject[1, 2]
+    results = set.derange.to_a
+
+    results.should == [[2, 1]]
+  end
+
+  it "should return [[2, 1, 4, 3], [2, 3, 4, 1], [2, 4, 1, 3], [3, 1, 4, 2], [3, 4, 1, 2], [3, 4, 2, 1], [4, 1, 2, 3], [4, 3, 1, 2], [4, 3, 2, 1]] for [1, 2, 3, 4].derange.to_a" do
+    set     = [1, 2, 3, 4]
+    results = set.derange.to_a
+    
+    results.should == [
+      [2, 1, 4, 3],
+      [2, 3, 4, 1],
+      [2, 4, 1, 3],
+      [3, 1, 4, 2],
+      [3, 4, 1, 2],
+      [3, 4, 2, 1],
+      [4, 1, 2, 3],
+      [4, 3, 1, 2],
+      [4, 3, 2, 1]
+    ]
+  end
+
+  it "should take an optional block argument" do
+    set     = subject[1, 2, 3]
+    results = []
+
+    set.derange { |deranged| results << deranged }
+
+    results.should == [[2, 3, 1], [3, 1, 2]]
+  end
+end

data/spec/extensions/math_spec.rb

@@ -0,0 +1,100 @@
+require 'spec_helper'
+require 'combinatorics/extensions/math'
+
+describe Math do
+  it "should alias Sigma to sigma" do
+    should respond_to(:Sigma)
+  end
+
+  it "should alias Pi to pi" do
+    should respond_to(:Pi)
+  end
+
+  describe "sigma" do
+    it "should return 6 for sigma(1..3)" do
+      subject.sigma(1..3).should == 6
+    end
+
+    it "should return 60 for sigma(3..5)" do
+      subject.sigma(3..5).should == 12
+    end
+
+    it "should take an optional block argument" do
+      result = subject.sigma(1..5) { |i| i * 2 }
+
+      result.should == (1 * 2) + (2 * 2) + (3 * 2) + (4 * 2) + (5 * 2)
+    end
+  end
+
+  describe "pi" do
+    it "should return 24 for pi(1..4)" do
+      subject.pi(1..4).should == 24
+    end
+
+    it "should return 30 for pi(5..6)" do
+      subject.pi(5..6).should == 30
+    end
+
+    it "should take an optional block argument" do
+      result = subject.pi(1..3) { |i| i * 2 }
+
+      result.should == (1 * 2) * (2 * 2) * (3 * 2)
+    end
+  end
+
+  describe "factorial" do
+    it "should return 1 for factorial(0)" do
+      subject.factorial(0).should == 1
+    end
+
+    it "should return 1 for factorial(1)" do
+      subject.factorial(1).should == 1
+    end
+
+    it "should return 2 for factorial(2)" do
+      subject.factorial(2).should == 2
+    end
+
+    it "should return 6 for factorial(3)" do
+      subject.factorial(3).should == 6
+    end
+    
+    it "should return 3628800 for factorial(10)" do
+      subject.factorial(10).should == 3628800
+    end
+
+    it "should raise RangeError for factorial(-1)" do
+      lambda { subject.factorial(-1) }.should raise_error(RangeError)
+    end
+  end
+
+  describe "subfactorial" do
+    it "should return 1 for subfactorial(0)" do
+      subject.subfactorial(0).should == 1
+    end
+
+    it "should return 0 for subfactorial(1)" do
+      subject.subfactorial(1).should == 0
+    end
+
+    it "should return 1 for subfactorial(2)" do
+      subject.subfactorial(2).should == 1
+    end
+
+    it "should return 2 for subfactorial(3)" do
+      subject.subfactorial(3).should == 2
+    end
+
+    it "should return 9 for subfactorial(4)" do
+      subject.subfactorial(4).should == 9
+    end
+
+    it "should return 44 for subfactorial(5)" do
+      subject.subfactorial(5).should == 44
+    end
+
+    it "should raise RangeError for subfactorial(-1)" do
+      lambda { subject.subfactorial(-1) }.should raise_error(RangeError)
+    end
+  end
+end

data/spec/extensions/range_spec.rb

@@ -7,7 +7,7 @@ describe Range do
       ((100..200) & (150..200)).first.should == 150
     end
 
-    it "should pick the mimum ending value" do
+    it "should pick the minimum ending value" do
       ((100..150) & (100..200)).last.should == 150
     end
   end

data/spec/permute/array_spec.rb

@@ -0,0 +1,10 @@
+require 'spec_helper'
+require 'permute/mixin_examples'
+
+require 'combinatorics/permute/extensions/array'
+
+describe Array do
+  subject { Array }
+
+  it_should_behave_like "Permute::Mixin"
+end

data/spec/permute/cardinality_spec.rb

@@ -0,0 +1,146 @@
+require 'spec_helper'
+require 'combinatorics/permute'
+
+describe Permute do
+  subject { Permute }
+
+  describe "cardinality" do
+    it "should raise RangeError if n is negative without passing r" do
+      lambda { subject.cardinality(-1) }.should raise_error(RangeError)
+    end
+
+    it "should raise RangeError if n is negative when r is provided" do
+      lambda { subject.cardinality(-1, 1) }.should raise_error(RangeError)
+    end
+
+    it "should raise RangeError if r is negative" do
+      lambda { subject.cardinality(1, -1) }.should raise_error(RangeError)
+    end
+
+    it "should raise RangeError if r is greater than n" do
+      lambda { subject.cardinality(2, 3) }.should raise_error(RangeError)
+    end
+
+    it "should return 1 for subject.cardinality(0)" do
+      subject.cardinality(0).should == 1
+    end
+
+    it "should return 1 for subject.cardinality(1)" do
+      subject.cardinality(1).should == 1
+    end
+
+    it "should return 2 for subject.cardinality(2)" do
+      subject.cardinality(2).should == 2
+    end
+
+    it "should return 6 for subject.cardinality(3)" do
+      subject.cardinality(3).should == 6
+    end
+
+    it "should return 24 for subject.cardinality(4)" do
+      subject.cardinality(4).should == 24
+    end
+
+    it "should return 0 for subject.cardinality(1, 0)" do
+      subject.cardinality(1, 0).should == 0
+    end
+
+    it "should return 1 for subject.cardinality(1, 1)" do
+      subject.cardinality(1, 1).should == 1
+    end
+
+    it "should return 2 for subject.cardinality(2, 1)" do
+      subject.cardinality(2, 1).should == 2
+    end
+
+    it "should return 1 for subject.cardinality(2, 2)" do
+      subject.cardinality(2, 2).should == 2
+    end
+
+    it "should return 3 for subject.cardinality(3, 1)" do
+      subject.cardinality(3, 1).should == 3
+    end
+
+    it "should return 3 for subject.cardinality(3, 2)" do
+      subject.cardinality(3, 2).should == 6
+    end
+
+    it "should return 1 for subject.cardinality(3, 3)" do
+      subject.cardinality(3, 3).should == 6
+    end
+
+    it "should return 4 for subject.cardinality(4, 1)" do
+      subject.cardinality(4, 1).should == 4
+    end
+
+    it "should return 12 for subject.cardinality(4, 2)" do
+      subject.cardinality(4, 2).should == 12
+    end
+
+    it "should return 24 for subject.cardinality(4, 3)" do
+      subject.cardinality(4, 3).should == 24
+    end
+
+    it "should return 1 for subject.cardinality(4, 4)" do
+      subject.cardinality(4, 4).should == 24
+    end
+
+    it "should return 360 for subject.cardinality(6, 4)" do
+      subject.cardinality(6, 4).should == 360
+    end
+
+    it "should return 3628800 for subject.cardinality(10)" do
+      subject.cardinality(10).should == 3628800
+    end
+  end
+
+  describe "cardinality_all" do
+    it "should return [] for cardinality_all(0)" do
+      subject.cardinality_all(0).should be_empty
+    end
+
+    it "should return [1] for cardinality_all(1)" do
+      subject.cardinality_all(1).should == [1]
+    end
+
+    it "should return [2, 1] for cardinality_all(2)" do
+      subject.cardinality_all(2).should == [2, 2]
+    end
+
+    it "should return [3, 6, 1] for cardinality_all(3)" do
+      subject.cardinality_all(3).should == [3, 6, 6]
+    end
+
+    it "should return [4, 12, 24, 1] for cardinality_all(4)" do
+      subject.cardinality_all(4).should == [4, 12, 24, 24]
+    end
+
+    it "should raise RangeError for cardinality_all(-1)" do
+      lambda { subject.cardinality_all(-1) }.should raise_error(RangeError)
+    end
+
+    it "should wrap cardinality with Permute.N" do
+      should respond_to(:N)
+    end
+
+    it "should wrap cardinalith with Permute.R" do
+      should respond_to(:R)
+    end
+
+    it "should wrap cardinality with Permute.NR" do
+      should respond_to(:NR)
+    end
+
+    it "should alias cardinality_all to N_all" do
+      should respond_to(:N_all)
+    end
+
+    it "should alias cardinality_all to NR_all" do
+      should respond_to(:NR_all)
+    end
+
+    it "should alias cardinality_all to R_all" do
+      should respond_to(:R_all)
+    end
+  end
+end