#!perl

use strict;
my $h = 0;
my $nruns = shift;

for my $c (1 .. $nruns) {
    $h += dorun ();
}

print "Did $nruns trials, probability: " . ($h / $nruns) . "\n";

exit;

sub dorun {
    
    my $n = 10;
    
    my @picked = ();
    my @set = (0 .. 35);
    
    for (1..$n) {
	my $i = int (rand (@set));
	push (@picked, $set[$i]);
	splice (@set, $i, 1);
    }
    
    @picked = sort ({$a <=> $b} @picked);
    
    my $cons = 0;
    for my $j (2..$n) {
	if ((($picked[$j - 2] + 2) == ($picked[$j - 1] + 1))
	and (($picked[$j - 1] + 1) == ($picked[$j]))) {
	    $cons = 1;
	}
    }
    
    return $cons;
}