Hmmmmmm, die äußeren Schleifen einfach gegen Zufallswerte ausgetauscht und nun kommt doch 2:3 raus, wenn man wechselt.
Außerdem die 1:3, wenn man nicht wechselt und 50:50, wenn man zufällig mal wechselt und mal wieder nicht.
Delphi-Quellcode:
Randomize;
for Count := 0 to 50000 do begin
NoGoat := Random(3) + 1;
FirstDoor := Random(3) + 1;
Change := Boolean(Random(2));
if FirstDoor = NoGoat then
OpenSecond := Boolean(Random(2))
else
OpenSecond := False;
...
end;