Select Code to Download

#!/usr/bin/perl
use strict;
...
        return abs(($slope * ($x - $x1)) - ($y - $y1)) < 3;
    };
}

Match 45 for 0 0
Match 45 for -1 0
...
Fail 90 for -4 0
Fail 90 for 5 5
Match 90 for 2 100