a.rb

PROCESSORS = (ARGV[0] || 1).to_i

pids = []
workers = PROCESSORS.times.map do |i|
  uri = "druby://localhost:#{12345 + i}"
  pids << fork { DRb.start_service(uri, MonteCarlo.new(i)); sleep }
  DRbObject.new_with_uri(uri)
end

begin
  q = Queue.new
  sleep 0.1
  ts = workers.map do |foo|
    Thread.start(foo) {|f| q.push(f.dice(n))}
  end
  ts.each{|t| t.join}
  p q.size.times.map{q.pop}.min
ensure
  pids.each {|pid| Process.kill(:TERM, pid)}
end