#!/usr/bin/perl
sub byhash {
  return ($hash{$a} <=> $hash{$b});
}
sub value {
  return 2 if ($_[0] < 2);
  return 3 if ($_[0] < 5);
  return 4 if ($_[0] < 9);
  return 5 if ($_[0] < 14);
  return 6 if ($_[0] < 20);
  return 7 if ($_[0] < 27);
  return 8;
}
sub winner {
  @tally = ();
  for (0..34) {
    my $value = value($_[$_]);
    $tally[$value]++;
    return $value if ($tally[$value] >= $value);
  }
}
$total = 0;
@wins = ();
while (1) {
  %hash = ();
  @list = ();
  for (0..34) {
    $hash{$_} = rand 1;
    push @list, $_;
  }
  @newlist = sort byhash @list;
  $winner = winner(@newlist);
#  for (0..34) {
#    print " ", value($newlist[$_]);
#  }
#  print " winner ", $winner, "\n";
  $wins[$winner]++;
  $total ++;
  if ($total % 10000 == 0) {
    for (2..8) {
      print $_, ":",($wins[$_]/$total)," ";
    }
    print "\n";
  }
}