Select Code to Download

sub chk_triangle_inequality {
    # Get the points
...
        print "ERROR: Triangle inequality fails for points ($A, $B, $C
+) ($BC > $AB+$AC)\n";
    }
}

print <<EOHDR;
#####
...
        }
    }
}

#####
# Exhaustive triangle inequality check
...
ERROR: Triangle inequality fails for points (6, 13, 16) (150 > 29+96)
ERROR: Triangle inequality fails for points (6, 14, 16) (207 > 29+153)
ERROR: Triangle inequality fails for points (9, 13, 14) (336 > 240+57)