24games 0.2.1

data/.gitignore

@@ -0,0 +1,8 @@
+*.gem
+*.sw?
+.DS_Store
+coverage
+doc
+pkg
+Gemfile*
+.bundle

data/MIT-LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2010 Takafan
+
+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/README.rdoc

@@ -0,0 +1,21 @@
+= 24 game/Solve
+
+解24点。computes an expression to solve the 24 game if possible.
+
+== Using
+
+  gem install 24games
+
+  24games 5 9 5 9
+
+you get it:
+
+  5 * 5 - 9 / 9
+
+== Authors
+
+* {Takafan}[http://hululuu.com]
+
+== License
+
+MIT License. See the included MIT-LICENSE file.

data/Rakefile

@@ -0,0 +1,12 @@
+require 'rake/clean'
+require 'rake/testtask'
+require 'rspec/core/rake_task'
+
+namespace :spec do
+  desc "Run all examples"
+  RSpec::Core::RakeTask.new(:examples) do |task|
+    task.pattern = 'spec/*_spec.rb'
+  end
+end
+
+task :default  => "spec:examples"

data/bin/24games

@@ -0,0 +1,26 @@
+#!/usr/bin/env ruby
+
+require 'calc24'
+
+begin
+  # validate user input
+  digits = ARGV.to_i
+  
+  raise "need 4 digits, such as: 5 9 5 9" unless digits.size == 4
+  
+  t0 = Time.now 
+  player = Calc24::TwentyFourGamePlayer.new(digits)
+
+  if player.solutions.empty?
+    puts "no solutions"
+  else
+    puts "found #{player.solutions.size} solutions:"
+    #STDIN.gets
+    puts player.solutions.values.join("\n").to_p
+    puts "#{Time.now - t0}s"
+  end
+rescue Exception => e
+  print "#{e.class}: " unless e.class == RuntimeError
+  puts "#{e.message}"
+  exit 1
+end

data/calc24.gemspec

@@ -0,0 +1,25 @@
+# -*- encoding: utf-8 -*-
+
+$LOAD_PATH.unshift File.expand_path("../lib", __FILE__)
+require 'calc24/version'
+
+Gem::Specification.new do |s|
+  s.name        = %q{24games}
+  s.version     = Calc24::VERSION
+  s.platform    = Gem::Platform::RUBY
+  s.authors     = ["takafan"]
+  s.email       = %q{takafan@hululuu.com}
+  s.homepage    = %q{http://github.com/takafan/24games"}
+  s.summary     = %q{24 game/Solve}
+  s.description = %q{
+    解24点。computes an expression to solve the 24 game if possible.
+  }
+
+  s.required_rubygems_version = %q{>= 1.3.6}
+  s.rubyforge_project         = %q{24games}
+
+  s.files        = `git ls-files`.split("\n")
+  s.executables  = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
+  s.rdoc_options = ["--charset=UTF-8"]
+  s.require_path = %q{lib}
+end

data/lib/calc24.rb

@@ -0,0 +1,2 @@
+require 'calc24/calc24_core'
+require 'calc24/ext'

data/lib/calc24/calc24_core.rb

@@ -0,0 +1,167 @@
+require 'rational'
+
+module Calc24
+
+  class TwentyFourGamePlayer
+=begin
+    EXPRESSIONS = [
+      '((%d %s %d) %s %d) %s %d',
+      '(%d %s (%d %s %d)) %s %d',
+      '(%d %s %d) %s (%d %s %d)',
+      '%d %s ((%d %s %d) %s %d)',
+      '%d %s (%d %s (%d %s %d))',
+    ]
+    
+    OPERATORS = [:+, :-, :*, :/]
+=end
+    MAN4D4S = [
+      # '((%d %s %d) %s %d) %s %d' 48
+      # +++
+      '%d + %d + %d + %d',
+      # ++-
+      '%d + %d + %d - %d',
+      # ++*
+      '(%d + %d + %d) * %d',
+      '(%d + %d) * %d + %d',
+      '%d * %d + %d + %d',
+      # ++/
+      '(%d + %d + %d) / %d',
+      '(%d + %d) / %d + %d',
+      '(%d / %d) + %d + %d',
+      # +--
+      '%d + %d - %d - %d',
+      # +-*
+      '(%d + %d - %d) * %d',
+      '(%d + %d) * %d - %d',
+      '(%d - %d) * %d + %d',
+      '%d * %d + %d - %d',
+      # +-/
+      '(%d + %d - %d) / %d',
+      '(%d + %d) / %d - %d',
+      '(%d - %d) / %d + %d',
+      '%d / %d + %d - %d',
+      # +**
+      '(%d + %d) * %d * %d',
+      '(%d * %d + %d) * %d',
+      '%d * %d * %d + %d',
+      # +*/
+      '(%d + %d) * %d / %d',
+      '(%d * %d + %d) / %d',
+      '%d * %d / %d + %d',
+      '(%d / %d + %d) * %d',
+      # +//
+      '(%d + %d) / %d / %d',
+      '(%d / %d + %d) / %d',
+      '%d / %d / %d + %d',
+      # ---
+      '%d - %d - %d - %d',
+      # --*
+      '(%d - %d - %d) * %d',
+      '(%d - %d) * %d - %d',
+      '%d * %d - %d - %d',
+      # --/
+      '(%d - %d - %d) / %d',
+      '(%d - %d) / %d - %d',
+      '%d / %d - %d - %d',
+      # -**
+      '(%d - %d) * %d * %d',
+      '(%d * %d - %d) * %d',
+      '%d * %d * %d - %d',
+      # -*/
+      '(%d - %d) * %d / %d',
+      '(%d * %d - %d) / %d',
+      '%d * %d / %d - %d',
+      '(%d / %d - %d) * %d',
+      # -//
+      '(%d - %d) / %d / %d',
+      '(%d / %d - %d) / %d',
+      '%d / %d / %d - %d',
+      # ***
+      '%d * %d * %d * %d',
+      # **/
+      '%d * %d * %d / %d',
+      # *//
+      '%d * %d / %d / %d',
+      # ///
+      '%d / %d / %d / %d',
+      
+      # '(%d %s (%d %s %d)) %s %d' +8
+      '(%d - %d * %d) * %d',
+      '(%d - %d / %d) * %d',
+      '%d / (%d + %d) * %d',
+      '%d / (%d - %d) * %d',
+      '(%d - %d * %d) / %d',
+      '(%d - %d / %d) / %d',
+      '%d / (%d + %d) / %d',
+      '%d / (%d - %d) / %d',
+
+      # '(%d %s %d) %s (%d %s %d)' +14
+      '%d * %d + %d * %d',
+      '%d * %d + %d / %d',
+      '%d / %d + %d / %d',
+      '%d * %d - %d * %d',
+      '%d * %d - %d / %d',
+      '%d / %d - %d * %d',
+      '%d / %d - %d / %d',
+      '(%d + %d) * (%d + %d)',
+      '(%d + %d) * (%d - %d)',
+      '(%d - %d) * (%d - %d)',
+      '(%d + %d) / (%d + %d)',
+      '(%d + %d) / (%d - %d)',
+      '(%d - %d) / (%d + %d)',
+      '(%d - %d) / (%d - %d)',
+      
+      # '%d %s ((%d %s %d) %s %d)' +14
+      '%d - ((%d + %d) * %d)',
+      '%d - ((%d + %d) / %d)',
+      '%d - ((%d - %d) * %d)',
+      '%d - ((%d - %d) / %d)',
+      '%d - (%d * %d * %d)',
+      '%d - (%d * %d / %d)',
+      '%d - (%d / %d / %d)',
+      '%d / (%d + %d + %d)',
+      '%d / (%d + %d - %d)',
+      '%d / (%d - %d - %d)',
+      '%d / (%d * %d + %d)',
+      '%d / (%d * %d - %d)',
+      '%d / (%d / %d + %d)',
+      '%d / (%d / %d - %d)',
+      
+      # '%d %s (%d %s (%d %s %d))' +4
+      '%d - (%d / (%d + %d))',
+      '%d - (%d / (%d - %d))',
+      '%d / (%d - %d * %d)',
+      '%d / (%d - %d / %d)'
+    ]
+
+    @@objective = Rational(24,1)
+   
+    def initialize(digits)
+      @digits = digits
+      #@solutions = []
+      @solutions = {}
+      solve
+    end
+   
+    attr_reader :digits, :solutions
+   
+    def solve
+      digits.permutation.to_a.uniq.each do |a,b,c,d|
+        #OPERATORS.each   do |op1| 
+        #OPERATORS.each   do |op2| 
+        #OPERATORS.each   do |op3|
+        MAN4D4S.each do |expr|
+          # evaluate using rational arithmetic
+          #test = expr.gsub('%d', 'Rational(%d,1)') % [a, op1, b, op2, c, op3, d]
+          test = expr.gsub('%d', 'Rational(%d,1)') % [a, b, c, d]
+          value = eval(test) rescue -1  # catch division by zero
+          if value == @@objective
+            #@solutions << expr % [a, op1, b, op2, c, op3, d]
+            @solutions[expr] = expr % [a, b, c, d]
+          end
+        end#;end;end;end
+      end
+    end
+  end
+
+end

data/lib/calc24/ext.rb

@@ -0,0 +1,24 @@
+class Array
+  def to_i
+    self.map do |arg| 
+      begin
+        case arg.upcase
+          when 'J' then 11
+          when 'Q' then 12
+          when 'K' then 13
+          when 'A' then 1
+          else Integer(arg)
+        end
+      rescue ArgumentError
+        raise "unknown digit: '#{arg}'"
+      end
+    end
+  end
+end
+
+class String
+  def to_p
+    {'11' => 'J', '12' => 'Q', '13' => 'K'}.each {|digit, poker| self.gsub!(digit, poker)}
+    self
+  end
+end

data/lib/calc24/version.rb

@@ -0,0 +1,3 @@
+module Calc24
+  VERSION = "0.2.1"
+end

data/spec/calc24_spec.rb

@@ -0,0 +1,74 @@
+require "calc24"
+
+module Calc24
+  
+  describe TwentyFourGamePlayer do
+    digicoll =  [
+      %w{ 1 3 4 6 },
+      %w{ 1 4 5 6 },
+      %w{ 1 5 5 5 },
+      %w{ 1 5 J J },
+      %w{ 1 6 6 8 },
+      %w{ 1 6 J K },
+      %w{ 1 2 7 7 },
+      %w{ 1 7 K K },
+      %w{ 1 8 Q Q },
+      %w{ 2 2 J J },
+      %w{ 2 2 K K },
+      %w{ 2 3 5 Q },
+      %w{ 2 3 7 Q },
+      %w{ 2 3 J J },
+      %w{ 2 3 K K },
+      %w{ 2 4 7 Q },
+      %w{ 2 4 10 10 },
+      %w{ 2 5 5 10 },
+      %w{ 2 7 7 10 },
+      %w{ 3 3 7 7 },
+      %w{ 3 3 8 8 },
+      %w{ 3 5 7 K },
+      %w{ 3 6 6 J },
+      %w{ 3 7 9 K },
+      %w{ 3 8 8 10 },
+      %w{ 4 4 7 7 },
+      %w{ 4 4 10 10 },
+      %w{ 4 5 8 K },
+      %w{ 4 7 J K },
+      %w{ 4 8 8 J },
+      %w{ 4 8 8 K },
+      %w{ 4 10 10 J },
+      %w{ 5 5 7 J },
+      %w{ 5 7 7 J },
+      %w{ 5 5 8 J },
+      %w{ 5 8 9 K },
+      %w{ 5 9 10 J },
+      %w{ 5 10 10 J },
+      %w{ 5 10 10 K },
+      %w{ 5 J Q Q },
+      %w{ 6 6 6 J },
+      %w{ 6 6 7 J },
+      %w{ 6 6 9 K },
+      %w{ 6 10 10 K },
+      %w{ 6 J J Q },
+      %w{ 6 Q Q K },
+      %w{ 8 8 8 J },
+      %w{ 8 8 8 Q },
+      %w{ 8 8 9 Q },
+      %w{ 8 J Q Q },
+      %w{ 9 10 J K },
+      %w{ 9 J Q Q },
+      %w{ 10 Q Q Q }
+    ]
+      
+    it "found solutions in #{digicoll.count} difficult subjects." do
+      digicoll.each do |digits|
+        TwentyFourGamePlayer.new(digits.to_i).solutions.should_not be_empty
+      end
+    end
+     
+    it "found no solutions with 7 6 4 3." do
+      TwentyFourGamePlayer.new([7,6,4,3]).solutions.should be_empty
+    end
+    
+  end
+    
+end

metadata

@@ -0,0 +1,76 @@
+--- !ruby/object:Gem::Specification 
+name: 24games
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 0
+  - 2
+  - 1
+  version: 0.2.1
+platform: ruby
+authors: 
+- takafan
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-01-17 00:00:00 +08:00
+default_executable: 
+dependencies: []
+
+description: "\n    \xE8\xA7\xA324\xE7\x82\xB9\xE3\x80\x82computes an expression to solve the 24 game if possible.\n  "
+email: takafan@hululuu.com
+executables: 
+- 24games
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- .gitignore
+- MIT-LICENSE
+- README.rdoc
+- Rakefile
+- bin/24games
+- calc24.gemspec
+- lib/calc24.rb
+- lib/calc24/calc24_core.rb
+- lib/calc24/ext.rb
+- lib/calc24/version.rb
+- spec/calc24_spec.rb
+has_rdoc: true
+homepage: http://github.com/takafan/24games"
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 1
+      - 3
+      - 6
+      version: 1.3.6
+requirements: []
+
+rubyforge_project: 24games
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: 24 game/Solve
+test_files: []
+