answer-factory 0.1.3.6 → 0.1.3.7

data/VERSION

@@ -1 +1 @@
-0.1.3.6
+0.1.3.7

data/answer-factory.gemspec

@@ -5,7 +5,7 @@
 
 Gem::Specification.new do |s|
   s.name = %q{answer-factory}
-  s.version = "0.1.3.6"
+  s.version = "0.1.3.7"
 
   s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
   s.authors = ["Bill Tozier", "Trek Glowacki", "Jesse Sielaff"]
@@ -38,6 +38,7 @@ Gem::Specification.new do |s|
      "lib/machines/infrastructure.rb",
      "lib/machines/mutate_codeblock.rb",
      "lib/machines/mutate_footnotes.rb",
+     "lib/machines/point_crossover.rb",
      "lib/machines/select_by_summed_rank.rb",
      "lib/machines/select_nondominated.rb",
      "readme.md",
@@ -54,6 +55,7 @@ Gem::Specification.new do |s|
      "spec/machines/infrastructure_spec.rb",
      "spec/machines/mutate_codeblock_spec.rb",
      "spec/machines/mutate_footnotes_spec.rb",
+     "spec/machines/point_crossover_spec.rb",
      "spec/machines/select_by_summed_rank_spec.rb",
      "spec/machines/select_nondominated_spec.rb",
      "spec/spec_helper.rb",
@@ -79,6 +81,7 @@ Gem::Specification.new do |s|
      "spec/machines/infrastructure_spec.rb",
      "spec/machines/mutate_codeblock_spec.rb",
      "spec/machines/mutate_footnotes_spec.rb",
+     "spec/machines/point_crossover_spec.rb",
      "spec/machines/select_by_summed_rank_spec.rb",
      "spec/machines/select_nondominated_spec.rb",
      "spec/spec_helper.rb"

data/lib/answer-factory.rb

@@ -18,6 +18,8 @@ require 'machines/select_nondominated'
 require 'machines/select_by_summed_rank'
 require 'machines/mutate_codeblock'
 require 'machines/mutate_footnotes'
+require 'machines/point_crossover'
+
 
 
 

data/lib/machines/point_crossover.rb

@@ -0,0 +1,48 @@
+#encoding: utf-8
+module AnswerFactory
+  module Machines
+    
+    
+    
+    
+    class PointCrossover < Machine
+      
+      def build(batch, overridden_options={})
+        raise ArgumentError, "PointCrossover#build cannot process a #{batch.class}" unless
+          batch.kind_of?(Batch)
+        
+        all_options = @options.merge(overridden_options)
+          
+        replicates = all_options[:replicates] || 1
+        
+        result = Batch.new
+        number_of_parents = batch.length
+        
+        batch.each do |answer|
+          replicates.times do
+            parents = batch.sample(2)
+            mom = parents[0]
+            dad = parents[1]
+            
+            mom_point = Kernel.rand(mom.points)+1
+            
+            dad_point = Kernel.rand(dad.points)+1
+            dad_code = dad.program[dad_point].blueprint
+            
+            baby = mom.replace_point_or_clone(mom_point,dad_code)
+            baby_progress = [dad.progress, mom.progress].max + 1
+
+            result << Answer.new(baby, progress:baby_progress)
+          end
+        end
+        
+        return result
+      end
+      
+      
+      alias :generate :build
+      
+      
+    end
+  end
+end

data/spec/machines/point_crossover_spec.rb

@@ -0,0 +1,80 @@
+#encoding: utf-8
+require File.join(File.dirname(__FILE__), "./../spec_helper")
+
+describe "Machines::PointCrossover" do
+  before(:each) do
+    @mater = Machines::PointCrossover.new
+    @two = Batch.[](
+      Answer.new("block { do a do b do c do d}"),
+      Answer.new("block { ref a ref b ref c ref d ref e}"))
+  end
+  
+  
+  describe "#build method" do
+    it "should respond to :build" do
+      @mater.should respond_to(:build)
+    end
+    
+    it "should respond to :generate as an alias of :build" do
+      @mater.should respond_to(:generate)
+    end
+    
+    it "should raise an error if the argument isn't a Batch" do
+      lambda{@mater.build(@two)}.should_not raise_error
+      lambda{@mater.build(99)}.should raise_error
+    end
+    
+    it "should produce a Batch" do
+      @mater.build(@two).should be_a_kind_of(Batch)
+    end
+    
+    it "should produce a Batch with a new object_id" do
+      @mater.build(@two).object_id.should_not == @two.object_id
+    end
+    
+    it "should not modify or include any Answer object from its argument Batch" do
+      original_ids = @two.collect {|a| a.object_id}
+      result_ids = @mater.build(@two).collect {|a| a.object_id}
+      (original_ids & result_ids).length.should == 0
+    end
+    
+    describe ":replicates option" do
+      it "should produce :replicates offspring for each parent" do
+        @mater.build(@two, replicates:2).length.should == 2 * @two.length
+      end
+
+      it "should use the initialization :replicates option if there isn't a call option" do
+        threefer = Machines::PointCrossover.new(replicates:3)
+        threefer.build(@two).length.should == 3*@two.length
+      end
+    
+      it "should default to replicates:1 if none was set as an option" do
+        @mater.build(@two).length.should == @two.length
+      end
+    end
+    
+    it "should increment the :progress attribute of the derived Answers, regardless of other settings" do
+      @mater.build(@two).each {|a| a.progress.should == 1}
+    end
+    
+    describe "crossing over code" do
+      it "should work by selecting random pairs of parents (without replacement)" do
+        @two.stub!(:sample).and_return([@two[0],@two[1]])
+        @mater.build(@two)
+      end
+      
+      it "should pick the exchanged points with uniform probability" do
+        @two.stub!(:sample).and_return([@two[0],@two[1]])
+        Kernel.should_receive(:rand).exactly(2).times.with(5).and_return(1)
+        Kernel.should_receive(:rand).exactly(2).times.with(6).and_return(2)
+        @mater.build(@two)
+      end
+      
+      it "should move code from one parent to the other, for each offspring made" do
+        Kernel.stub!(:rand).and_return(1)
+        babies = @mater.build(@two)
+        babies.each {|b| (b.blueprint.should include("ref")) && (b.blueprint.should include("do"))}
+      end
+    end
+  end
+end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification 
 name: answer-factory
 version: !ruby/object:Gem::Version 
-  hash: 71
+  hash: 69
   prerelease: false
   segments: 
   - 0
   - 1
   - 3
-  - 6
-  version: 0.1.3.6
+  - 7
+  version: 0.1.3.7
 platform: ruby
 authors: 
 - Bill Tozier
@@ -159,6 +159,7 @@ files:
 - lib/machines/infrastructure.rb
 - lib/machines/mutate_codeblock.rb
 - lib/machines/mutate_footnotes.rb
+- lib/machines/point_crossover.rb
 - lib/machines/select_by_summed_rank.rb
 - lib/machines/select_nondominated.rb
 - readme.md
@@ -175,6 +176,7 @@ files:
 - spec/machines/infrastructure_spec.rb
 - spec/machines/mutate_codeblock_spec.rb
 - spec/machines/mutate_footnotes_spec.rb
+- spec/machines/point_crossover_spec.rb
 - spec/machines/select_by_summed_rank_spec.rb
 - spec/machines/select_nondominated_spec.rb
 - spec/spec_helper.rb
@@ -229,6 +231,7 @@ test_files:
 - spec/machines/infrastructure_spec.rb
 - spec/machines/mutate_codeblock_spec.rb
 - spec/machines/mutate_footnotes_spec.rb
+- spec/machines/point_crossover_spec.rb
 - spec/machines/select_by_summed_rank_spec.rb
 - spec/machines/select_nondominated_spec.rb
 - spec/spec_helper.rb