montyhall

// Das Ziegenproblem, Drei-Türen-Problem, Monty-Hall-Problem oder Monty-Hall-Dilemma
//
// Zwei Kandidaten, Alfred und Berta, spielen mit Monty Hall in einer Fernsehshow um
// einen Hauptgewinn. Es gibt 3 Tore, hinter einem der Tore ist der Gerwinn, die beiden
// anderen enthalten eine Niete (den Zonk).
//
// Ablauf des Spieles: der Kandidat wählt ein Tor, daraufhin öffnet Monty eines der beiden
// übrigen Tore, das eine Niete ist.
// Alfred bleibt bei seinem Tor, Berta wechselt immer auf das andere Tor, das Monty nicht
// geöffnet hat.
//
// Frage: hat Berta dadurch eine höhere Chance auf den Gewinn?

Random rnd = new Random();

int alfred = 0;
int berta = 0;
int runden = 30000;

// gibt eine zufallszahl >= 0 und < max
def zufallstor()
{
    def r = rnd.nextInt() % 3; // % ist division mit rest (modulo)

    while (r < 0) // rnd.nextInt kann Zahlen < 0 zurückgeben
    {
        r = rnd.nextInt() % 3;
    }
    return r;
}

for (int i = 0; i < runden; i++)
{
    // Vorbereitung: wir verstecken den Gewinn hinter einem Tor
    def gewinn = zufallstor();

    // die Kandidaten tippen auf ein Tor
    def tip = zufallstor();

    // der Showmaster öffnet eines der Tore, das der Kandidat nicht
    // gewählt hat und das nicht den Gewinn beinhaltet
    def zonk = 0;
    while(tip == zonk || gewinn == zonk)
    {
        zonk = zonk + 1;
    }

    // Alfred bleibt bei seinem Tor
    def alfredGewinnt = tip == gewinn;

    // Berta wechselt zu dem anderen Tor
    tip = (tip + 1) % 3; // wechsel zum nächsten tor (0 -> 1, 1 -> 2, 2 -> 0)
    if(tip == zonk)
    {   // wenn das nächste tor die niete ist...
        tip = (tip + 1) % 3; // ...das übernächste nehmen
    }

    def bertaGewinnt = tip == gewinn;

    if (alfredGewinnt) {
        alfred = alfred + 1;
    }
    if (bertaGewinnt) {
        berta = berta + 1;
    }
}

println("Gewinne - Alfred: $alfred (${(int)(alfred / runden * 100)}%) Berta: $berta (${(int)(berta / runden * 100)}%)");