#!/usr/bin/perl -l
($n,$N) = @ARGV;
for (1 .. $N) {
    my %h;
    $h{int rand 10}++ for 1 .. $n;
    $g++ if keys %h > 9;
}
print $g/$N;

##</code><code>##

#!/usr/bin/perl -l
($n,$N) = @ARGV;
for (1 .. $N) {
    %h = map { int rand 10, "" } 1 .. $n;
    $g++ if keys %h > 9;
}
print $g/$N;

##</code><code>##

#!/usr/bin/perl -l
($n,$N)=@ARGV;
for(1..$N){
%h=map{int rand 10,""}1..$n;
keys%h>9&&$g++
}
print$g/$N;

##</code><code>##

145: itub
121: revd1
117: revd2
 87: revd3