Условия задачи 1в1 взяты их него, так что похуй чем оперировать, абстракцией или спичечными коробками с говном, работать оно будет в любом случае. С другой стороны, если тебе не надо это делать дохуя раз, а только 1, то разница в 16% не сильно играет.
Ъеъ, сейчас даже нашел свою написанную когда-то симуляцию на автоите. Оно пизда какое не оптимизированное и примитивное, но работает. For $i = 1 to 100000 Local $win_door = Random(1,3,1) Local $choose = Random(1,3,1) Local $open_door = Random(1,3,1) While $open_door == $choose Or $open_door == $win_door $open_door = Random(1,3,1) WEnd Local $rechoose = $choose For $j = 1 to 3 If $j $choose Then If $j $open_door Then $rechoose = $j EndIf EndIf Next If $rechoose == $win_door Then FileWriteLine("out.txt","Win") ElseIf $rechoose $win_door Then FileWriteLine("out.txt","Lose") EndIf Next
For $i = 1 to 100000
Local $win_door = Random(1,3,1)
Local $choose = Random(1,3,1)
Local $open_door = Random(1,3,1)
While $open_door == $choose Or $open_door == $win_door
$open_door = Random(1,3,1)
WEnd
Local $rechoose = $choose
For $j = 1 to 3
If $j $choose Then
If $j $open_door Then
$rechoose = $j
EndIf
EndIf
Next
If $rechoose == $win_door Then
FileWriteLine("out.txt","Win")
ElseIf $rechoose $win_door Then
FileWriteLine("out.txt","Lose")
EndIf
Next