#!/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;