using Random　# 乱数を扱うためのモジュールをインポート
n = 100000  # 試行回数
count = 0  # 2回目に取り出された玉が白玉となる回数
Random.seed!(1)  # 乱数のシード値を固定
for i in 1:n
    # 白玉5個，赤玉2個が入った箱を準備
    box = vcat(fill("White", 5), fill("Red", 2))
    first_pick = rand(1:7)  # 箱から玉を1個取り出す
    # 1回目に取り出した玉と同じ色の玉を6個追加
    box = vcat(box, fill(box[first_pick], 5))
    second_pick = rand(1:12)  # 再び箱から玉を1個取り出す
    if box[second_pick] == "White"  # 2回目に取り出された玉が白玉の場合
        count += 1
    end
end
# 確率を表示
println(count/n)  # モンテカルロ法
println(5/7)  # 参考：理論値