#!/usr/bin/perl

$| = 1;

srand(time ^ $$);

sub zufall {
    return int(rand(6) + 1);
}

open LOG, ">mylog.txt" or die "kann kein logfile schreiben";

$n     = 10000000;   # Zahl der Testläufe
$max   = 50;     # Zu erreichende Punkte

foreach $i (1 .. $n) {

    $turns = 0;
    $sum   = 0;
    while ($sum < $max) {
	$turns++;
	$wurf = zufall();
	if ($wurf == 6) {
	    $sum = 0;
	    next;
	}
	$sum += $wurf;
    }
    $num[$turns]++;
    $sumsum += $turns;
    printf LOG "%10.4f\n", $sumsum / $i unless ($i % 100);
}
close LOG;

print "\n\nDurchschnittliche Züge bis $max: ", $sumsum / $n, "\n\n";

exit 0;

foreach $i (1 .. 1000) {
    printf "%4d Züge: ", $i;
    print "#" x $num[$i] . "\n";
}