monte.rb

deck = []
13.times { deck << 0 }
39.times { deck << 1 }

result = Hash.new(0)

1000000.times do 
  deck = deck.shuffle

  count = 0
  deck.each_slice(2).each do |x, y|
    count += 1 if x == 0 && y == 0
  end
  result[count] += 1
end
puts result