#!/usr/bin/python
from random import randint
 
VACIA  = 0
CABRA  = 2
PREMIO = 1
 
def colocarPremio():
  puertas = []					# establecemos las puertas
  for i in range(numero):
     puertas.append(VACIA)
 
  puertas[ randint(0,numero-1) ] = PREMIO	# colocamos premio en una
  return puertas
 
def seleccionJugador():
  return randint(0,numero-1)		# el jugador escoge una puerta
 
def mostrarPuerta(jugador, puertas):
  presentador = 0				# el presentador entra y saluda a todos
  puertas_abiertas = 0
  for i in range(numero):
    if i != jugador and puertas[i] != PREMIO:	# el presentador escoge una puerta que no sea la del jugador y no tenga premio
      puertas[i] = CABRA			# y muestra la cabra
      puertas_abiertas += 1
 
      if puertas_abiertas == numero-2:		# dejamos cerradas solo dos puertas
        break
  return presentador
 
def cambiarPuerta(puertas,presentador, jugador):
  for i in range(numero):
    if i != jugador and puertas[i] != CABRA:	# el jugador escoge la otra puerta cerrada
      jugador = i					# y se queda con esa
      break						# porque no tiene que seguir buscando
  return jugador
 
def juego(cambiar):
  puertas = colocarPremio()					# ponemos las puertas y el premio
  jugador = seleccionJugador()					# el jugador escoge
  presentador = mostrarPuerta(jugador, puertas)			# el presentador muestra
  if cambiar: jugador = cambiarPuerta(puertas, presentador, jugador)	# debo cambiar o no
  return puertas[jugador]					# tendra premio o no
 
numero  = 100	# numero de puertas
jugadas = 100	# cuantas veces te lo tengo que repetir para convencerte?
cambio  = True	# cambiar o no cambiar, he alli el dilema
 
contador = 0	# contador victorias
for i in range(jugadas): contador += (juego(cambio) == PREMIO) # el momento de la verdad... juguemos
 
if not cambio: cambio = 'no '	# formateo cadena bonita
else:  cambio = ''		# y por si...
 
print 'en {} jugadas hubo {} victorias si el jugador {}cambiaba de puerta'.format(jugadas,contador,cambio) #resultado 
 

#!/usr/bin/perl
#
# Monty Hall
#
# https://es.wikipedia.org/wiki/Problema_de_Monty_Hall
#
use Modern::Perl 2014;
use utf8::all;
 
## Constantes
use constant {
    CERRADA => 0,
    CABRA   => 1,
    COCHE   => 2,
    False => 0,
    True  => 1,
};
my $número_de_puertas = 3;
my $número_de_jugadas = 100;
my $hace_el_cambio    = True;
 
## Variables
my @puertas;
my $puerta_elegida;
my $victorias = 0;
 
## Proceso
for (1 .. $número_de_jugadas) {
    $victorias++ if juego() == COCHE;
}
 
say "En $número_de_jugadas jugadas con $número_de_puertas puertas "
  . "hubo $victorias victorias si el jugador "
  . ($hace_el_cambio ? 'sí':'no')
  . " cambiaba de puerta"
  ;
 
## subrutinas
sub juego {
 
    inicializar_puertas();
    colocar_premio();
    jugador_selecciona_puerta();
    mostrar_puertas_con_cabras();
 
    if ($hace_el_cambio) {
        jugador_cambia_de_puerta();
    }
 
    return $puertas[$puerta_elegida];
}
 
sub inicializar_puertas {
    @puertas = (CERRADA) x $número_de_puertas;
}
 
sub colocar_premio {
    $puertas[ rand @puertas ] = COCHE;
}
 
sub jugador_selecciona_puerta {
    $puerta_elegida = int rand @puertas;
}
 
sub mostrar_puertas_con_cabras {
 
    for my $i (1 .. $número_de_puertas - 2) {	# abrir todas menos la del coche y la elegida
 
        my $j = $i-1;				# los índices en los array empiezan en 0
 
        $j++ until $puertas[$j] == CERRADA  and  $j != $puerta_elegida;
 
        $puertas[$j] = CABRA;			# ¡Bééééé-ééé!
    }
}
 
sub jugador_cambia_de_puerta {
 
    # Buscar la siguiente puerta que esté cerrada
    for my $i (0 .. $#puertas) {
 
        if ($puerta_elegida != $i  and  $puertas[$i] != CABRA) {
            $puerta_elegida  = $i;		# será la nueva elegida
            last;
        }
    }
}