Merge pull request #3641 from PerlBoy1967/branch-for-challenge-101

Mitigate 'divide by zero' (one of the corners of the triagle is (0,0))

1 files changed, 5 insertions, 0 deletions

diff --git a/challenge-101/perlboy1967/perl/ch-2.pl b/challenge-101/perlboy1967/perl/ch-2.pl
index 5af3cf8aa7..cea46714dc 100755
--- a/challenge-101/perlboy1967/perl/ch-2.pl
+++ b/challenge-101/perlboy1967/perl/ch-2.pl
@@ -24,6 +24,7 @@ my %triangles = (
   'Example 1' => [0,1,1,0,2,2],
   'Example 2' => [1,1,-1,1,0,-3],
   'Example 3' => [0,1,2,0,-6,0],
+  'Example 4' => [-1,0,0,0,0,1],
 );
 
 foreach my $c (sort keys %triangles) {
@@ -51,6 +52,10 @@ sub calcZAngle($$$$) {
 sub originInsideTriangle (@) {
   my ($x1,$y1,$x2,$y2,$x3,$y3) = @_;
 
+  return 1 if ($x1 == 0 and $y1 == 0);
+  return 1 if ($x2 == 0 and $y2 == 0);
+  return 1 if ($x3 == 0 and $y3 == 0);
+
   # calculate angles:
   # AzB, BzC and AzC
   my %angle;