sub score {
    my( $result ) = @_;
    return 1 / abs( ( TARGET - $result ) || 1 );
}