wildfalcon-skating_system 0.0.1

data/README

@@ -0,0 +1,7 @@
+Skating System
+--------------
+
+Provides an implementation of the skating system used for scoring dance comeptitions, as well as a few other types of competition.
+
+It is distributed under the MIT Licence, see licence.txt for the details
+

data/lib/skating_system.rb

@@ -0,0 +1,5 @@
+require 'skating_system/performance_results'
+require 'skating_system/scorer'
+
+module SkatingSystem
+end

data/lib/skating_system/performance_results.rb

@@ -0,0 +1,102 @@
+module SkatingSystem
+  class PerformanceResults
+    
+    def score(marks)
+      @marks = marks
+      @majority = (@marks[@marks.keys.first].size/2).ceil
+      
+      tally_marks
+
+      compute_results
+      
+      @marks.each do |entree, marks|
+        @marks[entree].merge!(@tally[entree])
+        @marks[entree].merge!(@results[entree])
+      end
+    end
+    
+    def sum_marks(entree, position)
+      sum=0
+      @marks[entree].each do |judge, place|
+        sum += place if place <= position
+      end
+      sum
+    end
+    
+    def compute_results
+      @results={ }
+      @marks.each do |entree, marks|
+        @results[entree] ||= { }
+      end
+      
+      @next_result_to_compute = 1
+      
+      1.upto(@marks.size) do |place|  
+        
+        
+        sorted_candidate = candidates(place).sort do |entree1, entree2| 
+          comparator = @tally[entree2][place] <=> @tally[entree1][place] 
+          if comparator==0
+            comparator = sum_marks(entree2, place) <=> sum_marks(entree1, place) 
+          end 
+          comparator
+        end
+        
+        sorted_candidate.each do |entree|
+          @results[entree][:result]=@next_result_to_compute
+          @next_result_to_compute += 1
+        end
+      end
+    end
+    
+    #Computes an array of entrees that are candidates for this position 
+    def candidates(place)
+      candidates = []
+      @tally.each do |entree, places|
+        unless @results[entree][:result]
+          candidates << entree if places[place] > @majority
+        end
+      end
+      candidates
+    end
+
+    def [](key)
+      @marks[key]
+    end
+
+    private
+    #Tallys the number of judges who marked each entree in each place or heigher
+    # and writes the results to @tally
+    # eg given the results
+    #    A  B  C 
+    # 1  1  1  3 
+    # 2  2  3  2 
+    # 3  3  2  3 
+    # it assigns the tally
+    #    1  2  3
+    # 1  2  2  3
+    # 2  0  2  3
+    # 3  0  1  3
+    def tally_marks
+      @tally={ }
+      @marks.each do |entree, marks|
+        @tally[entree] ||= { }
+        1.upto(@marks.size) do |place|
+          @tally[entree][place] = 0
+        end
+      end
+      
+      @marks.each do |entree, marks|
+        marks.each do |judge, placing|
+          placing.upto(@marks.size) do |place|
+            @tally[entree][place] += 1
+          end
+        end
+      end
+      
+    end
+    
+  end
+end
+
+

data/lib/skating_system/scorer.rb

@@ -0,0 +1,14 @@
+module SkatingSystem
+  class Scorer
+    def score(scorable)
+      score_performance(scorable) if scorable.respond_to?(:couples_marks)
+    end
+    
+    def score_performance(performance)
+      results = PerformanceResults.new
+      results.score(performance.couples_marks)    
+      results
+    end
+    
+  end
+end

data/spec/spec.opts

@@ -0,0 +1,6 @@
+--colour
+--format
+progress
+--loadby
+mtime
+--reverse

data/spec/spec/performance_results_spec.rb

@@ -0,0 +1,213 @@
+require File.dirname(__FILE__)+'/../spec_helper'
+
+describe SkatingSystem::PerformanceResults, "tallying the marks" do
+  before(:all) do
+    @performance_resuts = SkatingSystem::PerformanceResults.new
+    
+    @judge1 = mock("Judge")
+    @judge2 = mock("Judge")
+    @judge3 = mock("Judge")
+    
+    @entree1 = mock("Entree")
+    @entree2 = mock("Entree")
+    @entree3 = mock("Entree")
+    
+    #    A  B  C     1 2 3
+    # 1  1  1  3     2 2 3    1
+    # 2  2  3  2     0 2 3    2
+    # 3  3  2  3     0 1 3    3
+    @couples_marks = { @entree1=>{@judge1=>1, @judge2=>1, @judge3=>3 },
+      @entree2=>{@judge1=>2, @judge2=>3, @judge3=>2 },
+      @entree3=>{@judge1=>3, @judge2=>2, @judge3=>3 }} 
+    
+    @performance_resuts.score(@couples_marks)
+  end
+  
+  it "should know how many first places entree1 got" do
+    @performance_resuts[@entree1][1].should be(2)
+  end
+  
+  it "should know how many first places entree2 got" do
+    @performance_resuts[@entree2][1].should be(0)
+  end
+
+  it "should know how many first places entree3 got" do
+    @performance_resuts[@entree3][1].should be(0)
+  end
+  
+  it "should know how many 2nd or better places entree1 got" do
+    @performance_resuts[@entree1][2].should be(2)
+  end
+
+  it "should know how many 2nd or better places entree2 got" do
+    @performance_resuts[@entree2][2].should be(2)
+  end
+
+  it "should know how many 2nd or better places entree3 got" do
+    @performance_resuts[@entree3][2].should be(1)
+  end
+
+  it "should know how many 3rd or better places entree1 got" do
+    @performance_resuts[@entree1][3].should be(3)
+  end
+
+  it "should know how many 3rd or better places entree2 got" do
+    @performance_resuts[@entree2][3].should be(3)
+  end
+
+  it "should know how many 3rd or better places entree3 got" do
+    @performance_resuts[@entree3][3].should be(3)
+  end
+  
+end
+#
+#
+#describe "scoring a final that can be decided on just rule 5" do
+#  before(:all) do
+#    @performance_resuts = PerformanceResults.new
+#    
+#    @judge1 = mock_model(Judge)
+#    @judge2 = mock_model(Judge)
+#    @judge3 = mock_model(Judge)
+#    
+#    @entree1 = mock_model(Entree)
+#    @entree2 = mock_model(Entree)
+#    @entree3 = mock_model(Entree)
+#    
+#    #    A  B  C     1 2 3
+#    # 1  1  1  3     2 2 3    1
+#    # 2  2  3  2     0 2 3    2
+#    # 3  3  2  3     0 1 3    3
+#    @couples_marks = { @entree1=>{@judge1=>1, @judge2=>1, @judge3=>3 },
+#      @entree2=>{@judge1=>2, @judge2=>3, @judge3=>2 },
+#      @entree3=>{@judge1=>3, @judge2=>2, @judge3=>3 }} 
+#    
+#    @performance_resuts.score(@couples_marks)
+#  end
+#  
+#  it "should list entree 1 as first place" do
+#    @performance_resuts[@entree1][:result].should be(1)
+#  end 
+#  
+#  it "should list entree 2 as second place" do
+#    @performance_resuts[@entree2][:result].should be(2)
+#  end 
+#
+#  it "should list entree 3 as third place" do
+#    @performance_resuts[@entree3][:result].should be(3)
+#  end 
+#end
+#
+#
+#describe "scoring a final that requires rule 6" do
+#  
+#  before(:all) do
+#    @performance_resuts = PerformanceResults.new
+#    
+#    @judgea = mock_model(Judge)
+#    @judgeb = mock_model(Judge)
+#    @judgec = mock_model(Judge)
+#    @judged = mock_model(Judge)
+#    @judgee = mock_model(Judge)
+#    
+#    @entree1 = mock_model(Entree, :number=>1)
+#    @entree2 = mock_model(Entree, :number=>2)
+#    @entree3 = mock_model(Entree, :number=>3)
+#    @entree4 = mock_model(Entree, :number=>4)
+#    @entree5 = mock_model(Entree, :number=>5)
+#    
+#    #    A  B  C  D  E    1  2  3  4  5 
+#    # 1  1  1  1  5  5    3              1
+#    # 2  4  2  4  1  2    1  3           3
+#    # 3  2  4  2  2  1    1  4           2
+#    # 4  3  5  3  4  4          2        5
+#    # 5  5  3  5  3  3          3        4
+#    
+#    @couples_marks = { 
+#      @entree1=>{@judgea=>1, @judgeb=>1, @judgec=>1, @judged=>5, @judgee=>5 },
+#      @entree2=>{@judgea=>4, @judgeb=>2, @judgec=>4, @judged=>1, @judgee=>2 },
+#      @entree3=>{@judgea=>2, @judgeb=>4, @judgec=>2, @judged=>2, @judgee=>1 },
+#      @entree4=>{@judgea=>3, @judgeb=>5, @judgec=>3, @judged=>4, @judgee=>4 },      
+#      @entree5=>{@judgea=>5, @judgeb=>3, @judgec=>5, @judged=>3, @judgee=>3 }
+#    } 
+#    
+#    @performance_resuts.score(@couples_marks)
+#  end
+#  
+#  it "should list entree 1 as first place" do
+#    @performance_resuts[@entree1][:result].should be(1)
+#  end 
+#  
+#  it "should list entree 2 as third place" do
+#    @performance_resuts[@entree2][:result].should be(3)
+#  end 
+#
+#  it "should list entree 3 as second place" do
+#    @performance_resuts[@entree3][:result].should be(2)
+#  end 
+#
+#  it "should list entree 4 as fifth place" do
+#    @performance_resuts[@entree4][:result].should be(5)
+#  end 
+#
+#  it "should list entree 5 as forth place" do
+#    @performance_resuts[@entree5][:result].should be(4)
+#  end 
+#end
+#
+#
+#describe "scoring a final that requires rule 7" do
+#  
+#  before(:all) do
+#    @performance_resuts = PerformanceResults.new
+#    
+#    @judgea = mock_model(Judge)
+#    @judgeb = mock_model(Judge)
+#    @judgec = mock_model(Judge) 
+#    @judged = mock_model(Judge)
+#    @judgee = mock_model(Judge)
+#    
+#    @entree1 = mock_model(Entree, :number=>1)
+#    @entree2 = mock_model(Entree, :number=>2)
+#    @entree3 = mock_model(Entree, :number=>3)
+#    @entree4 = mock_model(Entree, :number=>4)
+#    @entree5 = mock_model(Entree, :number=>5)
+#    
+#    #    A  B  C  D  E    1  2  3  4  5 
+#    # 1  1  1  1  5  5    3              1
+#    # 2  2  4  3  2  2       3           3
+#    # 3  4  2  4  1  1    2  3           2
+#    # 4  3  5  2  4  4       1  2        5
+#    # 5  5  3  5  3  3          3        4
+#    
+#    @couples_marks = { 
+#      @entree1=>{@judgea=>1, @judgeb=>1, @judgec=>1, @judged=>5, @judgee=>5 },
+#      @entree3=>{@judgea=>2, @judgeb=>3, @judgec=>4, @judged=>2, @judgee=>2 },
+#      @entree2=>{@judgea=>4, @judgeb=>2, @judgec=>4, @judged=>1, @judgee=>1 },
+#      @entree4=>{@judgea=>3, @judgeb=>5, @judgec=>2, @judged=>4, @judgee=>4 },      
+#      @entree5=>{@judgea=>5, @judgeb=>3, @judgec=>5, @judged=>3, @judgee=>3 }
+#    } 
+#      
+#    @performance_resuts.score(@couples_marks)
+#  end
+#  
+#  it "should list entree 1 as first place" do
+#    @performance_resuts[@entree1][:result].should be(1)
+#  end 
+#  
+#  it "should list entree 2 as third place" do
+#    @performance_resuts[@entree2][:result].should be(3)
+#  end 
+#
+#  it "should list entree 3 as second place" do
+#    @performance_resuts[@entree3][:result].should be(2)
+#  end 
+#
+#  it "should list entree 4 as fifth place" do
+#    @performance_resuts[@entree4][:result].should be(5)
+#  end 
+#
+#  it "should list entree 5 as forth place" do
+#    @performance_resuts[@entree5][:result].should be(4)
+#  end 
+#end

data/spec/spec/scorer_spec.rb

@@ -0,0 +1,31 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+
+describe "scoring a final performance" do
+  before(:each) do
+    @scorer = SkatingSystem::Scorer.new
+    @performance = mock("Performance")
+    @couples_marks = {:key=>:value }
+    SkatingSystem::PerformanceResults.stub!(:new).and_return(@pr=mock(SkatingSystem::PerformanceResults, :score=>nil))
+    @performance.stub!(:couples_marks).and_return(@couples_marks)
+  end
+  
+  it "should check if the scorable thing respondes to :couples_marks" do
+    @performance.should_receive(:respond_to?).with(:couples_marks).and_return(true)
+    @scorer.score(@performance)
+  end
+  
+  it "should delegate to score_performance" do
+    @scorer.should_receive(:score_performance).with(@performance)
+    @scorer.score(@performance)
+  end
+  
+  it "should return a the new Performance" do
+    @scorer.score_performance(@performance).should be(@pr)
+  end
+  
+  it "should ask the PerformanceResults to score itself" do
+    @pr.should_receive(:score).with(@couples_marks)
+    @scorer.score(@performance)
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,9 @@
+dir = File.dirname(__FILE__)
+lib_path = File.expand_path("#{dir}/../lib")
+$LOAD_PATH.unshift lib_path unless $LOAD_PATH.include?(lib_path)
+
+require 'skating_system'
+
+Spec::Runner.configure do |config|
+
+end

metadata

@@ -0,0 +1,60 @@
+--- !ruby/object:Gem::Specification 
+name: wildfalcon-skating_system
+version: !ruby/object:Gem::Version 
+  version: 0.0.1
+platform: ruby
+authors: 
+- Laurie Young
+autorequire: skating_system
+bindir: bin
+cert_chain: []
+
+date: 2008-06-25 00:00:00 -07:00
+default_executable: 
+dependencies: []
+
+description: 
+email: skating_system@wildfalcon.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- README
+files: 
+- lib/skating_system.rb
+- lib/skating_system/scorer.rb
+- lib/skating_system/performance_results.rb
+- spec/spec.opts
+- spec/spec_helper.rb
+- spec/spec/scorer_spec.rb
+- spec/spec/performance_results_spec.rb
+- README
+has_rdoc: true
+homepage: 
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.2.0
+signing_key: 
+specification_version: 2
+summary: Implemetation of the skating system.
+test_files: []
+