initial 152

2 files changed, 36 insertions, 0 deletions

diff --git a/challenge-152/mark-anderson/raku/ch-1.raku b/challenge-152/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..bfe8e1272e
--- /dev/null
+++ b/challenge-152/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+
+use Test;
+
+is triangle-sum([ [1], [5,3], [2,3,4], [7,1,0,2], [6,4,5,2,8] ]), 8;
+is triangle-sum([ [5], [2,3], [4,1,5], [0,1,2,3], [7,2,4,1,9] ]), 9;
+
+sub triangle-sum(@a)
+{
+    [+] @a>>.min;
+}
diff --git a/challenge-152/mark-anderson/raku/ch-2.raku b/challenge-152/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..25144dbcc2
--- /dev/null
+++ b/challenge-152/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,25 @@
+#!/usr/bin/env raku
+
+use Test;
+
+is rectangle-area((-1,0),  (2,2), (0,-1),  (4,4)), 22;
+is rectangle-area((-3,-1), (1,3), (-1,-3), (2,2)), 25;  
+is rectangle-area((1,1),   (2,2), (3,3),   (4,4)), 2;  
+
+sub rectangle-area($bl_1, $tr_1, $bl_2, $tr_2)
+{
+    my $area_1 = abs($bl_1[0] - $tr_1[0]) * abs($bl_1[1] - $tr_1[1]);
+    my $area_2 = abs($bl_2[0] - $tr_2[0]) * abs($bl_2[1] - $tr_2[1]);
+
+    my $int_bl_x = max($bl_1[0], $bl_2[0]);
+    my $int_tr_x = min($tr_1[0], $tr_2[0]);
+    my $int_bl_y = max($bl_1[1], $bl_2[1]);
+    my $int_tr_y = min($tr_1[1], $tr_2[1]);
+
+    my $int_x_dist = $int_tr_x - $int_bl_x;
+    my $int_y_dist = $int_tr_y - $int_bl_y;
+
+    my $area_int = $int_x_dist|$int_y_dist < 0 ?? 0 !! $int_x_dist*$int_y_dist;
+    
+    return $area_1 + $area_2 - $area_int;
+}