#!/usr/bin/perl

my %good;
my %bad;
my %all;


while ($line = <>) {
   next if $line !~ /(.*)\t(.*)\t(.*)/;
   $result = $3;
   $response = $2;
   $delta  = $1;
   if ($result eq "Y") {
      $good{$delta}++;
   } else {
      $bad{$delta}++;
   }
   $all{$delta}++;

}


foreach $key (keys %all) {
   $value = 1.0 * $good{$key} / $all{$key};
   $value = int($value * 1000.0 + 0.5) / 1000.0;
   print "$key\t$good{$key}/$all{$key}\t$value\n";
}