poker-ranking 1.0.0

data/lib/card.rb

@@ -0,0 +1,40 @@
+
+module PokerRanking
+  class PokerRanking::Card
+
+    RANKS = %w(2 3 4 5 6 7 8 9 10 Jack Queen King Ace)
+    SUITS = %w(Hearts Diamonds Spades Clubs)
+
+    def initialize(card_data)
+      @suit = card_data[:suit]
+      @rank = card_data[:rank].to_s
+      set_value_by_rank_name(@rank)
+    end
+
+    def set_value_by_rank_name(rank)
+      @value = RANKS.index(rank) + 2
+    end
+
+    def worth_less_than(other_hand)
+      @value < other_hand.value
+    end
+
+    def to_s
+      "#{@rank} of #{@suit}"
+    end
+
+    def ==(other_card)
+      @value == other_card.value && @rank == other_card.rank
+    end
+
+    attr_reader :value
+    attr_reader :rank
+    attr_reader :suit
+
+    def self.from_name(name)
+      rank, suit = name.split /\s+of\s+/
+      PokerRanking::Card.new({rank: rank, suit: suit})
+    end
+
+  end
+end

data/lib/hand.rb

@@ -0,0 +1,84 @@
+require 'card'
+
+require_relative 'hand_type'
+
+module PokerRanking
+
+
+  class Hand
+
+    HAND_TYPES = [HandType::StraightFlush, HandType::FourOfAKind, HandType::FullHouse, HandType::Flush, HandType::Straight, HandType::ThreeOfAKind, HandType::TwoPair, HandType::Pair, HandType::HighCard]
+
+    attr_reader :cards
+    attr_reader :rank
+    attr_reader :value
+    attr_reader :second_value
+    attr_reader :kickers
+
+    def initialize(cards)
+      @cards = []
+      cards.each do |card|
+        if card.is_a? PokerRanking::Card
+          @cards << card
+        elsif card.is_a? String
+          @cards << PokerRanking::Card::from_name(card)
+        else
+          @cards << PokerRanking::Card.new(card)
+        end
+      end
+
+      if @cards.length > 0
+        @cards.sort_by! { |card| card.value }
+
+        calculate_rank
+      end
+    end
+
+
+    def defeats?(other_hand)
+      if @cards.length == 0
+        return false
+      end
+
+      if other_hand.cards.length == 0
+        return true
+      end
+
+      return self.rank > other_hand.rank unless self.rank == other_hand.rank
+      return self.value > other_hand.value unless self.value == other_hand.value
+      return self.second_value > other_hand.second_value unless self.second_value == other_hand.second_value
+      self.kickers.each_with_index do |kicker,index|
+        return kicker > other_hand.kickers[index] unless kicker == other_hand.kickers[index]
+      end
+      return false
+    end
+
+    def name
+      hand_type.name
+    end
+
+    def ==(other)
+      cards == other.cards
+    end
+
+
+    private
+
+    def calculate_rank
+      @rank = hand_type.rank
+      @value = hand_type.value
+      @second_value = hand_type.second_value
+      @kickers = hand_type.kickers 
+    end
+
+    def hand_type
+      HAND_TYPES.each do |hand_type_class|
+        hand_type = hand_type_class.new @cards
+        if hand_type.handles?
+          return hand_type
+        end
+      end
+    end
+  end
+
+end

data/lib/hand_type.rb

@@ -0,0 +1,12 @@
+
+require_relative 'hand_type/base'
+require_relative 'hand_type/high_card'
+require_relative 'hand_type/pair'
+require_relative 'hand_type/two_pair'
+require_relative 'hand_type/three_of_a_kind'
+require_relative 'hand_type/straight'
+require_relative 'hand_type/flush'
+require_relative 'hand_type/full_house'
+require_relative 'hand_type/four_of_a_kind'
+require_relative 'hand_type/straight_flush'
+

data/lib/hand_type/base.rb

@@ -0,0 +1,58 @@
+module PokerRanking
+  module HandType
+    class Base
+      attr_reader :cards
+
+      def initialize(cards)
+        @cards = cards
+      end
+
+      def value
+        cards[-1].value
+      end
+
+      def n_of_a_kind?(n)
+        highest_same_value(n) > 0
+      end
+
+      def highest_same_value(n)
+        highest_same_value_except n, 0
+      end
+
+      def number_of_kickers
+        5
+      end
+
+      def second_value
+        value
+      end
+
+      def highest_same_value_except(n, skipped_values)
+        skipped_values = [skipped_values] unless skipped_values.respond_to? :include?
+        value = 0
+        count = 1
+        last_value = 0
+        @cards.each do |card|
+          if card.value == last_value && !(skipped_values.include? card.value)
+            count += 1
+            value = last_value if count == n
+          else
+            count = 1
+            last_value = card.value
+          end
+        end
+        value
+      end
+
+      def kickers
+        kickers = []
+        @cards.map(&:value).reverse.each do |value|
+          kickers << value if @cards.map(&:value).count(value) == 1
+        end
+        kickers[0..number_of_kickers-1]
+      end
+
+
+    end
+  end
+end

data/lib/hand_type/flush.rb

@@ -0,0 +1,47 @@
+module PokerRanking
+  module HandType
+    class Flush < Base
+    
+      attr_reader :flush_suit 
+
+      def handles?
+        count = { 'Hearts' => 0, 'Clubs' => 0, 'Diamonds' => 0, 'Spades' => 0 }
+        @cards.each do |card|
+          count[card.suit] += 1
+        end
+
+        count.each do |suit, suit_count|
+          if suit_count >= 5
+            @flush_suit = suit
+            return true
+          end
+        end
+
+        return false
+      end
+
+      def value
+        kickers.first
+      end
+
+      #only use kickers that are of the suit
+      def kickers
+        kick = []
+        @cards.reverse.each do |card|
+          if card.suit == @flush_suit
+            kick << card.value
+          end
+        end
+        kick[0..number_of_kickers-1]
+      end
+
+      def rank
+        5
+      end
+
+      def name
+        'flush'
+      end
+    end
+  end
+end

data/lib/hand_type/four_of_a_kind.rb

@@ -0,0 +1,32 @@
+
+module PokerRanking
+  module HandType
+    class FourOfAKind < Base
+
+      def handles?
+        n_of_a_kind? 4
+      end
+
+      def number_of_kickers
+        1
+      end
+
+      def rank
+        7
+      end
+
+      def value
+        highest_same_value 4
+      end
+
+      #because the kicker could be part of a pair
+      def kickers
+        [[super,highest_same_value_except(2,value)].flatten.max]
+      end
+
+      def name
+        'four of a kind'
+      end
+    end
+  end
+end

data/lib/hand_type/full_house.rb

@@ -0,0 +1,27 @@
+module PokerRanking
+  module HandType
+    class FullHouse < Base
+
+      def handles?
+        return false unless n_of_a_kind? 3
+        second_value > 0
+      end
+
+      def rank
+        6
+      end
+
+      def second_value
+        highest_same_value_except(2, value)
+      end
+
+      def value
+        highest_same_value 3
+      end
+
+      def name
+        'full house'
+      end
+    end
+  end
+end

data/lib/hand_type/high_card.rb

@@ -0,0 +1,18 @@
+module PokerRanking
+  module HandType
+    class HighCard < Base
+
+      def handles?
+        true
+      end
+
+      def rank
+        0
+      end
+
+      def name
+        'high card'
+      end
+    end
+  end
+end

data/lib/hand_type/pair.rb

@@ -0,0 +1,27 @@
+
+module PokerRanking
+  module HandType
+    class Pair < Base
+
+      def handles?
+        n_of_a_kind? 2
+      end
+
+      def rank
+        1
+      end
+
+      def value
+        highest_same_value 2
+      end
+
+      def number_of_kickers
+        3
+      end
+
+      def name
+        'pair'
+      end
+    end
+  end
+end

data/lib/hand_type/straight.rb

@@ -0,0 +1,55 @@
+module PokerRanking
+  module HandType
+    class Straight < Base
+
+      def handles?
+        straight_value > 0
+      end
+
+      def rank
+        4
+      end
+
+      def value
+        straight_value
+      end
+
+      def name
+        'straight'
+      end
+
+      private
+
+      def straight_value
+        count = 1
+        last_value = 0
+        value = 0
+
+        if has_ace()
+          count += 1
+          last_value = 1
+        end
+
+        @cards.each do |card|
+          if card.value == last_value + 1
+            count += 1
+          else
+            count = 1
+          end
+          last_value = card.value
+
+          if count >= 5
+            value = card.value
+          end
+        end
+        value
+      end
+
+      def has_ace
+        @cards[-1].rank == 'Ace'
+      end
+
+
+    end
+  end
+end

data/lib/hand_type/straight_flush.rb

@@ -0,0 +1,65 @@
+module PokerRanking
+  module HandType
+    class StraightFlush < Base
+
+      SUITS = %w(Hearts Diamonds Spades Clubs)
+
+      def handles?
+        (value > 0)
+      end
+
+      def rank
+        8
+      end
+
+      def value
+        SUITS.each do |suit|
+          value_for_suit = straight_value_for_suit(suit)
+          return value_for_suit if value_for_suit > 0
+        end
+        0
+      end
+
+      def name
+        'straight flush'
+      end
+
+      private
+
+      def straight_value_for_suit(suit)
+        count = 1
+        last_value = 0
+        value = 0
+
+        if has_ace_of_suit(suit)
+          count += 1
+          last_value = 1
+        end
+
+        cards.each do |card|
+          if card.suit == suit
+            if card.value == last_value + 1
+              count += 1
+            else
+              count = 1
+            end
+            last_value = card.value
+
+            if count >= 5
+              value = card.value
+            end
+          end
+        end
+        value
+      end
+
+      def has_ace_of_suit(suit)
+        cards.each do |card|
+          return true if card.value == 14 && card.suit == suit
+        end
+
+        false
+      end
+    end
+  end
+end

data/lib/hand_type/three_of_a_kind.rb

@@ -0,0 +1,28 @@
+
+module PokerRanking
+  module HandType
+    class ThreeOfAKind < Base
+
+      def handles?
+        n_of_a_kind? 3
+      end
+
+      def number_of_kickers
+        2
+      end
+
+      def rank
+        3
+      end
+
+      def value
+        highest_same_value 3
+      end
+
+      def name
+        'three of a kind'
+      end
+
+    end
+  end
+end

data/lib/hand_type/two_pair.rb

@@ -0,0 +1,50 @@
+module PokerRanking
+
+  module HandType
+    class TwoPair < Base
+
+      def handles?
+        has_two_pair?
+      end
+
+      def rank
+        2
+      end
+
+      def value
+        highest_same_value 2
+      end
+
+      def number_of_kickers
+        1
+      end
+
+      def second_value
+        highest_same_value_except(2, value)
+      end
+
+      def kickers
+        [[super,highest_same_value_except(2,[value,second_value])].flatten.max]
+      end
+
+      def name
+        'two pairs'
+      end
+
+      private
+
+      def has_two_pair?
+        pair_count = 0
+        last_value = 0
+        @cards.each do |card|
+          if card.value == last_value
+            pair_count += 1
+          end
+          last_value = card.value
+        end
+        return pair_count >= 2
+      end
+
+    end
+  end
+end

data/lib/poker_ranking.rb

@@ -0,0 +1,6 @@
+require_relative 'hand'
+require_relative 'card'
+
+module PokerRanking
+  VERSION = '1.0.0'
+end

metadata

@@ -0,0 +1,92 @@
+--- !ruby/object:Gem::Specification
+name: poker-ranking
+version: !ruby/object:Gem::Version
+  version: 1.0.0
+  prerelease: 
+platform: ruby
+authors:
+- Rafael Ordog aka DeVill
+- Paul Yule
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2014-01-31 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: rake
+  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: Created for the lean poker project
+email: rafael@ordog.tk
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/hand_type/high_card.rb
+- lib/hand_type/straight.rb
+- lib/hand_type/flush.rb
+- lib/hand_type/full_house.rb
+- lib/hand_type/straight_flush.rb
+- lib/hand_type/base.rb
+- lib/hand_type/pair.rb
+- lib/hand_type/four_of_a_kind.rb
+- lib/hand_type/two_pair.rb
+- lib/hand_type/three_of_a_kind.rb
+- lib/card.rb
+- lib/hand_type.rb
+- lib/poker_ranking.rb
+- lib/hand.rb
+homepage: http://leanpoker.org
+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'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.23
+signing_key: 
+specification_version: 3
+summary: Poker cards, and ranking utilities for poker apps.
+test_files: []