#!/usr/bin/perl -w

while (<>) {
    ($one, $two, $result) = /(\d+) (\d+) (\d+)/ or die;
    if (($one > $two && $result == 1)
	|| ($two > $one && $result == 0)) { $bad++ }
    else { $good++ }
    $results{$result}++;
    $total++;
}

die if $total != $good + $bad;
print "good: $good / $total\n";
print "player 1: $results{0} / $total\n";
print "player 2: $results{1} / $total\n";