Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -l
($n,$N) = @ARGV;
...
    $g++ if keys %h > 9;
}
print $g/$N;
  2. or download this
    #!/usr/bin/perl -l
($n,$N) = @ARGV;
...
    $g++ if keys %h > 9;
}
print $g/$N;
  3. or download this
    #!/usr/bin/perl -l
($n,$N)=@ARGV;
...
keys%h>9&&$g++
}
print$g/$N;
  4. or download this
    145: itub
121: revd1
117: revd2
 87: revd3