montyhall.pl

#!/usr/bin/perl
use warnings;
use strict;
my $rounds = 1000;
my $wins;
my @initialDoors = (0..100);
for(my $round = 0; $round < $rounds; $round++) {
  my @doors = @initialDoors;
  for my $door (@doors) { $door = 0; }
  my $choice = int rand @doors;
  my $correct = int rand @doors;
  $doors[$correct] = 1;
  for(my $i = 0; $i < @doors - 2; $i++) {
    my $wrong;
    do { $wrong = int rand @doors; }
    while($wrong == $choice || $wrong == $correct || $doors[$wrong] == 2);
    $doors[$wrong] = 2;
  }
  my $diff;
  do { $diff = int rand @doors; }
  while($diff == $choice|| $doors[$diff] == 2);
  $wins++ if($diff == $correct);
}
print("Won $wins out of $rounds rounds. With ".(@initialDoors + 0)." doors.\n");