tundengine 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 92d1815dcf85bb0d4d18a2980b687704349e18f6
+  data.tar.gz: 70086624730d3053c5594a58814b184546c74168
+SHA512:
+  metadata.gz: ac751d339605ac1c7368deb2ee58acfa3b924747d33deacc8ae6ae659a6d4e00c957266e17ba51374537cae5d62475535fd57309d158267a6a091f9affc664bd
+  data.tar.gz: 150acf306102d02a918ed35929d41d926065bbc2f9697130508e1edcce722f1724e3dbc14da0f103caa36cca0a04dc373efcf1ea6488cf76534fc576c0c23aaa

data/Gemfile

@@ -0,0 +1,4 @@
+source 'http://rubygems.org'
+
+# Specify your gem's dependencies in tundengine.gemspec
+gemspec

data/LICENSE

@@ -0,0 +1,21 @@
+MIT License
+
+Copyright (c) 2017 eugeniobruno
+
+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,29 @@
+# Tundengine
+
+A Ruby gem to build applications based on the rules of the Tute card game.
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+    gem 'tundengine'
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install tundengine
+
+## Usage
+
+TODO: Write usage instructions here.
+
+## Contributing
+
+1. Fork it
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Add some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create new Pull Request

data/Rakefile

@@ -0,0 +1,8 @@
+require 'rake/testtask'
+
+Rake::TestTask.new do |t|
+  t.pattern = "test/**/test_*.rb"
+end
+
+desc "Run tests"
+task :default => :test

data/lib/tundengine.rb

@@ -0,0 +1,67 @@
+require 'forwardable'
+
+require 'tundengine/stringifiable_by_class'
+require 'tundengine/algebraic_data_type'
+require 'tundengine/card_percolator'
+require 'tundengine/null_move'
+require 'tundengine/move'
+
+require 'tundengine/suits/base'
+require 'tundengine/suits/null'
+require 'tundengine/suits/oro'
+require 'tundengine/suits/copa'
+require 'tundengine/suits/espada'
+require 'tundengine/suits/basto'
+
+require 'tundengine/ranks/base'
+require 'tundengine/ranks/null'
+require 'tundengine/ranks/white'
+require 'tundengine/ranks/uno'
+require 'tundengine/ranks/dos'
+require 'tundengine/ranks/tres'
+require 'tundengine/ranks/cuatro'
+require 'tundengine/ranks/cinco'
+require 'tundengine/ranks/seis'
+require 'tundengine/ranks/siete'
+require 'tundengine/ranks/diez'
+require 'tundengine/ranks/once'
+require 'tundengine/ranks/doce'
+
+require 'tundengine/cards/card'
+require 'tundengine/cards/null'
+
+require 'tundengine/declarations/base'
+require 'tundengine/declarations/null'
+require 'tundengine/declarations/void'
+require 'tundengine/declarations/las_veinte'
+require 'tundengine/declarations/las_cuarenta'
+require 'tundengine/declarations/tute'
+
+require 'tundengine/tute_values/base'
+require 'tundengine/tute_values/nothing'
+require 'tundengine/tute_values/capotes'
+require 'tundengine/tute_values/victory'
+
+require 'tundengine/deck'
+
+require 'tundengine/stages/base'
+require 'tundengine/stages/null'
+require 'tundengine/stages/turn'
+require 'tundengine/stages/trick'
+require 'tundengine/stages/round'
+require 'tundengine/stages/match'
+require 'tundengine/stages/tournament'
+
+require 'tundengine/player/in_match'
+require 'tundengine/player/in_round'
+require 'tundengine/player/in_turn'
+
+require 'tundengine/hand'
+
+require 'tundengine/dealer'
+require 'tundengine/round_analyzer'
+
+require 'tundengine/strategies/base'
+require 'tundengine/strategies/manual'
+require 'tundengine/strategies/automatic'
+require 'tundengine/strategies/random'

data/lib/tundengine/algebraic_data_type.rb

@@ -0,0 +1,33 @@
+module Tundengine
+  module AlgebraicDataType
+
+    def initialize
+      freeze
+    end
+
+    def to_s
+      (state.one? ? state.first : state).to_s
+    end
+
+    def ==(o)
+      o.class == self.class && o.state == state
+    end
+
+    alias_method :eql?, :==
+
+    def hash
+      state.hash
+    end
+
+    protected
+
+    def state
+      [self.class.name.split('::').last].concat identifier
+    end
+
+    def identifier
+      []
+    end
+
+  end
+end

data/lib/tundengine/card_percolator.rb

@@ -0,0 +1,9 @@
+module Tundengine
+  module CardPercolator
+
+    def percolate(cards, method = :select)
+      cards.public_send(method) { |c| passes_card_percolator? c }
+    end
+
+  end
+end

data/lib/tundengine/cards/card.rb

@@ -0,0 +1,63 @@
+module Tundengine
+  module Cards
+    class Card
+
+      include AlgebraicDataType
+      include Move
+
+      attr_reader :rank, :suit
+
+      def initialize(rank, suit)
+        @rank = rank
+        @suit = suit
+        super()
+      end
+
+      def to_s
+        "#{@rank.to_s} de #{@suit.to_s}"
+      end
+
+      def is_of_any_rank?(ranks)
+        ranks.include? @rank
+      end
+
+      def is_of_any_suit?(suits)
+        suits.include? @suit
+      end
+
+      def round_points
+        @rank.round_points
+      end
+
+      # assumes other_card is winning the current trick
+      def beats?(other_card, trump_suit)
+        suit_powers = { other_card.suit => 1, trump_suit => 2 }
+        suit_powers[Suits::Null.instance] = 0
+
+        own_suit_power, other_suit_power = [@suit, other_card.suit]
+          .map { |s| suit_powers.fetch(s, 0) }
+
+        if own_suit_power == other_suit_power
+          beats_same_suit?(other_card)
+        else
+          own_suit_power > other_suit_power
+        end
+      end
+
+      def beats_same_suit?(other_card)
+        @rank > other_card.rank
+      end
+
+      def exists?
+        true
+      end
+
+      protected
+
+      def state
+        [@rank, @suit]
+      end
+
+    end
+  end
+end

data/lib/tundengine/cards/null.rb

@@ -0,0 +1,18 @@
+module Tundengine
+  module Cards
+    class Null < Card
+
+      include Singleton
+      include NullMove
+
+      def initialize
+        super(Ranks::Null.instance, Suits::Null.instance)
+      end
+
+      def exists?
+        false
+      end
+
+    end
+  end
+end

data/lib/tundengine/dealer.rb

@@ -0,0 +1,52 @@
+module Tundengine
+  class Dealer
+
+    include Singleton
+
+    def deal!(players, trump_suit, options = {})
+      default_options = {
+        premade_hands: Hash.new([])
+      }
+      options = default_options.merge(options)
+
+      premade_hands = options.fetch :premade_hands
+
+      validate_premade_hands(premade_hands)
+
+      premade_players_names = premade_hands.keys.map(&:name)
+      premade_players, other_players = players.partition do |p|
+        premade_players_names.include? p.name
+      end
+
+      premade_players.each do |p|
+        premade_hands[p].each { |c| p.take_card! c }
+      end
+
+      premade_cards = premade_hands.values.flatten(1)
+
+      all_cards = Deck.for(players.length, trump_suit).shuffle
+      do_deal!(other_players, all_cards - premade_cards)
+    end
+
+    protected
+
+    def do_deal!(players, cards)
+      number_of_players = players.length
+      cards.each_with_index do |c, i|
+        players[i % number_of_players].take_card! c
+      end
+    end
+
+    def validate_premade_hands(hands)
+      if hands.values.map(&:length).uniq.length > 1
+        raise "all premade hands must have the same amount of cards"
+      end
+
+      premade_cards = hands.values.flatten(1)
+      unless premade_cards.length == premade_cards.uniq.length
+        raise "premade hands cannot share cards"
+      end
+    end
+
+  end
+end

data/lib/tundengine/deck.rb

@@ -0,0 +1,41 @@
+module Tundengine
+  class Deck
+
+    RANK_CLASSES = %w(Uno Dos Tres Cuatro Cinco Seis Siete Diez Once Doce)
+      .map { |r| Object.const_get("Tundengine::Ranks::#{r}") }
+
+    SUIT_CLASSES = %w(Oro Copa Espada Basto)
+      .map { |s| Object.const_get("Tundengine::Suits::#{s}") }
+
+    RANKS = RANK_CLASSES.map(&:instance).freeze
+
+    SUITS = SUIT_CLASSES.map(&:instance).freeze
+
+    CARDS = SUITS.product(RANKS).map { |s, r| r.de s }.freeze
+
+    DECLARATIONS = SUITS.map { |s| Declarations::LasVeinte.en(s) }
+                        .concat(  [Declarations::LasCuarenta, Declarations::Tute,
+                                   Declarations::Void]
+                                  .map(&:instance)).freeze
+
+    class << self
+
+      def for(number_of_players, trump_suit)
+        case number_of_players
+        when 3
+          CARDS - [Ranks::Dos.de(trump_suit)]
+        when 4..5
+          CARDS
+        else
+          raise "invalid number of players: #{number_of_players}"
+        end
+      end
+
+      def cards_of(ranks = RANKS, suits = SUITS)
+        CARDS.select { |c| c.is_of_any_rank? ranks and c.is_of_any_suit? suits }
+      end
+
+    end
+
+  end
+end

data/lib/tundengine/declarations/base.rb

@@ -0,0 +1,24 @@
+module Tundengine
+  module Declarations
+    class Base
+
+      include StringifiableByClass
+      include Move
+
+      attr_reader :round_points
+
+      def initialize
+        @round_points = self.class::ROUND_POINTS
+      end
+
+      def has_tute_effect?(tute_value)
+        false
+      end
+
+      def finishes_round?(tute_value)
+        false
+      end
+
+    end
+  end
+end

data/lib/tundengine/declarations/las_cuarenta.rb

@@ -0,0 +1,15 @@
+module Tundengine
+  module Declarations
+    class LasCuarenta < Base
+
+      include Singleton
+
+      ROUND_POINTS = 40
+
+      def is_declarable?(hand, trump_suit)
+        hand.has_knight_and_king_of?(trump_suit)
+      end
+
+    end
+  end
+end

data/lib/tundengine/declarations/las_veinte.rb

@@ -0,0 +1,29 @@
+module Tundengine
+  module Declarations
+    class LasVeinte < Base
+
+      include AlgebraicDataType
+
+      ROUND_POINTS = 20
+
+      def self.en(suit)
+        s = suit.is_a?(Suits::Base) ? suit : suit.instance
+        new(s)
+      end
+
+      def initialize(suit)
+        @suit = suit
+        super()
+      end
+
+      def is_declarable?(hand, trump_suit)
+        @suit != trump_suit and hand.has_knight_and_king_of?(@suit)
+      end
+
+      def identifier
+        [@suit]
+      end
+
+    end
+  end
+end

data/lib/tundengine/declarations/null.rb

@@ -0,0 +1,18 @@
+module Tundengine
+  module Declarations
+    class Null
+
+      include Singleton
+      include NullMove
+
+      def has_tute_effect?(tute_value)
+        false
+      end
+
+      def finishes_round?(tute_value)
+        false
+      end
+
+    end
+  end
+end