gistfile1.rb

awin=0
bwin=0
1000000.times do |i|
  puts i
  str = ''
  stop = false
  while !stop
    str += rand(2) == 1 ? 't' : 'h'
    if /tht/ =~ str
      stop = true
      awin += 1
    end
    if /thh/ =~ str
      stop = true
      bwin += 1
    end
  end
end

puts "A won #{awin} times. B won #{bwin} times"