Select Code to Download

    sub fp_equal {
        my ($X, $Y, $POINTS) = @_;
...
    }

    fp_equal($x, $y, 3);

    sub fp_equal {
        return abs($_[0] - $_[1]) < $_[2];
    }

    fp_equal($x, $y, 0.001);