pairing.rb

   1 module ShogiServer
   2
   3   class Pairing
   4
   5     class << self
   6       def default_pairing
   7         return SwissPairing.new
   8         #return ExcludeSacrifice.new(SwissPairing.new)
   9         #return RandomPairing.new
  10         #return ExcludeSacrifice.new(RandomPairing.new)
  11       end
  12     end
  13
  14     def match(players)
  15       if players.size < 2
  16         log_message("Floodgate[%s]: too few players [%d]" %
  17                     [self.class, players.size])
  18       else
  19         log_message("Floodgate[%s]: found %d players. Pairing them..." %
  20                     [self.class, players.size])
  21       end
  22     end
  23
  24     def start_game(p1, p2)
  25       p1.sente = true
  26       p2.sente = false
  27       Game.new(p1.game_name, p1, p2)
  28     end
  29
  30     def delete_player_at_random(players)
  31       return players.delete_at(rand(players.size))
  32     end
  33
  34     def delete_player_at_random_except(players, a_player)
  35       candidates = players - [a_player]
  36       return delete_player_at_random(candidates)
  37     end
  38
  39     def delete_most_playing_player(players)
  40       max_player = players.max {|a,b| a.win + a.loss <=> b.win + b.loss}
  41       return players.delete(max_player)
  42     end
  43
  44     def delete_least_rate_player(players)
  45       min_player = players.min {|a,b| a.rate <=> b.rate}
  46       return players.delete(min_player)
  47     end
  48
  49     def pairing_and_start_game(players)
  50       return if players.size < 2
  51       if players.size % 2 == 1
  52         log_warning("#Players should be even: %d" % [players.size])
  53         return
  54       end
  55       sorted = players.sort{ rand < 0.5 ? 1 : -1 }
  56
  57       pairs = [[sorted.shift]]
  58       while !sorted.empty? do
  59         if pairs.last.size < 2
  60           pairs.last << sorted.shift
  61         else
  62           pairs << [sorted.shift]
  63         end
  64       end
  65       pairs.each do |pair|
  66         start_game(pair.first, pair.last)
  67       end
  68     end
  69   end # Pairing
  70
  71   class RandomPairing < Pairing
  72     def match(players)
  73       super
  74       return if players.size < 2
  75
  76       if players.size % 2 == 1
  77         delete_most_playing_player(players)
  78       end
  79       pairing_and_start_game(players)
  80     end
  81   end # RadomPairing
  82
  83   class SwissPairing < Pairing
  84     def match(players)
  85       super
  86       return if players.size < 2
  87
  88       win_players = players.find_all {|a| a.last_game_win?}
  89       remains     = players - win_players
  90       if win_players.size >= 2
  91         if win_players.size % 2 == 1
  92           remains << delete_least_rate_player(win_players)
  93         end
  94         pairing_and_start_game(win_players)
  95       else
  96         remains.concat(win_players)
  97       end
  98       return if remains.size < 2
  99       if remains.size % 2 == 1
 100         delete_player_at_random(remains)
 101         # delete_most_playing_player(remains)
 102       end
 103       pairing_and_start_game(remains)
 104     end
 105   end # SwissPairing
 106
 107   class ExcludeSacrifice
 108     attr_accessor :sacrifice
 109
 110     def initialize(pairing)
 111       @pairing  = pairing
 112       @sacrifice = "gps500+e293220e3f8a3e59f79f6b0efffaa931"
 113     end
 114
 115     def match(players)
 116       if @sacrifice &&
 117          players.size % 2 == 1 &&
 118          players.find{|a| a.id == @sacrifice}
 119         log_message("Floodgate: first, exclude %s" % [@sacrifice])
 120         players.delete_if{|a| a.id == @sacrifice}
 121       end
 122       @pairing.match(players)
 123     end
 124
 125     # Delegate to @pairing
 126     def method_missing(message, *arg)
 127       @pairing.send(message, *arg)
 128     end
 129   end # class ExcludeSacrifice
 130 end # ShogiServer