DouKaku?

class Mahjang
  Tu, Num = :t, 14
  Hai, Tuhai = [:m, :s, :p, Tu], [:wt, :sh, :et, :nh, :hk, :ht, :tu]
  module WisePlayer
    def think
      unless @tumo
        puts [*1..Num].map{|c| format("% 3d", c)}.join(?,) + ' 0=tumo', self
        true until (0..Num).include?(i = gets.to_i)
        @tumo = true if i.zero?
      end
      @tumo ? Num : i
    end
  end
  class Player
    def initialize
      @hai, @ho = [], []
      @tumo = nil
    end
    attr_reader :ho
    def to_s
      @hai.map{|p| [p.name, p.num]}.
        map{|n,m| n != Tu ? " #{n}#{m+1}" : " #{TuHai[m]}"}.join(",")
    end
    def repai()   @hai = @hai.sort_by{|h| [h.name, h.num]}  end
    def size()    @hai.size  end
    def get(a)    @hai << a  end
    def think()   Num end
    def set()     @ho << @hai.delete_at(think-1)  end
  end
  def initialize
    pi = Struct.new("Pi", :name, :num)
    @players = Array.new(4){Player.new}
    @players[0].extend(WisePlayer)
    @hi = Hai.map{|s| Array.new(4){Array.new(9){|i|
          pi.new(s,i) unless s == Tu && i >= 7}}}.
      flatten.compact.shuffle
    init_set
  end
  def init_set
    cycle{@players.last.size >= Num-1}
    @players[0].get(@hi.delete_at(3))
  end
  def play
    cycle(true){@hi.size <= Num}
    @players.each{|p| puts p}
  end
  private
  def cycle(play=nil)
    @players.cycle{|p|
      p.get(@hi.shift) if p.size < Num
      p.set            if play
      p.repai
      break if yield}
  end
end
if __FILE__ == $0
  m = Mahjang.new
  m.play
end