# Evaluates winning boards high, losing boards low, all others equally.
sub eval {
    local($board) = @_;

    $winner = gameover($board);
    if ($winner == 1) {
	return 1;
    }
    if ($winner == 2) {
	return -1;
    }

    return 0;

}