the_gambler 0.1.0

data/.document

@@ -0,0 +1,5 @@
+lib/**/*.rb
+bin/*
+- 
+features/**/*.feature
+LICENSE.txt

data/.rspec

@@ -0,0 +1 @@
+--color

data/Gemfile

@@ -0,0 +1,15 @@
+source "http://rubygems.org"
+# Add dependencies required to use your gem here.
+# Example:
+#   gem "activesupport", ">= 2.3.5"
+
+# Add dependencies to develop your gem here.
+# Include everything needed to run rake, tests, features, etc.
+group :development do
+  gem "rspec"
+  gem "yard"
+  gem "rdoc"
+  gem "bundler"
+  gem "jeweler"
+  gem "simplecov"
+end

data/Gemfile.lock

@@ -0,0 +1,39 @@
+GEM
+  remote: http://rubygems.org/
+  specs:
+    diff-lcs (1.1.3)
+    git (1.2.5)
+    jeweler (1.8.4)
+      bundler (~> 1.0)
+      git (>= 1.2.5)
+      rake
+      rdoc
+    json (1.7.5)
+    multi_json (1.3.7)
+    rake (0.9.2.2)
+    rdoc (3.12)
+      json (~> 1.4)
+    rspec (2.11.0)
+      rspec-core (~> 2.11.0)
+      rspec-expectations (~> 2.11.0)
+      rspec-mocks (~> 2.11.0)
+    rspec-core (2.11.1)
+    rspec-expectations (2.11.3)
+      diff-lcs (~> 1.1.3)
+    rspec-mocks (2.11.3)
+    simplecov (0.7.1)
+      multi_json (~> 1.0)
+      simplecov-html (~> 0.7.1)
+    simplecov-html (0.7.1)
+    yard (0.8.3)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  bundler
+  jeweler
+  rdoc
+  rspec
+  simplecov
+  yard

data/LICENSE.txt

@@ -0,0 +1,20 @@
+Copyright (c) 2012 max thom stahl
+
+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.md

@@ -0,0 +1,47 @@
+# The Gambler
+
+Yet another poker hand evaluator. I'm writing it because poker hand evaluators
+are useful to me in some of my side projects. If it's useful to you, too, all
+the better.
+
+## Usage
+
+Include the gem in your Gemfile:
+
+    gem 'the_gambler'
+
+Start rockin':
+
+    card = Card.new "AH"
+    hand = Hand.new "QH", card, %w{10 D}
+
+You can initialize `Card`s using a (case-insensitive) String (_e.g._ `"JC"`), 
+an Array (_e.g._ `['9', 'S']`), or a Hash (_e.g._ `{rank: 'Q', suit: :diamonds}`).
+
+## Beta progress
+
+Right now, the following stuff works. Assume anything not mentioned in this list doesn't work properly.
+
+* Blackjack hand evaluation
+* (Very) Rough poker hand evaluation (i.e., flush > three of a kind, but not distinguishing between different instances of hands)
+* Exact poker hand evaluation of all types of hands (!!!).
+
+### Known issues
+
+* Hands with the same ranking but different high cards are valued equally.
+
+## Contributing to the_gambler
+ 
+* Check out the latest master to make sure the feature hasn't been implemented or the bug hasn't been fixed yet.
+* Check out the issue tracker to make sure someone already hasn't requested it and/or contributed it.
+* Fork the project.
+* Start a feature/bugfix branch.
+* Commit and push until you are happy with your contribution.
+* Make sure to add tests for it. This is important so I don't break it in a future version unintentionally.
+* Please try not to mess with the Rakefile, version, or history. If you want to have your own version, or is otherwise necessary, that is fine, but please isolate to its own commit so I can cherry-pick around it.
+
+## Copyright
+
+Copyright (c) 2012 max thom stahl. See LICENSE.txt for
+further details.
+

data/Rakefile

@@ -0,0 +1,45 @@
+# encoding: utf-8
+
+require 'rubygems'
+require 'bundler'
+begin
+  Bundler.setup(:default, :development)
+rescue Bundler::BundlerError => e
+  $stderr.puts e.message
+  $stderr.puts "Run `bundle install` to install missing gems"
+  exit e.status_code
+end
+require 'rake'
+
+require 'jeweler'
+Jeweler::Tasks.new do |gem|
+  # gem is a Gem::Specification... see http://docs.rubygems.org/read/chapter/20 for more options
+  gem.name = "the_gambler"
+  gem.homepage = "http://github.com/mstahl/the_gambler"
+  gem.license = "MIT"
+  gem.summary = %Q{Classes and modules for card-playing apps.}
+  gem.description = %Q{
+    Really common tasks in programs that use playing cards are a pain to implement. This is my
+    implementation. Use it. Or don't.
+  }
+  gem.email = "max@villainousindustries.com"
+  gem.authors = ["max thom stahl"]
+  # dependencies defined in Gemfile
+end
+Jeweler::RubygemsDotOrgTasks.new
+
+require 'rspec/core'
+require 'rspec/core/rake_task'
+RSpec::Core::RakeTask.new(:spec) do |spec|
+  spec.pattern = FileList['spec/**/*_spec.rb']
+end
+
+RSpec::Core::RakeTask.new(:rcov) do |spec|
+  spec.pattern = 'spec/**/*_spec.rb'
+  spec.rcov = true
+end
+
+task :default => :spec
+
+require 'yard'
+YARD::Rake::YardocTask.new

data/VERSION

@@ -0,0 +1 @@
+0.1.0

data/lib/the_gambler.rb

@@ -0,0 +1,4 @@
+Dir[File.join(File.dirname(__FILE__), 'the_gambler', '**', '*.rb')].each {|f| require f}
+
+module TheGambler
+end

data/lib/the_gambler/blackjack.rb

@@ -0,0 +1,31 @@
+module TheGambler
+  module Blackjack
+
+    def blackjack?
+      contents.count == 2 and contents.select(&:face_card?).count == 1 and contents.select(&:ace?).count == 1
+    end
+    
+    def blackjack_value
+      value = 0
+      # Add up all the values in the hand that aren't aces.
+      contents.reject(&:ace?).each do |card|
+        if card.face_card? then
+          value += 10
+        else
+          value += card.numerical_value
+        end
+      end
+      
+      # Now add up the aces greedily
+      contents.select(&:ace?).each do |card|
+        if 21 - value >= 11 then
+          value += 11
+        else
+          value += 1
+        end
+      end
+      
+      value
+    end
+  end
+end

data/lib/the_gambler/card.rb

@@ -0,0 +1,67 @@
+module TheGambler
+  class Card
+    attr_reader :raw
+
+    SUIT_STRINGS = %w{S C H D}
+    SUIT_SYMBOLS = %w{spades clubs hearts diamonds}.map(&:to_sym)
+    RANKS        = %w{2 3 4 5 6 7 8 9 10 J Q K A}
+
+    def initialize(arg)
+      case arg.class.to_s
+      when 'String'
+        if arg =~ /([ajqk2-9]|10)([SCHD])/i then
+          rank, suit = $1.upcase, $2
+        else
+          raise ArgumentError.new("Invalid string: '#{arg}'")
+        end
+      when 'Array'
+        if RANKS.include?(arg[0]) and SUIT_STRINGS.include?(arg[1]) then
+          rank, suit = arg[0].upcase, arg[1]
+        else
+          raise ArgumentError.new("Invalid array: #{arg.inspect}")
+        end
+      when 'Hash'
+        if RANKS.include?(arg[:rank]) and SUIT_STRINGS.include?(arg[:suit]) then
+          rank, suit = arg[:rank].upcase, arg[:suit]
+        else
+          raise ArgumentError.new("Invalid hash: #{arg.inspect}")
+        end
+      when 'Card','TheGambler::Card'
+        rank, suit = arg.rank, arg.suit
+      else
+        raise ArgumentError.new("Must supply either a String, an Array, or a Hash, not a #{arg.class.to_s}")
+      end
+      
+      if SUIT_STRINGS.include?(suit)
+        @raw = 13 * SUIT_STRINGS.index(suit) + RANKS.index(rank)
+      elsif SUIT_SYMBOLS.include?(suit)
+        @raw = 13 * SUIT_SYMBOLS.index(suit) + RANKS.index(rank)
+      end
+    end
+
+    def ace?
+      rank == 'A'
+    end
+
+    def face_card?
+      %w{J Q K}.include?(rank)
+    end
+
+    def numerical_value
+      RANKS.index(rank) + 2
+    end
+
+    def rank
+      RANKS[@raw % 13]
+    end
+
+    def suit
+      SUIT_SYMBOLS[@raw / 13]
+    end
+
+    def to_s
+      "#{rank}#{SUIT_STRINGS[@raw / 13]}"
+    end
+
+  end
+end

data/lib/the_gambler/deck.rb

@@ -0,0 +1,4 @@
+module TheGambler
+  class Deck
+  end
+end

data/lib/the_gambler/hand.rb

@@ -0,0 +1,16 @@
+require 'the_gambler/poker'
+require 'the_gambler/blackjack'
+
+module TheGambler
+  class Hand
+    include TheGambler::Blackjack
+    include TheGambler::Poker
+    
+    attr_reader :contents
+    
+    def initialize(*args)
+      @contents = []
+      args.each{|a| @contents << Card.new(a) }
+    end
+  end
+end

data/lib/the_gambler/poker.rb

@@ -0,0 +1,94 @@
+module TheGambler
+  module Poker
+    POKER_HANDS = %w{
+      high_card one_pair two_pair three_of_a_kind straight flush full_house four_of_a_kind straight_flush royal_flush
+    }
+    
+    # Valuation methods ===========================================================================
+    
+    def poker_value
+      if royal_flush? then
+        10e10
+      elsif straight_flush? then
+        if contents.map(&:numerical_value).sort == [2, 3, 4, 5, 14] then
+          10e9 + 1
+        else
+          10e9 + contents.max_by(&:numerical_value).numerical_value
+        end
+      elsif four_of_a_kind? then
+        c = contents.group_by(&:numerical_value)
+        10e8 + c.keys.max_by{|k| c[k].count}
+      elsif full_house? then
+        c = contents.group_by(&:numerical_value)
+        10e7 + c.keys.detect{|k| c[k].count == 3} * 13 + c.keys.detect{|k| c[k].count == 2}
+      elsif flush? then
+        10e6 + contents.max_by(&:numerical_value).numerical_value
+      elsif straight? then
+        if contents.map(&:numerical_value).sort == [2, 3, 4, 5, 14] then
+          10e5 + 1
+        else
+          10e5 + contents.max_by(&:numerical_value).numerical_value
+        end
+      elsif three_of_a_kind? then
+        c = contents.group_by(&:numerical_value)
+        10e4 + c.keys.detect{|k| c[k].count == 3}
+      elsif two_pair? then
+        c = contents.group_by(&:numerical_value)
+        
+        pair_one, pair_two = c.keys.select{|k| c[k].count == 2}.minmax
+        
+        10e3 + 13 * pair_two + pair_one
+      elsif one_pair? then
+        c = contents.group_by(&:numerical_value)
+        10e2 + c.keys.detect{|k| c[k].count == 2}
+      elsif high_card? then
+        contents.max_by(&:numerical_value).numerical_value
+      end
+    end
+    
+    # Different kinds of hands ====================================================================
+    
+    def high_card?
+      true  # Every hand has a high card.
+    end
+    
+    def one_pair?
+      contents.sort_by(&:numerical_value).map(&:to_s).join =~ %r{(.{1,2})[SCHD]\1[SCHD]}i
+    end
+    
+    def two_pair?
+      contents.sort_by(&:numerical_value).map(&:to_s).join =~ %r{(.{1,2})[SCHD]\1[SCHD].*(.{1,2})[SCHD]\2[SCHD]}i
+    end
+    
+    def three_of_a_kind?
+      contents.sort_by(&:numerical_value).map(&:to_s).join =~ %r{(.{1,2})[SCHD]\1[SCHD]\1[SCHD]}i
+    end
+    
+    def straight?
+      values = contents.map(&:numerical_value).sort
+      values == (values.min..values.max).to_a or values == [2, 3, 4, 5, 14]
+    end
+    
+    def flush?
+      contents.map(&:suit).uniq.count == 1
+    end
+    
+    def full_house?
+      as_string = contents.sort_by(&:numerical_value).map(&:to_s).join
+      as_string =~ %r{(.{1,2})[SCHD]\1[SCHD]\1[SCHD](.{1,2})[SCHD]\2[SCHD]} or as_string =~ %r{(.{1,2})[SCHD]\1[SCHD](.{1,2})[SCHD]\2[SCHD]\2[SCHD]}
+    end
+    
+    def four_of_a_kind?
+      contents.sort_by(&:numerical_value).map(&:to_s).join =~ %r{(.{1,2})[SCHD]\1[SCHD]\1[SCHD]\1[SCHD]}i
+    end
+    
+    def straight_flush?
+      straight? and flush?
+    end
+    
+    def royal_flush?
+      contents.sort_by(&:numerical_value).map(&:to_s).join =~ %r{\A10([SCHD])J\1Q\1K\1A\1\Z}i
+    end
+    
+  end
+end

data/spec/cards/initialization_spec.rb

@@ -0,0 +1,64 @@
+require 'spec_helper'
+
+module TheGambler
+
+  describe Card do
+    describe '#initialize' do
+      
+      it 'can take a String as its argument' do
+        (->{ Card.new "AD" }).should_not raise_error
+      end
+      
+      it 'can take an Array as its argument' do
+        (->{ Card.new ['A', 'D'] }).should_not raise_error
+      end
+      
+      it 'can take a Hash as its argument' do
+        (->{ Card.new rank: 'A', suit: 'D' }).should_not raise_error
+      end
+      
+      it 'can take a Card as its argument' do
+        (->{ Card.new(Card.new rank: 'A', suit: 'D') }).should_not raise_error
+      end
+      
+      describe 'with hash' do
+        Card::RANKS.each do |rank|
+          Card::SUIT_STRINGS.each_with_index do |suit, i|
+            it "should correctly parse {rank: #{rank}, suit: #{suit}}" do
+              card = Card.new rank: rank, suit: suit
+              card.rank.should eq(rank)
+              card.suit.should eq(Card::SUIT_SYMBOLS[i])
+            end
+          end
+        end
+      end
+      
+      describe 'with array' do
+        Card::RANKS.each do |rank|
+          Card::SUIT_STRINGS.each_with_index do |suit, i|
+            it "should correctly parse [#{rank}, #{suit}]" do
+              card = Card.new [rank, suit]
+              card.rank.should eq(rank)
+              card.suit.should eq(Card::SUIT_SYMBOLS[i])
+            end
+          end
+        end
+      end
+      
+      describe 'with string' do
+        Card::RANKS.each do |rank|
+          Card::SUIT_STRINGS.each_with_index do |suit, i|
+            it "should correctly parse '#{rank}#{suit}'" do
+              card = Card.new "#{rank}#{suit}"
+              card.rank.should eq(rank)
+              card.suit.should eq(Card::SUIT_SYMBOLS[i])
+            end
+          end
+        end
+      end
+
+    end
+  
+  end
+
+end

data/spec/decks/deck_spec.rb

@@ -0,0 +1,14 @@
+require 'spec_helper'
+
+module TheGambler
+  
+  describe Deck do
+    let(:deck) { Deck.new }
+    
+    it 'should default to sorted, not shuffled' do
+      
+    end
+    
+  end
+  
+end

data/spec/hands/hand_flush_spec.rb

@@ -0,0 +1,21 @@
+require 'spec_helper'
+
+module TheGambler
+  describe "flush hand" do
+    %w{S C H D}.each do |suit|
+      it "should correctly identify a flush of #{suit}'s" do
+        Hand.new("4#{suit}", "7#{suit}", "10#{suit}", "A#{suit}", "J#{suit}").flush?.should be_true
+      end
+    end
+    
+    describe 'valuation' do
+      it 'should recognize that a 10-high flush is more valuable than a 9-high flush' do
+        Hand.new(*%w{10S 5S 2S 6S 9S}).poker_value.should > Hand.new(*%w{9S 5S 2S 4S 3S}).poker_value
+      end
+      
+      it 'should recognize that an ace-high flush is more valuable than a 10-high flush' do
+        Hand.new(*%w{AH QH 10H 2H 7H}).poker_value.should > Hand.new(*%w{10S 5S 2S 6S 9S}).poker_value
+      end
+    end
+  end
+end

data/spec/hands/hand_four_of_a_kind_spec.rb

@@ -0,0 +1,21 @@
+require 'spec_helper'
+
+module TheGambler
+  describe "four of a kind hand" do
+    Card::RANKS.each do |rank|
+      it "should correctly identify four #{rank}'s" do
+        Hand.new("#{rank}C", "#{rank}C", "#{rank}C", "#{rank}C", "#{(Card::RANKS - [rank]).shuffle.first}H").four_of_a_kind?.should be_true
+      end
+    end
+    
+    describe 'valuation' do
+      it 'should recognize that four 10s is more valuable than four 5s' do
+        Hand.new(*%w{10S 10H 10C 10D AS}).poker_value.should > Hand.new(*%w{5S 5C 5H 5D 10D}).poker_value
+      end
+      
+      it 'should recognize that four aces is more valuable than four kings' do
+        Hand.new(*%w{AS AH AC AD AS}).poker_value.should > Hand.new(*%w{KS KC KH KD 10D}).poker_value
+      end
+    end
+  end
+end

data/spec/hands/hand_full_house_spec.rb

@@ -0,0 +1,36 @@
+require 'spec_helper'
+
+module TheGambler
+  describe "full house hand" do
+    Card::RANKS.each do |primary_rank|
+      (Card::RANKS - [primary_rank]).each do |secondary_rank|
+        it "should correctly identify #{primary_rank}'s over #{secondary_rank}'s" do
+          Hand.new("#{primary_rank}C", "#{primary_rank}H", "#{primary_rank}S", "#{secondary_rank}C", "#{secondary_rank}D").full_house?.should be_true
+        end
+      end
+    end
+    
+    describe 'valuation' do
+      it 'should recognize that 10s over 5s is more valuable than 9s over 4s' do
+        Hand.new(*%w{10S 10C 10D 5D 5C}).poker_value.should > Hand.new(*%w{9C 9H 9D 4D 4C}).poker_value
+      end
+      
+      it 'should recognize that 10s over 5s is more valuable than 10s over 4s' do
+        Hand.new(*%w{10S 10C 10D 5D 5C}).poker_value.should > Hand.new(*%w{10S 10C 10D 4D 4C}).poker_value
+      end
+      
+      it 'should recognize that 10s over 5s is more valuable than 5s over 10s' do
+        Hand.new(*%w{10S 10C 10D 5D 5C}).poker_value.should > Hand.new(*%w{10S 10C 5D 5D 5C}).poker_value
+      end
+      
+      it 'should recognize that 10s over aces is more valuable than 10s over 4s' do
+        Hand.new(*%w{10S 10C 10D AD AC}).poker_value.should > Hand.new(*%w{10S 10C 10D 4D 4C}).poker_value
+      end
+      
+      it 'should recognize that aces over 2s is more valuable than kings over aces' do
+        Hand.new(*%w{AS AC AD 2D 2C}).poker_value.should > Hand.new(*%w{KS KC KD AD AC}).poker_value
+      end
+      
+    end
+  end
+end

data/spec/hands/hand_high_card_spec.rb

@@ -0,0 +1,17 @@
+require 'spec_helper'
+
+module TheGambler
+  describe "high card hand" do
+    
+    describe 'valuation' do
+      it 'should recognize that ace high is more valuable than king high' do
+        Hand.new(*%w{AH QD 10C 5H 2D}).poker_value.should > Hand.new(*%w{KH 10H 8C 4C 2D}).poker_value
+      end
+      
+      it 'should recognize that queen high is more valuable than 8 high' do
+        Hand.new(*%w{QD 10C 7D 4H 2D}).poker_value.should > Hand.new(*%w{8D 5H 7D 2C 3H}).poker_value
+      end
+      
+    end
+  end
+end

data/spec/hands/hand_one_pair_spec.rb

@@ -0,0 +1,17 @@
+require 'spec_helper'
+
+module TheGambler
+  describe "one pair hand" do
+    
+    describe 'valuation' do
+      it 'should recognize that a pair of aces is more valuable than a pair of kings' do
+        Hand.new(*%w{AH AD 10C 5H 2D}).poker_value.should > Hand.new(*%w{KH KH 8C 4C 2D}).poker_value
+      end
+      
+      it 'should recognize that a pair of queens is more valuable than a pair of 10s' do
+        Hand.new(*%w{QD QC 7D 4H 2D}).poker_value.should > Hand.new(*%w{10D 10H 7D 2C 3H}).poker_value
+      end
+      
+    end
+  end
+end

data/spec/hands/hand_royal_flush_spec.rb

@@ -0,0 +1,11 @@
+require 'spec_helper'
+
+module TheGambler
+  describe "royal flush hand" do
+    %w{S C H D}.each do |suit|
+      it "should correctly identify a flush of #{suit}'s" do
+        Hand.new("A#{suit}", "K#{suit}", "Q#{suit}", "J#{suit}", "10#{suit}").royal_flush?.should be_true
+      end
+    end
+  end
+end

data/spec/hands/hand_straight_flush_spec.rb

@@ -0,0 +1,40 @@
+require 'spec_helper'
+
+module TheGambler
+  describe "straight flush hands" do
+    
+    %w{S C H D}.each do |suit|
+      let(:nine_high) { Hand.new("5#{suit}", "6#{suit}", "7#{suit}", "8#{suit}", "9#{suit}")  }
+      let(:five_high) { Hand.new("5#{suit}", "4#{suit}", "3#{suit}", "2#{suit}", "A#{suit}")  }
+      let(:ace_high)  { Hand.new("10#{suit}", "J#{suit}", "K#{suit}", "Q#{suit}", "A#{suit}") }
+      
+      it 'should recognize a trivial straight flush' do
+        nine_high.straight_flush?.should be_true
+      end
+    
+      it 'should recognize a 5-high straight flush' do
+        five_high.straight_flush?.should be_true
+      end
+    
+      it 'should recognize an ace-high straight flush' do
+        ace_high.straight_flush?.should be_true
+      end
+      
+      describe 'valuation' do
+        it 'should recognize that a 9-high straight flush is more valuable than a 5-high flush' do
+          nine_high.poker_value.should > five_high.poker_value
+        end
+      
+        it 'should recognize that an ace-high straight flush is more valuable than a 9-high straight flush' do
+          ace_high.poker_value.should > nine_high.poker_value
+        end
+      
+        it 'should recognize that an ace-high straight flush is more valuable than a 5-high straight flush' do
+          ace_high.poker_value.should > five_high.poker_value
+        end
+      
+      end
+    end
+    
+  end
+end

data/spec/hands/hand_straight_spec.rb

@@ -0,0 +1,41 @@
+require 'spec_helper'
+
+module TheGambler
+  describe "straight hands" do
+    
+    let(:ten_high)  { Hand.new('6D', '7C', '8D', '9D', '10C') }
+    let(:nine_high) { Hand.new('5D', '6C', '7D', '8D', '9C') }
+    let(:ace_high)  { Hand.new('AD', 'KC', 'QD', 'JD', '10C') }
+    let(:five_high) { Hand.new('AD', '2C', '3D', '4D', '5C') }
+    
+    it 'should recognize a trivial straight' do
+      Hand.new(*%w{5D 6C 7H 8S 9D}).straight?.should be_true
+    end
+    
+    it 'should recognize a 5-high straight' do
+      Hand.new(*%w{5D 4C 3H 2S AD}).straight?.should be_true
+    end
+    
+    it 'should recognize an ace-high straight' do
+      Hand.new(*%w{10D JC KH QS AD}).straight?.should be_true
+    end
+    
+    context "compared to other straight hands" do
+      it "should value an ace-high straight higher than a 9-high straight" do
+        ace_high.poker_value.should > nine_high.poker_value
+      end
+      
+      it "should value an ace-high straight higher than a 5-high straight" do
+        ace_high.poker_value.should > five_high.poker_value
+      end
+      
+      it "should value a 10-high straight higher than a 9-high straight" do
+        ten_high.poker_value.should > nine_high.poker_value
+      end
+      
+      it "should value a 10-high straight higher than a 5-high straight" do
+        ten_high.poker_value.should > five_high.poker_value
+      end
+    end
+  end
+end

data/spec/hands/hand_three_of_a_kind_spec.rb

@@ -0,0 +1,24 @@
+require 'spec_helper'
+
+module TheGambler
+  describe "three of a kind hand" do
+    Card::RANKS.each do |rank|
+      it "should correctly identify three #{rank}'s" do
+        a = (Card::RANKS - [rank]).shuffle.first
+        b = (Card::RANKS - [rank, a]).shuffle.first
+        
+        Hand.new("#{rank}C", "#{rank}H", "#{rank}D", "#{a}H", "#{b}H").three_of_a_kind?.should be_true
+      end
+    end
+    
+    describe 'valuation' do
+      it 'should recognize that three 10s is more valuable than three 5s' do
+        Hand.new(*%w{10S 10H 10C 9D AS}).poker_value.should > Hand.new(*%w{5S 5C 5H 3D 10D}).poker_value
+      end
+      
+      it 'should recognize that three aces is more valuable than three kings' do
+        Hand.new(*%w{AS AH AC 10D 7C}).poker_value.should > Hand.new(*%w{KS KC KH QD 10D}).poker_value
+      end
+    end
+  end
+end

data/spec/hands/hand_two_pair_spec.rb

@@ -0,0 +1,31 @@
+require 'spec_helper'
+
+module TheGambler
+  describe "two pair hand" do
+    Card::RANKS.each do |primary_rank|
+      (Card::RANKS - [primary_rank]).each do |secondary_rank|
+        it "should correctly identify #{primary_rank}'s over #{secondary_rank}'s" do
+          Hand.new(
+            "#{primary_rank}C", "#{primary_rank}H",
+            "#{secondary_rank}C", "#{secondary_rank}D", 
+            "#{(Card::RANKS - [primary_rank, secondary_rank]).first}H"
+          ).two_pair?.should be_true
+        end
+      end
+    end
+    
+    describe 'valuation' do
+      it 'should value two pair queens and 10s higher than two pair jacks and 10s' do
+        Hand.new(*%w{QH QD 10H 10C 8D}).poker_value.should > Hand.new(*%w{JH JD 10H 10C 8D}).poker_value
+      end
+      
+      it 'should value two pair 10s and 4s higher than 10s and 2s' do
+        Hand.new(*%w{10H 10C 4H 4C 8D}).poker_value.should > Hand.new(*%w{10H 10C 2D 2H 8D}).poker_value
+      end
+      
+      it 'should value two pair aces and 2s higher than kings and tens' do
+        Hand.new(*%w{AH AD 2D 2H 8D}).poker_value.should > Hand.new(*%w{KH KD 10D 10C 8C}).poker_value
+      end
+    end
+  end
+end

data/spec/hands/hands_spec.rb

@@ -0,0 +1,148 @@
+require 'spec_helper'
+
+module TheGambler
+  
+  describe Hand do
+    
+    include_examples "poker hands"
+    
+    describe '#blackjack?' do
+      it 'should identify JH AC as a blackjack' do
+        Hand.new(*%w{JH AC}).should be_blackjack
+      end
+      
+      it 'should not identify AC 4D as a blackjack' do
+        Hand.new(*%w{AC 4D}).should_not be_blackjack
+      end
+    end
+    
+    describe '#blackjack_value' do
+      context 'without aces' do
+        it 'should value basic two-card hands' do
+          Hand.new(*%w{2D 9D}).blackjack_value.should eq(11)
+        end
+      
+        it 'should value hands with face cards' do
+          Hand.new(*%w{QD 8C}).blackjack_value.should eq(18)
+        end
+      end
+      
+      context 'with aces' do
+        it 'should value a soft 19' do
+          Hand.new(*%w{AD 8C}).blackjack_value.should eq(19)
+        end
+        
+        it 'should value 21 with two face cards' do
+          Hand.new(*%w{QD JC AH}).blackjack_value.should eq(21)
+        end
+        
+        it 'should value 21 with 5 cards' do
+          Hand.new(*%w{5D 2D 3C 10H AS}).blackjack_value.should eq(21)
+        end
+      end
+      
+    end
+    
+    describe '#poker_value' do
+      it 'should value a royal_flush over a straight_flush' do
+        royal_flush.poker_value.should > straight_flush.poker_value
+      end
+      
+      it 'should value a straight_flush over a four_of_a_kind' do
+        straight_flush.poker_value.should > four_of_a_kind.poker_value
+      end
+      
+      it 'should value a four_of_a_kind over a full_house' do
+        four_of_a_kind.poker_value.should > full_house.poker_value
+      end
+      
+      it 'should value a full_house over a flush' do
+        full_house.poker_value.should > flush.poker_value
+      end
+      
+      it 'should value a flush over a straight' do
+        flush.poker_value.should > straight.poker_value
+      end
+      
+      it 'should value a straight over a three_of_a_kind' do
+        straight.poker_value.should > three_of_a_kind.poker_value
+      end
+      
+      it 'should value a three_of_a_kind over a two_pair' do
+        three_of_a_kind.poker_value.should > two_pair.poker_value
+      end
+      
+      it 'should value a two_pair over a one_pair' do
+        two_pair.poker_value.should > one_pair.poker_value
+      end
+      
+      it 'should value a one_pair over a high_card' do
+        one_pair.poker_value.should > high_card.poker_value
+      end
+    end
+    
+    describe '#royal_flush?' do
+      it 'should identify royal flushes' do
+        royal_flush.royal_flush?.should be_true
+      end
+    end
+    
+    describe '#straight_flush' do
+      it 'should identify straight flushes' do
+        straight_flush.straight_flush?.should be_true
+      end
+    end
+    
+    describe '#four_of_a_kind' do
+      it 'should identify four of a kind' do
+        four_of_a_kind.four_of_a_kind?.should be_true
+      end
+    end
+    
+    describe '#full_house' do
+      it 'should identify full houses' do
+        full_house.full_house?.should be_true
+      end
+    end
+    
+    describe '#flush' do
+      it 'should identify flushes' do
+        flush.flush?.should be_true
+        straight_flush.flush?.should be_true
+      end
+    end
+    
+    describe '#straight' do
+      it 'should identify straights' do
+        straight.straight?.should be_true
+        straight_flush.straight?.should be_true
+      end
+    end
+    
+    describe '#three_of_a_kind' do
+      it 'should identify three of a kind' do
+        three_of_a_kind.three_of_a_kind?.should be_true
+      end
+    end
+    
+    describe '#two_pair' do
+      it 'should identify two pair' do
+        two_pair.two_pair?.should be_true
+      end
+    end
+    
+    describe '#one_pair' do
+      it 'should identify one pair' do
+        one_pair.one_pair?.should be_true
+      end
+    end
+    
+    describe '#high_card' do
+      it 'should identify high card' do
+        high_card.high_card?.should be_true
+      end
+    end
+    
+    
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,12 @@
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'rspec'
+require 'the_gambler'
+
+# Requires supporting files with custom matchers and macros, etc,
+# in ./support/ and its subdirectories.
+Dir["#{File.dirname(__FILE__)}/support/**/*.rb"].each {|f| require f}
+
+RSpec.configure do |config|
+  
+end

data/spec/support/shared_examples/shared_poker_hands.rb

@@ -0,0 +1,12 @@
+shared_examples "poker hands" do
+  let(:royal_flush)     { TheGambler::Hand.new "AD", "KD", "QD", "JD", "10D" }
+  let(:straight_flush)  { TheGambler::Hand.new "JC", "10C", "9C", "8C", "7C" }
+  let(:four_of_a_kind)  { TheGambler::Hand.new "4D", "4C", "4S", "4H", "AC" }
+  let(:full_house)      { TheGambler::Hand.new "5S", "5H", "5D", "8S", "8H" }
+  let(:flush)           { TheGambler::Hand.new "2D", "7D", "8D", "QD", "3D" }
+  let(:straight)        { TheGambler::Hand.new "AC", "2D", "3D", "4D", "5D" }
+  let(:three_of_a_kind) { TheGambler::Hand.new "AD", "AC", "AS", "JD", "10D" }
+  let(:two_pair)        { TheGambler::Hand.new "AD", "AC", "QD", "QS", "10D" }
+  let(:one_pair)        { TheGambler::Hand.new "AD", "AC", "QD", "JD", "10D" }
+  let(:high_card)       { TheGambler::Hand.new "AD", "3H", "QD", "JD", "10D" }
+end

data/spec/the_gambler_spec.rb

@@ -0,0 +1,4 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe "TheGambler" do
+end

data/the_gambler.gemspec

@@ -0,0 +1,86 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE DIRECTLY
+# Instead, edit Jeweler::Tasks in Rakefile, and run 'rake gemspec'
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = "the_gambler"
+  s.version = "0.1.0"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["max thom stahl"]
+  s.date = "2012-11-18"
+  s.description = "\n    Really common tasks in programs that use playing cards are a pain to implement. This is my\n    implementation. Use it. Or don't.\n  "
+  s.email = "max@villainousindustries.com"
+  s.extra_rdoc_files = [
+    "LICENSE.txt",
+    "README.md"
+  ]
+  s.files = [
+    ".document",
+    ".rspec",
+    "Gemfile",
+    "Gemfile.lock",
+    "LICENSE.txt",
+    "README.md",
+    "Rakefile",
+    "VERSION",
+    "lib/the_gambler.rb",
+    "lib/the_gambler/blackjack.rb",
+    "lib/the_gambler/card.rb",
+    "lib/the_gambler/deck.rb",
+    "lib/the_gambler/hand.rb",
+    "lib/the_gambler/poker.rb",
+    "spec/cards/initialization_spec.rb",
+    "spec/decks/deck_spec.rb",
+    "spec/hands/hand_flush_spec.rb",
+    "spec/hands/hand_four_of_a_kind_spec.rb",
+    "spec/hands/hand_full_house_spec.rb",
+    "spec/hands/hand_high_card_spec.rb",
+    "spec/hands/hand_one_pair_spec.rb",
+    "spec/hands/hand_royal_flush_spec.rb",
+    "spec/hands/hand_straight_flush_spec.rb",
+    "spec/hands/hand_straight_spec.rb",
+    "spec/hands/hand_three_of_a_kind_spec.rb",
+    "spec/hands/hand_two_pair_spec.rb",
+    "spec/hands/hands_spec.rb",
+    "spec/players/player_spec.rb",
+    "spec/spec_helper.rb",
+    "spec/support/shared_examples/shared_poker_hands.rb",
+    "spec/the_gambler_spec.rb",
+    "the_gambler.gemspec"
+  ]
+  s.homepage = "http://github.com/mstahl/the_gambler"
+  s.licenses = ["MIT"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = "1.8.24"
+  s.summary = "Classes and modules for card-playing apps."
+
+  if s.respond_to? :specification_version then
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::VERSION) >= Gem::Version.new('1.2.0') then
+      s.add_development_dependency(%q<rspec>, [">= 0"])
+      s.add_development_dependency(%q<yard>, [">= 0"])
+      s.add_development_dependency(%q<rdoc>, [">= 0"])
+      s.add_development_dependency(%q<bundler>, [">= 0"])
+      s.add_development_dependency(%q<jeweler>, [">= 0"])
+      s.add_development_dependency(%q<simplecov>, [">= 0"])
+    else
+      s.add_dependency(%q<rspec>, [">= 0"])
+      s.add_dependency(%q<yard>, [">= 0"])
+      s.add_dependency(%q<rdoc>, [">= 0"])
+      s.add_dependency(%q<bundler>, [">= 0"])
+      s.add_dependency(%q<jeweler>, [">= 0"])
+      s.add_dependency(%q<simplecov>, [">= 0"])
+    end
+  else
+    s.add_dependency(%q<rspec>, [">= 0"])
+    s.add_dependency(%q<yard>, [">= 0"])
+    s.add_dependency(%q<rdoc>, [">= 0"])
+    s.add_dependency(%q<bundler>, [">= 0"])
+    s.add_dependency(%q<jeweler>, [">= 0"])
+    s.add_dependency(%q<simplecov>, [">= 0"])
+  end
+end
+

metadata

@@ -0,0 +1,179 @@
+--- !ruby/object:Gem::Specification
+name: the_gambler
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+  prerelease: 
+platform: ruby
+authors:
+- max thom stahl
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-11-18 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: yard
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: rdoc
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: jeweler
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: simplecov
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+description: ! "\n    Really common tasks in programs that use playing cards are a
+  pain to implement. This is my\n    implementation. Use it. Or don't.\n  "
+email: max@villainousindustries.com
+executables: []
+extensions: []
+extra_rdoc_files:
+- LICENSE.txt
+- README.md
+files:
+- .document
+- .rspec
+- Gemfile
+- Gemfile.lock
+- LICENSE.txt
+- README.md
+- Rakefile
+- VERSION
+- lib/the_gambler.rb
+- lib/the_gambler/blackjack.rb
+- lib/the_gambler/card.rb
+- lib/the_gambler/deck.rb
+- lib/the_gambler/hand.rb
+- lib/the_gambler/poker.rb
+- spec/cards/initialization_spec.rb
+- spec/decks/deck_spec.rb
+- spec/hands/hand_flush_spec.rb
+- spec/hands/hand_four_of_a_kind_spec.rb
+- spec/hands/hand_full_house_spec.rb
+- spec/hands/hand_high_card_spec.rb
+- spec/hands/hand_one_pair_spec.rb
+- spec/hands/hand_royal_flush_spec.rb
+- spec/hands/hand_straight_flush_spec.rb
+- spec/hands/hand_straight_spec.rb
+- spec/hands/hand_three_of_a_kind_spec.rb
+- spec/hands/hand_two_pair_spec.rb
+- spec/hands/hands_spec.rb
+- spec/players/player_spec.rb
+- spec/spec_helper.rb
+- spec/support/shared_examples/shared_poker_hands.rb
+- spec/the_gambler_spec.rb
+- the_gambler.gemspec
+homepage: http://github.com/mstahl/the_gambler
+licenses:
+- MIT
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+      segments:
+      - 0
+      hash: 417615722838553205
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.24
+signing_key: 
+specification_version: 3
+summary: Classes and modules for card-playing apps.
+test_files: []