#!/usr/local/bin/perl -W

@a = qw ( 1 2 3 4 5 6 );
@b = qw ( 3 3 3 4 4 4 );
@c = qw ( 1 1 1 6 6 6 );
@d = qw ( 2 3 3 4 4 5 );
@e = qw ( 1 3 3 4 4 6 );
@f = qw ( 1 1 2 5 6 6 );

$ok=0;
while (1) {
    for $i (a, b, c, d, e, f){
	$sum{$i} += @{$i}[int rand 6];
    }
    if (++$run>2) { 
	for $i (a, b, c, d, e, f){
	    if ($sum{$i}>=21){
		$winner{$i}++;
		$ok=1;
	    }
	}
    }
    if ($ok==1) {
	%sum = ();
	$ok= $run = 0;
	result() if ++$count % 100_000 ==0;
    }
}

sub result{
    print "Iter $count\n";
    for $i (sort keys %winner){
	print "$i -> $winner{$i} ", $winner{$i}/$count, "\n"; 
    }
    print "-----\n";
    sleep 1;
}



__END__
Carrera de dados

   From: =?ISO-8859-1?Q?Antonio_Gonz=E1lez?= <gonfer00@gmail.com>
   Reply to: =?ISO-8859-1?Q?Antonio_Gonz=E1lez?=
   Date: Tue, 09 Jul 2013 22:02:20 +0200
   Newsgroups:
          es.ciencia.matematicas
   Followup to: newsgroup
Alicia, Benito, Carlota, Damián, Elena y Federico deciden jugar con
dados. Cada uno tiene un dado blanco, cuyas caras pueden numerar a su
gusto, con la siguiente restricción

-los números deben ser enteros entre 1 y 6 (ambos inclusive)
-caras opuestas deben sumar 7.

Alicia escoge numerarlos de la forma tradicional: 1-2-3-4-5-6
Benito opta por centrarse 3-3-3-4-4-4
Carlota elige alejarse: 1-1-1-6-6-6
Damián busca una estrategia intermedia: 2-3-3-4-4-5
Elena se centra pero con algo de riesgo: 1-3-3-4-4-6
Federico es más arriesgado: 1-1-2-5-6-6

El juego es sencillo. Cada uno va tirando su dado por orden y sumando
sus puntos. Gana el primero que, al final de una ronda, consigue llegar
o superar 21 (puede haber empates).

¿Cuál tiene más probabilidades de ganar? ¿O tienen todos la misma?




--
  Antonio

-----
  Iter 70000000
  a -> 24235850 0.346226428571428571
  b -> 16578412 0.236834457142857143
  c -> 26663229 0.380903271428571429
  d -> 18591124 0.265587485714285714
  e -> 22654379 0.323633985714285714
  f -> 26517973 0.378828185714285714
-----