answer-factory 0.0.1

data/LICENSE.txt

@@ -0,0 +1,21 @@
+The MIT License
+
+Copyright (c) 2009 William Tozier
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.

data/Rakefile

@@ -0,0 +1,29 @@
+require 'rake'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gemspec|
+    gemspec.name = "answer-factory"
+    gemspec.summary = "Genetic Programming in the Nudge language"
+    gemspec.description = "The pragmaticgp gem provides a simple framework for building, running and managing genetic programming experiments which automatically discover algorithms and equations to solve user-defined problems."
+    gemspec.email = "bill@vagueinnovation.com"
+    gemspec.homepage = "http://github.com/Vaguery/PragGP"
+    gemspec.authors = ["Bill Tozier", "Trek Glowacki", "Jesse Sielaff"]
+    
+    gemspec.required_ruby_version = '>= 1.9.1'
+    
+    gemspec.add_dependency('nudge', '>= 0.2')
+    gemspec.add_dependency('thor', '>= 0.13')
+    gemspec.add_dependency('couchrest', '>= 0.33')
+    gemspec.add_dependency('fakeweb', '>= 0.33')
+    gemspec.add_dependency('sinatra', '>= 0.9.4')
+    gemspec.add_dependency('activesupport', '>= 2.3.5')
+    
+    #files
+    gemspec.files.exclude('_spikes/**')
+  end
+  
+  Jeweler::GemcutterTasks.new
+rescue LoadError
+  puts "Jeweler not available. Install it with: gem install jeweler"
+end

data/Thorfile

@@ -0,0 +1,79 @@
+require 'active_support'
+require 'lib/answer-factory'
+
+class Extend_Nudge < Thor::Group
+  include Thor::Actions
+  
+  # Define arguments and options
+  argument :project_name
+  class_option :test_framework, :default => :rspec
+  desc "Creates a new project folder structure for Nudge types, instructions and specs"
+  
+  
+  def self.source_root
+    File.dirname(__FILE__)
+  end
+  
+  def create_project_folder
+    dirname = "#{Extend_Nudge.source_root}/#{project_name}"
+    puts dirname
+    if Dir.exist?(dirname) then
+      puts "project directory 'dirname' already exists"
+    else
+      empty_directory(dirname)
+      empty_directory("#{dirname}/lib")
+      empty_directory("#{dirname}/lib/instructions")
+      empty_directory("#{dirname}/lib/interpreter/types")
+      empty_directory("#{dirname}/spec")
+    end
+  end
+end
+
+
+class New_Nudge_Type < Thor::Group
+  include Thor::Actions
+  
+  # Define arguments and options
+  argument :typename_root
+  class_option :test_framework, :default => :rspec
+  desc "Creates a new NudgeType class definition file, typical instructions, and rspec files"
+  
+
+  def self.source_root
+    File.dirname(__FILE__)
+  end
+  
+  def self.type_name(string)
+    string.camelize + "Type"
+  end
+  
+  def nudge_gem_path
+    Nudge.gem_root
+  end
+  
+  def create_lib_file
+    @camelcased_type_name = New_Nudge_Type.type_name(typename_root)
+    filename = "#{@camelcased_type_name}.rb"
+    template("#{nudge_gem_path}/templates/nudge_type_class.erb", "#{New_Nudge_Type.source_root}/lib/types/#{filename}")
+  end
+  
+  def create_lib_spec
+    @camelcased_type_name = New_Nudge_Type.type_name(typename_root)
+    filename = "#{@camelcased_type_name}_spec.rb"
+    template("#{nudge_gem_path}/templates/nudge_type_spec.erb", "#{New_Nudge_Type.source_root}/spec/#{filename}")
+  end  
+  
+  def create_instructions
+    suite = ["define", "equal_q", "duplicate", "flush", "pop",
+      "random", "rotate", "shove", "swap", "yank", "yankdup"]
+    
+    suite.each do |inst|
+      @core = "#{typename_root}_#{inst}"
+      filename = "#{@core}.rb"
+      @instname = "#{@core.camelize}Instruction"
+      @type = typename_root
+      @camelized_type = New_Nudge_Type.type_name(typename_root)
+      template("#{nudge_gem_path}/templates/nudge_#{inst}_instruction.erb", "#{New_Nudge_Type.source_root}/lib/instructions/#{filename}")
+    end
+  end
+end

data/VERSION

@@ -0,0 +1 @@
+0.0.1

data/_spikes/old_vs_new_dominated_by?.rb

@@ -0,0 +1,45 @@
+require 'nudge'
+require '../lib/answer-factory'
+include Nudge
+include NudgeGP
+
+
+d1 = Answer.new("")
+d2 = Answer.new("")
+
+t1 = Time.now
+100000.times do
+  d1.scores = {"a" => rand(20)-10, "b" => rand(20)-10,"c" => rand(20)-10,"d" => rand(20)-10,"e" => rand(20)-10,"e1" => rand(20)-10,"e2" => rand(20)-10,"e3" => rand(20)-10,"e4" => rand(20)-10,"e5" => rand(20)-10,"e6" => rand(20)-10,"edfsgdf" => rand(20)-10,"se" => rand(20)-10}
+  d2.scores =  {"a" => rand(20)-10, "b" => rand(20)-10,"c" => rand(20)-10,"d" => rand(20)-10,"e" => rand(20)-10,"e1" => rand(20)-10,"e2" => rand(20)-10,"e3" => rand(20)-10,"e4" => rand(20)-10,"e5" => rand(20)-10,"e6" => rand(20)-10,"edfsgdf" => rand(20)-10,"se" => rand(20)-10}
+  d1.dominated_by?(d2)
+end
+puts "#{Time.now - t1} sec from the new one"
+
+
+class Answer
+  def dominated_by?(other, template = self.known_criteria)
+    return false unless (known_criteria == other.known_criteria)
+    
+    noWorse = true
+    somewhatBetter = false
+    template.each do |score|
+      if self.scores[score] && other.scores[score]
+        noWorse &&= (self.scores[score] >= other.scores[score])
+        somewhatBetter ||= (self.scores[score] > other.scores[score])
+      else
+        return false
+      end
+    end
+    return noWorse && somewhatBetter
+  end
+end
+
+
+t1 = Time.now
+100000.times do
+  d1.scores =  {"a" => rand(20)-10, "b" => rand(20)-10,"c" => rand(20)-10,"d" => rand(20)-10,"e" => rand(20)-10,"e1" => rand(20)-10,"e2" => rand(20)-10,"e3" => rand(20)-10,"e4" => rand(20)-10,"e5" => rand(20)-10,"e6" => rand(20)-10,"edfsgdf" => rand(20)-10,"se" => rand(20)-10}
+  d2.scores =  {"a" => rand(20)-10, "b" => rand(20)-10,"c" => rand(20)-10,"d" => rand(20)-10,"e" => rand(20)-10,"e1" => rand(20)-10,"e2" => rand(20)-10,"e3" => rand(20)-10,"e4" => rand(20)-10,"e5" => rand(20)-10,"e6" => rand(20)-10,"edfsgdf" => rand(20)-10,"se" => rand(20)-10}
+  d1.dominated_by?(d2)
+end
+puts "#{Time.now - t1} sec from the old one"
+

data/config/database.yml

@@ -0,0 +1,9 @@
+# realy wants to use CouchDB version 0.11 or higher
+
+# edit this to fit your particular CouchDB configuration
+main_database:
+  db_root: http://127.0.0.1:5984              #   URI of your CouchDB server
+  db_name: my_factory                         #   root database handling your AnswerFactory:
+  tag_filter: _design/routing/_view/by_tag    #   don't edit this unless you also
+                                              #     change how it's used in the codebase!
+  

data/lib/answer-factory.rb

@@ -0,0 +1,14 @@
+$: << File.join(File.dirname(__FILE__), "/../lib") 
+
+require 'rubygems'
+require 'nudge'
+
+require 'answers/answer'
+require 'answers/batch'
+
+require 'operators/basic_operators'
+require 'operators/samplers_and_selectors'
+require 'operators/evaluators'
+
+require 'factories/factory'
+require 'factories/workstation'

data/lib/answers/answer.rb

@@ -0,0 +1,126 @@
+require 'set'
+
+module NudgeGP
+  class Answer
+    attr_accessor :scores, :tags
+    attr_reader :draft_blueprint, :program, :timestamp, :ancestors
+    attr_reader :initialization_options, :progress
+    
+    
+    def initialize(blueprint, options = {})
+      raise ArgumentError unless
+        blueprint.kind_of?(String) || blueprint.kind_of?(NudgeProgram)
+      build_from_blueprint!(blueprint)
+      
+      @scores = Hash.new do |hash, key|
+        raise ArgumentError, "scores must use symbols as keys" unless key.kind_of?(Symbol)
+        nil
+      end
+      @timestamp = Time.now
+      @initialization_options = options
+      @progress = options[:progress] || 0
+      @ancestors = options[:ancestors] || []
+      @tags = Set.new(options[:tags]) || Set.new
+    end
+    
+    
+    def build_from_blueprint!(blueprint)
+      if blueprint.kind_of?(String)
+        @draft_blueprint = blueprint
+        @program = NudgeProgram.new(blueprint)
+      else
+        @program = blueprint
+        @draft_blueprint = @program.blueprint
+      end
+    end
+    
+    
+    def blueprint
+      @program.blueprint
+    end
+    
+    
+    def parses?
+      @program.parses?
+    end
+    
+    
+    def known_criteria
+      @scores.keys.sort
+    end
+    
+    
+    def score_vector(ordering = known_criteria)
+      ordering.collect {|k| @scores[k]}
+    end
+    
+    
+    def dominated_by?(other_answer, comparison_criteria = self.known_criteria)
+      
+      return false unless (known_criteria & comparison_criteria) ==
+        (other_answer.known_criteria & comparison_criteria)
+      
+      could_be_identical = true
+      
+      comparison_criteria.each do |score|
+        return false if (my_score = self.scores[score]) < (other_score = other_answer.scores[score])
+        
+        if could_be_identical
+          could_be_identical &&= (my_score == other_score)
+        end
+      end
+      
+      return !could_be_identical
+    rescue NoMethodError
+      false
+    end
+    
+    
+    def points
+      @program.points
+    end
+    
+    
+    def delete_point_or_clone(which)
+      ((1..self.points).include?(which)) ?
+        self.program.delete_point(which) : 
+        self.program.deep_copy
+    end
+    
+    
+    def replace_point_or_clone(which, object)
+      if object.kind_of?(String)
+        prog = NudgeProgram.new(object)
+        if !prog.parses?
+          raise(ArgumentError, "Replacement point cannot be parsed")
+        else
+          new_point = prog.linked_code
+        end
+      elsif object.kind_of?(ProgramPoint)
+        new_point = object
+      else
+        raise(ArgumentError, "Program points cannot be replaced by #{object.class} objects")
+      end
+      
+      ((1..self.points).include?(which)) ?
+        self.program.replace_point(which, new_point) :
+        self.program.deep_copy
+    end
+  end
+  
+  
+  def add_tag(new_tag)
+    raise ArgumentError, "#{new_tag} is not a Symbol" unless new_tag.kind_of?(Symbol)
+    @tags.add(new_tag)
+  end
+  
+  
+  def remove_tag(old_tag)
+    @tags.delete(old_tag)
+  end
+  
+  
+  def data
+    {'blueprint' => self.blueprint, 'tags' => self.tags, 'scores' => self.scores, 'timestamp' => @timestamp}
+  end
+end

data/lib/answers/batch.rb

@@ -0,0 +1,49 @@
+module NudgeGP
+  # A Batch is simply an Array of Answers, with validation for all assignment methods
+  class Batch < Array
+    
+    def self.[](*args)
+      raise ArgumentError unless args.inject(true) {|anded, a| anded & a.kind_of?(Answer)}
+      super
+    end
+    
+    
+    def []=(index, obj)
+      raise ArgumentError unless obj.kind_of?(Answer)
+      super
+    end
+    
+    
+    def <<(obj)
+      raise ArgumentError unless obj.kind_of?(Answer)
+      super
+    end
+    
+    
+    def initialize(*args)
+      raise ArgumentError unless args.inject(true) {|anded, a| anded & a.kind_of?(Answer)}
+      super
+    end
+    
+    
+    def bulk_save!(couchdb_uri)
+      raise ArgumentError, "#{couchdb_uri} is not a String" unless couchdb_uri.kind_of?(String)
+      
+      db = CouchRest.database!(couchdb_uri)
+      db.bulk_save(self.data)
+    end
+    
+    
+    def self.load_tagged_answers(couchdb_uri, tag)
+      raise ArgumentError, "#{couchdb_uri} is not a String" unless couchdb_uri.kind_of?(String)
+      raise ArgumentError, "#{tag} is not a String" unless tag.kind_of?(String)
+      db = CouchRest.database(couchdb_uri) # add the view document and key here
+      return Batch.new
+    end
+    
+    
+    def data
+      self.collect {|i| i.data}
+    end
+  end
+end

data/lib/factories/factory.rb

@@ -0,0 +1,53 @@
+module NudgeGP
+  class Factory
+    require 'open-uri'
+    require 'configatron'
+    
+    attr_reader :name
+    attr_reader :instruction_library, :type_library
+    attr_accessor :workstation_names
+    attr_reader :original_options_hash
+    
+    
+    def initialize(name = "my_factory", options = {})
+      @name = name
+      @original_options_hash = options
+      @instruction_library = options[:instruction_library] || Instruction.all_instructions
+      @type_library = options[:type_library] || NudgeType.all_types
+      @workstation_names = Array.new
+      
+      self.configure!
+    end
+    
+    
+    def couch_available?
+      open(self.configatron.couchdb_uri).status
+      true
+    rescue StandardError
+      false 
+    end
+    
+    
+    def configure!
+      self.configure_constants!
+      self.configure_paths!
+      self.configure_databases!
+    end
+    
+    
+    def configure_constants!
+      self.configatron.factory_name = self.name
+    end
+    
+    
+    def configure_paths!
+      self.configatron.factory_root = File.expand_path("#{File.dirname(__FILE__)}/../..")
+    end
+    
+    
+    def configure_databases!
+      self.configatron.configure_from_yaml("#{self.configatron.factory_root}/config/database.yml")
+      self.configatron.couchdb_uri = "#{self.configatron.main_database.db_root}/#{self.name}"
+    end
+  end
+end

data/lib/factories/workstation.rb

@@ -0,0 +1,33 @@
+module NudgeGP
+  class Workstation
+    attr_reader :name, :capacity, :couchdb_uri, :factory_name
+    attr_accessor :downstream_stations
+    attr_accessor :answers
+    
+    
+    def initialize(name, options = {})
+      raise ArgumentError, "#{name} is not a Symbol" unless name.kind_of?(Symbol)
+      @name = name
+      @factory_name = options[:factory_name] || 'factory_name'
+      @couchdb_uri = options[:couchdb_uri] || "http://127.0.0.1:5984/#{@factory_name}"
+      @capacity = options[:capacity] || 100
+      @downstream_stations = Array.new
+      @answers = Array.new
+    end
+    
+    
+    def transfer_answer(which, where)
+      raise ArgumentError, "#{where} is not a Symbol" unless where.kind_of?(Symbol)
+      which.remove_tag(self.name)
+      which.add_tag(where)
+    end
+    
+    
+    def cycle
+      self.receive!
+      self.build!
+      self.ship!
+      self.scrap!
+    end
+  end
+end