#!/usr/local/bin/perl -w
use Getopt::Std;

sub usage { <<EOF ;
Usage: $0 [options] [statsfile]
	-h this text
EOF
}

my %opt;
getopts ('h', \%opt);
$opt{h} and die usage();

while (<>) {
  last if /^\[/;
}

my @stats;
while (<>) {
  last if /^\]/;
  chomp;
  push @stats, [split];
}

sub addrow {
  my $i = shift;
  my @rs = @_;
  my @r = @{$rs[$i]};
  my $sum = 0;
  foreach my $n (@r) {
    $sum += $n;
  }
  return $sum;
}

sub addcol {
  my $i = shift;
  my @rs = @_;
  my $sum = 0;
  for my $n (0 .. $#rs) {
    $sum += $rs[$n][$i];
  }
  return $sum;
}

sub F {
  my $p = shift;
  my $r = shift;
  return (2 * $p * $r / ($p + $r)) if $p + $r;
  return 0;
}

foreach my $n (0 .. $#stats) {
  my $c = $stats[$n][$n];
  my $o = addcol ($n, @stats);
  my $g = addrow ($n, @stats);
  my $p = 0;
  $p = $c / $o if $o;
  my $r = 0;
  $r = $c / $g if $g;
  my $f = F($p, $r);
  printf "%2d %4d %6.3f %6.3f %6.3f\n", $n, $c, $p*100, $r*100, $f*100;
}
