Allie's poker implementation

Gemfile.lock

@@ -7,13 +7,23 @@ PATH
 GEM
   remote: https://rubygems.org/
   specs:
+    activesupport (5.0.0.1)
+      concurrent-ruby (~> 1.0, >= 1.0.2)
+      i18n (~> 0.7)
+      minitest (~> 5.1)
+      tzinfo (~> 1.1)
     binding_of_caller (0.7.2)
       debug_inspector (>= 0.0.1)
     coderay (1.1.1)
+    concurrent-ruby (1.0.2)
     debug_inspector (0.0.2)
     diff-lcs (1.2.5)
+    factory_girl (4.7.0)
+      activesupport (>= 3.0.0)
+    i18n (0.7.0)
     interception (0.5)
     method_source (0.8.2)
+    minitest (5.10.1)
     pry (0.10.4)
       coderay (~> 1.1.0)
       method_source (~> 0.8.1)
@@ -39,16 +49,23 @@ GEM
       rspec-support (~> 3.5.0)
     rspec-support (3.5.0)
     slop (3.6.0)
+    thread_safe (0.3.5)
+    tzinfo (1.2.2)
+      thread_safe (~> 0.1)
     yard (0.9.5)
 
 PLATFORMS
   ruby
 
 DEPENDENCIES
   binding_of_caller
+  factory_girl
   pry
   pry-rescue
   pry-stack_explorer
   rspec (>= 3.5.0)
   to-poker!
   yard
+
+BUNDLED WITH
+   1.13.6

lib/poker.rb

@@ -0,0 +1,9 @@
+# frozen_string_literal: true
+require 'pry'
+require 'poker/card'
+require 'poker/deck'
+require 'poker/hand'
+require 'poker/dealer'
+# Poker Top Level Library
+module Poker
+end

lib/poker/card.rb

@@ -0,0 +1,17 @@
+module Poker
+  class Card
+    attr_reader :rank, :suit
+
+    RANKS = ['2', '3', '4', '5', '6', '7', '8', '9', '10', 'J', 'Q', 'K', 'A']
+    SUITS = ['Hearts', 'Spades', 'Diamonds', 'Clubs']
+
+    def initialize(rank, suit)
+      @rank = rank
+      @suit = suit
+    end
+
+    def number_value
+      RANKS.index(rank) + 1
+    end
+  end
+end

lib/poker/dealer.rb

@@ -0,0 +1,30 @@
+module Poker
+  class Dealer
+    class EmptyDeckError < StandardError; end
+
+    attr_reader :deck, :hands
+
+    def initialize(num_players)
+      @num_players = num_players
+      @deck = Poker::Deck.new
+      @hands = []
+    end
+
+    def deal_round
+      @hands = Array.new(@num_players) { deal }
+    end
+
+    def winner
+      @hands.select { |hand| hand == @hands.max }
+    end
+
+
+    private
+
+    def deal
+      Poker::Hand.new(@deck.cards.pop(5))
+
+      raise EmptyDeckError if @deck.cards.empty?
+    end
+  end
+end

lib/poker/deck.rb

@@ -0,0 +1,20 @@
+module Poker
+  class Deck
+    include Enumerable
+
+    attr_reader :cards
+
+    def initialize
+      @cards = Poker::Card::RANKS.flat_map do |rank|
+        Poker::Card::SUITS.flat_map do |suit|
+          Poker::Card.new(rank, suit)
+        end
+      end.shuffle!
+    end
+
+    def each(&block)
+      @cards.each(&block)
+    end
+
+  end
+end

lib/poker/hand.rb

@@ -0,0 +1,109 @@
+module Poker
+  class Hand
+    include Comparable
+
+    def initialize(cards)
+      @cards = cards
+      @sets = sets
+    end
+
+    def straight_flush?
+      straight? && flush?
+    end
+
+    def four_of_a_kind?
+      of_a_kind?(4)
+    end
+
+    def full_house?
+      three_of_a_kind? && one_pair?
+    end
+
+    def flush?
+      @cards.map { |c| c.suit }.uniq.length == 1
+    end
+
+    def straight?
+      standard_straight? || ace_low_straight?
+    end
+
+    def three_of_a_kind?
+      of_a_kind?(3)
+    end
+
+    def two_pair?
+      one_pair? && @sets.select { |k,v| v == 2 }.length == 2
+    end
+
+    def one_pair?
+      of_a_kind?(2)
+    end
+
+    def of_a_kind?(number)
+      @sets.values.any? {|s| s == number }
+    end
+
+    def level
+      if straight_flush?
+        8
+      elsif four_of_a_kind?
+        7
+      elsif full_house?
+        6
+      elsif flush?
+        5
+      elsif straight?
+        4
+      elsif three_of_a_kind?
+        3
+      elsif two_pair?
+        2
+      elsif one_pair?
+        1
+      else
+        0
+      end
+    end
+
+    def <=>(other_hand)
+      lvl_compare = level <=> other_hand.level
+
+      return lvl_compare unless lvl_compare == 0
+
+      sorted_sets <=> other_hand.sorted_sets
+    end
+
+    def sorted_sets
+      # &:reverse makes sure that the hash sorts by value first then key
+      @sorted_sets = @sets.sort_by(&:reverse).reverse.to_h.keys
+
+      adjust_ace if ace_low_straight?
+
+      @sorted_sets
+    end
+
+    private
+
+    def standard_straight?
+      @sets.keys.length == 5 && @sets.keys == (@sets.keys.first..@sets.keys.last).to_a
+    end
+
+    def ace_low_straight?
+      sets.keys == [1, 2, 3, 4, 13]
+    end
+
+    def adjust_ace
+      @sorted_sets.shift
+      @sorted_sets.push(0)
+    end
+
+    def sets
+      sets = @cards.inject(Hash.new(0)) do |hash, card|
+        hash[card.number_value] += 1
+        hash
+      end
+
+      Hash[sets.sort]
+    end
+  end
+end

spec/factories/hand_factory.rb

@@ -0,0 +1,145 @@
+FactoryGirl.define do
+  factory :hand, class: Poker::Hand do
+    initialize_with do
+      ranks = Poker::Card::RANKS.shuffle
+      suits = Poker::Card::SUITS
+      new((0..4).map {|c| Poker::Card.new(ranks.pop, suits.sample) })
+    end
+  end
+
+  factory :straight_flush, class: Poker::Hand do
+    initialize_with do
+      new(
+        [
+          Poker::Card.new('2', 'Diamonds'),
+          Poker::Card.new('3', 'Diamonds'),
+          Poker::Card.new('4', 'Diamonds'),
+          Poker::Card.new('5', 'Diamonds'),
+          Poker::Card.new('6', 'Diamonds'),
+        ]
+      )
+    end
+  end
+
+  factory :four_of_a_kind, class: Poker::Hand do
+    initialize_with do
+      new(
+        [
+          Poker::Card.new('2', 'Diamonds'),
+          Poker::Card.new('2', 'Spades'),
+          Poker::Card.new('2', 'Hearts'),
+          Poker::Card.new('5', 'Clubs'),
+          Poker::Card.new('2', 'Clubs'),
+        ]
+      )
+    end
+  end
+
+  factory :full_house, class: Poker::Hand do
+    initialize_with do
+      new(
+        [
+          Poker::Card.new('7', 'Diamonds'),
+          Poker::Card.new('7', 'Hearts'),
+          Poker::Card.new('7', 'Spades'),
+          Poker::Card.new('8', 'Diamonds'),
+          Poker::Card.new('8', 'Spades'),
+        ]
+      )
+    end
+  end
+
+  factory :flush, class: Poker::Hand do
+    initialize_with do
+      new(
+        [
+          Poker::Card.new('2', 'Hearts'),
+          Poker::Card.new('3', 'Hearts'),
+          Poker::Card.new('8', 'Hearts'),
+          Poker::Card.new('5', 'Hearts'),
+          Poker::Card.new('6', 'Hearts'),
+        ]
+      )
+    end
+  end
+
+  factory :straight, class: Poker::Hand do
+    initialize_with do
+      new(
+        [
+          Poker::Card.new('2', 'Spades'),
+          Poker::Card.new('3', 'Spades'),
+          Poker::Card.new('4', 'Spades'),
+          Poker::Card.new('5', 'Spades'),
+          Poker::Card.new('6', 'Clubs'),
+        ]
+      )
+    end
+  end
+
+  factory :straight_with_ace, class: Poker::Hand do
+    initialize_with do
+      new(
+        [
+          Poker::Card.new('A', 'Clubs'),
+          Poker::Card.new('2', 'Diamonds'),
+          Poker::Card.new('3', 'Diamonds'),
+          Poker::Card.new('4', 'Diamonds'),
+          Poker::Card.new('5', 'Diamonds'),
+        ]
+      )
+    end
+  end
+
+  factory :three_of_a_kind, class: Poker::Hand do
+    transient do
+      match_rank nil
+      high_card nil
+    end
+
+    initialize_with do
+      new(
+        [
+          Poker::Card.new(match_rank || '4', 'Diamonds'),
+          Poker::Card.new(match_rank || '4', 'Spades'),
+          Poker::Card.new(match_rank || '4', 'Hearts'),
+          Poker::Card.new(high_card || '5', 'Clubs'),
+          Poker::Card.new('2', 'Clubs'),
+        ]
+      )
+    end
+  end
+
+  factory :two_pair, class: Poker::Hand do
+    transient do
+      one_pair_rank nil
+      high_card nil
+    end
+
+    initialize_with do
+      new(
+        [
+          Poker::Card.new(one_pair_rank || '7', 'Diamonds'),
+          Poker::Card.new('J', 'Spades'),
+          Poker::Card.new('J', 'Hearts'),
+          Poker::Card.new(high_card || '5', 'Clubs'),
+          Poker::Card.new(one_pair_rank || '7', 'Clubs'),
+        ]
+      )
+    end
+  end
+
+  factory :one_pair, class: Poker::Hand do
+    initialize_with do
+      new(
+        [
+          Poker::Card.new('K', 'Diamonds'),
+          Poker::Card.new('Q', 'Spades'),
+          Poker::Card.new('J', 'Hearts'),
+          Poker::Card.new('4', 'Clubs'),
+          Poker::Card.new('Q', 'Clubs'),
+        ]
+      )
+    end
+  end
+end