From ff372a96c896751bacce3f2521ba5d880041ff42 Mon Sep 17 00:00:00 2001 From: Mark <53903062+andemark@users.noreply.github.com> Date: Mon, 14 Feb 2022 09:03:10 +0000 Subject: initial 152 --- challenge-152/mark-anderson/raku/ch-1.raku | 11 +++++++++++ challenge-152/mark-anderson/raku/ch-2.raku | 25 +++++++++++++++++++++++++ 2 files changed, 36 insertions(+) create mode 100644 challenge-152/mark-anderson/raku/ch-1.raku create mode 100644 challenge-152/mark-anderson/raku/ch-2.raku 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; +} -- cgit From 9cd8ddc288cd207c1c719ade20843bcb9833b1d4 Mon Sep 17 00:00:00 2001 From: Mark <53903062+andemark@users.noreply.github.com> Date: Mon, 14 Feb 2022 16:19:34 +0000 Subject: Challenge 152 Solutions (Raku) --- challenge-152/mark-anderson/raku/ch-2.raku | 32 +++++++++++++++--------------- 1 file changed, 16 insertions(+), 16 deletions(-) diff --git a/challenge-152/mark-anderson/raku/ch-2.raku b/challenge-152/mark-anderson/raku/ch-2.raku index 25144dbcc2..10e30451d0 100644 --- a/challenge-152/mark-anderson/raku/ch-2.raku +++ b/challenge-152/mark-anderson/raku/ch-2.raku @@ -2,24 +2,24 @@ 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; +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; +is rectangle-area((-1,-1), (-2,-2), (1,1), (2,2)), 2; +is rectangle-area((1,1), (2,2), (-1,-1), (-2,-2)), 2; +is rectangle-area((3,3), (4,4), (1,1), (2,2)), 2; +is rectangle-area((4,2), (7,5), (2,3), (5,7)), 19; -sub rectangle-area($bl_1, $tr_1, $bl_2, $tr_2) +sub rectangle-area(+@p) { - 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 $p = @p.map(|*); + + my $int = flat (($p[0,4], $p[1,5])>>.max, ($p[2,6], $p[3,7])>>.min); - my $int_x_dist = $int_tr_x - $int_bl_x; - my $int_y_dist = $int_tr_y - $int_bl_y; + my $int-x-dist = [-] $int[2,0]; + my $int-y-dist = [-] $int[3,1]; + + my $int-area = $int-x-dist|$int-y-dist < 0 ?? 0 !! $int-x-dist * $int-y-dist; - my $area_int = $int_x_dist|$int_y_dist < 0 ?? 0 !! $int_x_dist*$int_y_dist; - - return $area_1 + $area_2 - $area_int; + abs(([-] $p[0,2]) * ([-] $p[1,3])) + abs(([-] $p[4,6]) * ([-] $p[5,7])) - $int-area; } -- cgit From f0d3af79ed8ef93469b40045eeea72ac221b68d2 Mon Sep 17 00:00:00 2001 From: Mark <53903062+andemark@users.noreply.github.com> Date: Mon, 14 Feb 2022 16:25:54 +0000 Subject: Challenge 152 Solutions (Raku) --- challenge-152/mark-anderson/raku/ch-2.raku | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/challenge-152/mark-anderson/raku/ch-2.raku b/challenge-152/mark-anderson/raku/ch-2.raku index 10e30451d0..68d0d5f0b7 100644 --- a/challenge-152/mark-anderson/raku/ch-2.raku +++ b/challenge-152/mark-anderson/raku/ch-2.raku @@ -16,10 +16,10 @@ sub rectangle-area(+@p) my $int = flat (($p[0,4], $p[1,5])>>.max, ($p[2,6], $p[3,7])>>.min); - my $int-x-dist = [-] $int[2,0]; - my $int-y-dist = [-] $int[3,1]; + my $int-x = [-] $int[2,0]; + my $int-y = [-] $int[3,1]; - my $int-area = $int-x-dist|$int-y-dist < 0 ?? 0 !! $int-x-dist * $int-y-dist; + my $int-area = $int-x|$int-y < 0 ?? 0 !! $int-x * $int-y; abs(([-] $p[0,2]) * ([-] $p[1,3])) + abs(([-] $p[4,6]) * ([-] $p[5,7])) - $int-area; } -- cgit From 712c3c3b0d3cc9c06e24047637dc0c97dbee57d7 Mon Sep 17 00:00:00 2001 From: Mark <53903062+andemark@users.noreply.github.com> Date: Mon, 14 Feb 2022 16:34:05 +0000 Subject: Challenge 152 Solutions (Raku) --- challenge-152/mark-anderson/raku/ch-2.raku | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/challenge-152/mark-anderson/raku/ch-2.raku b/challenge-152/mark-anderson/raku/ch-2.raku index 68d0d5f0b7..c325a98db0 100644 --- a/challenge-152/mark-anderson/raku/ch-2.raku +++ b/challenge-152/mark-anderson/raku/ch-2.raku @@ -14,12 +14,12 @@ sub rectangle-area(+@p) { my $p = @p.map(|*); - my $int = flat (($p[0,4], $p[1,5])>>.max, ($p[2,6], $p[3,7])>>.min); + my $int = flat ($p[0,4], $p[1,5])>>.max, ($p[2,6], $p[3,7])>>.min; my $int-x = [-] $int[2,0]; my $int-y = [-] $int[3,1]; my $int-area = $int-x|$int-y < 0 ?? 0 !! $int-x * $int-y; - abs(([-] $p[0,2]) * ([-] $p[1,3])) + abs(([-] $p[4,6]) * ([-] $p[5,7])) - $int-area; + ([-] $p[0,2]) * ([-] $p[1,3]) + ([-] $p[4,6]) * ([-] $p[5,7]) - $int-area; } -- cgit