monty.rb

sample = 10000

change = 0
not_change = 0

$verbose = true

def log(s)
  puts s if $verbose
end

sample.times do
  door = rand(3)+1 #門是1,2,3

  log "不失一般性，假設玩家選1號門"
  case door
  when 1 then
    log "主持人會隨機選擇2或3號門, 無論如何換了就得不到車"
    not_change += 1
  when 2 then
    log "主持人會打開3號門，要換才可以得到車"
    change += 1
  when 3 then
    log "主持人會打開2號門，要換才可以得到車"
    change += 1
  end
end

puts "在#{sample}次中，有#{change}次要換是正確的，有#{not_change}次不會是正確的"

result.txt

前略.....

主持人會打開3號門，要換才可以得到車
不失一般性，假設玩家選1號門
主持人會隨機選擇2或3號門, 無論如何換了就得不到車
不失一般性，假設玩家選1號門
主持人會隨機選擇2或3號門, 無論如何換了就得不到車
不失一般性，假設玩家選1號門
主持人會打開2號門，要換才可以得到車
不失一般性，假設玩家選1號門
主持人會隨機選擇2或3號門, 無論如何換了就得不到車
不失一般性，假設玩家選1號門
主持人會隨機選擇2或3號門, 無論如何換了就得不到車
不失一般性，假設玩家選1號門
主持人會打開2號門，要換才可以得到車
不失一般性，假設玩家選1號門
主持人會打開3號門，要換才可以得到車
不失一般性，假設玩家選1號門
主持人會隨機選擇2或3號門, 無論如何換了就得不到車
不失一般性，假設玩家選1號門
主持人會打開3號門，要換才可以得到車
不失一般性，假設玩家選1號門
主持人會隨機選擇2或3號門, 無論如何換了就得不到車
不失一般性，假設玩家選1號門
主持人會隨機選擇2或3號門, 無論如何換了就得不到車
不失一般性，假設玩家選1號門
主持人會打開3號門，要換才可以得到車
在10000次中，有6709次要換是正確的，有3291次不會是正確的