#!/usr/local/bin/perl

# Copyright (C) 1996 by John J. Chew, III <jjchew@math.utoronto.ca>
# All Rights Reserved

# <title>perfrat.pl</title>

# perfrat - calculate performance rating, NSA-style
# Usage: perfrat wins opp1 opp2 opp3...

require "$ENV{HOME}/lib/perl/ratings.pl";

$wins = shift;
$code = 'sub foo {';
for (@ARGV) { $code .= "(&outcome(\$_[0],$_))[0]+"; }
$code .= "-$wins;}";
eval $code;
print &search('foo', 0, 3000), "\n";
exit 0;