Решения одной известной задачки

[ocehb]

# perl -le 'for(1..shift){$r[int(rand 3)==int(rand 3)]++}printf"%.03f\n",$r[0]/$r[1]' \
  10000000
2.001

Comments

[jerom.livejournal.com]

Ты какую-то не ту задачку решаешь.

[ocehb]

парадокс монти холла в формулировке честного ведущего.

[jerom.livejournal.com]

Ты решил задачу: "во сколько раз выше вероятность не выиграть при абсолютно случайном выборе".

А надо: вывести вероятность выиграть если я поменял решение и если настоял на своём.

[ocehb]

смотри: сначала выбираю я, затем монти. если машина у меня, и я не меняю выбора -- я выиграл, иначе проиграл.
если у меня коза, и я не меняю выбора -- я проиграл, иначе выиграл, т.к. честный монти открыл у себя дверь с козой, за второй -- машина.

[jerom.livejournal.com]

Ага, это легко считается аналитически. А чтоб доказать неверующему программисту, надо выписать более явно все действия.

Мне больше нравится вариант убеждения такой: представь у нас 100 дверей. Ты указываешь на одну, после чего ведущий открывает 98 пустых дверей. Теперь ты можешь поменять выбор.

[ocehb]

ну я для себя укороченный формат записал, раскрыть его не проблема.
со 100 дврерями я вчера как раз прочитал у scinquisitor.