maxnum = 0

100.times do
boys = 10000
girls = 10000
num = 1

begin
  pairs = boys < girls ? boys : girls
  boys = girls = 0
  for i in 1..pairs
    while rand(1..1000) <= 500 do
      girls = girls + 1
    end
    boys = boys + 1
  end
  puts "\##{num}: Pairs: #{pairs}, Boys: #{boys}, Girls: #{girls}"
  num = num + 1
end until pairs == 0

maxnum = num if num > maxnum
end

puts "Maxnum is #{maxnum}"