diff options
| -rw-r--r-- | challenge-101/mark-anderson/raku/ch-1.raku | 58 | ||||
| -rw-r--r-- | challenge-101/mark-anderson/raku/ch-2.raku | 35 |
2 files changed, 93 insertions, 0 deletions
diff --git a/challenge-101/mark-anderson/raku/ch-1.raku b/challenge-101/mark-anderson/raku/ch-1.raku new file mode 100644 index 0000000000..f75cf266b0 --- /dev/null +++ b/challenge-101/mark-anderson/raku/ch-1.raku @@ -0,0 +1,58 @@ +#!/usr/bin/env raku + +use Test; +plan 6; + +is-deeply pack-a-spiral(1..4), ((4,3), (1,2)); +is-deeply pack-a-spiral(1..6), ((6,5,4), (1,2,3)); +is-deeply pack-a-spiral(1..12), ((9,8,7,6), (10,11,12,5), (1,2,3,4)); +is-deeply pack-a-spiral(1..13), ((1,2,3,4,5,6,7,8,9,10,11,12,13),); +is-deeply pack-a-spiral(1..143), +( +(35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23), +(36, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 22), +(37, 74, 103, 102, 101, 100, 99, 98, 97, 96, 95, 62, 21), +(38, 75, 104, 125, 124, 123, 122, 121, 120, 119, 94, 61, 20), +(39, 76, 105, 126, 139, 138, 137, 136, 135, 118, 93, 60, 19), +(40, 77, 106, 127, 140, 141, 142, 143, 134, 117, 92, 59, 18), +(41, 78, 107, 128, 129, 130, 131, 132, 133, 116, 91, 58, 17), +(42, 79, 108, 109, 110, 111, 112, 113, 114, 115, 90, 57, 16), +(43, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 56, 15), +(44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 14), +( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13) +); +is-deeply pack-a-spiral(1..144), +( +(34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23), +(35, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 22), +(36, 73, 102, 101, 100, 99, 98, 97, 96, 95, 62, 21), +(37, 74, 103, 124, 123, 122, 121, 120, 119, 94, 61, 20), +(38, 75, 104, 125, 138, 137, 136, 135, 118, 93, 60, 19), +(39, 76, 105, 126, 139, 144, 143, 134, 117, 92, 59, 18), +(40, 77, 106, 127, 140, 141, 142, 133, 116, 91, 58, 17), +(41, 78, 107, 128, 129, 130, 131, 132, 115, 90, 57, 16), +(42, 79, 108, 109, 110, 111, 112, 113, 114, 89, 56, 15), +(43, 80, 81, 82, 83, 84, 85, 86, 87, 88, 55, 14), +(44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 13), +( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12) +); + +sub pack-a-spiral(@list is copy) +{ + my $factor = .tail given map { +@list div $_ if @list %% $_ }, + 1..sqrt(@list); + + my @matrix = @list.keys.rotor($factor).map(*.Array); + my @keys; + + while @matrix + { + @keys.append: @matrix.pop.flat; + try @keys.push: @matrix[$_].pop for @matrix.end...0; + try @keys.append: @matrix.shift.flat.reverse; + try @keys.push: @matrix[$_].shift for ^@matrix; + } + + @list[@keys] = @list; + @list.rotor($factor); +} diff --git a/challenge-101/mark-anderson/raku/ch-2.raku b/challenge-101/mark-anderson/raku/ch-2.raku new file mode 100644 index 0000000000..177bb5f6fd --- /dev/null +++ b/challenge-101/mark-anderson/raku/ch-2.raku @@ -0,0 +1,35 @@ +#!/usr/bin/env raku + +# With help from https://www.geeksforgeeks.org/check-whether-a-given-point-lies-inside-a-triangle-or-not/ + +use Test; +plan 3; + +nok contains-origin((0, 1), ( 1, 0), ( 2, 2)); +ok contains-origin((1, 1), (-1, 1), ( 0, -3)); +ok contains-origin((0, 1), ( 2, 0), (-6, 0)); + +class point +{ + has Int $.x; + has Int $.y; +} + +sub area($a, $b, $c) +{ + abs(($a.x * ($b.y - $c.y)) + + ($b.x * ($c.y - $a.y)) + + ($c.x * ($a.y - $b.y))) / 2; +} + +sub contains-origin($A, $B, $C) +{ + my $a = point.new(x => $A[0], y => $A[1]); + my $b = point.new(x => $B[0], y => $B[1]); + my $c = point.new(x => $C[0], y => $C[1]); + my $p = point.new(:0x, :0y); + + .UInt given area($a, $b, $c) == area($a, $b, $p) + + area($b, $c, $p) + + area($a, $c, $p); +} |