diff options
| -rw-r--r-- | challenge-209/mark-anderson/raku/ch-1.raku | 21 | ||||
| -rw-r--r-- | challenge-209/mark-anderson/raku/ch-2.raku | 49 |
2 files changed, 70 insertions, 0 deletions
diff --git a/challenge-209/mark-anderson/raku/ch-1.raku b/challenge-209/mark-anderson/raku/ch-1.raku new file mode 100644 index 0000000000..dac544bd91 --- /dev/null +++ b/challenge-209/mark-anderson/raku/ch-1.raku @@ -0,0 +1,21 @@ +#!/usr/bin/env raku +use Test; + +ok special-bit-chars(0); +ok special-bit-chars(1,0,0); +ok special-bit-chars(1,0,1,1,0); +ok special-bit-chars(0,0,0,0,0,0); +ok special-bit-chars(0,1,0,1,0,0); +ok special-bit-chars(0,1,0,1,0,0); + +nok special-bit-chars(1,1,1,0); +nok special-bit-chars(1,1,1,1,1,0); +nok special-bit-chars(1,1,0,0,1,0); +nok special-bit-chars(1,0,1,0,1,0); +nok special-bit-chars(0,0,0,0,1,0); + +sub special-bit-chars(+$a) +{ + my $r = / 0+ | [10]+ | [11]+ /; + $a.join ~~ /^ $r* 0 $/ +} diff --git a/challenge-209/mark-anderson/raku/ch-2.raku b/challenge-209/mark-anderson/raku/ch-2.raku new file mode 100644 index 0000000000..5248fc8c76 --- /dev/null +++ b/challenge-209/mark-anderson/raku/ch-2.raku @@ -0,0 +1,49 @@ +#!/usr/bin/env raku + +merge-accounts([ + ["A", "a1@a.com", "a2@a.com"], + ["B", "b1@b.com"], + ["A", "a3@a.com", "a1@a.com"] + ]); + +merge-accounts([ + ["A", "a1@a.com", "a2@a.com"], + ["B", "b1@b.com"], + ["A", "a3@a.com"], + ["B", "b2@b.com", "b1@b.com"] + ]); + +merge-accounts([ + ["C", "c2@c.com"], + ["C", "c1@c.com", "c4@c.com"], + ["A", "a1@a.com", "a2@a.com"], + ["B", "b1@b.com"], + ["A", "a3@a.com"], + ["C", "c1@c.com", "c3@c.com"], + ["B", "b2@b.com", "b1@b.com"], + ["A", "a3@a.com", "a4@a.com"], + ["B", "b3@b.com"]; + ]); + +sub merge-accounts(@accounts) +{ + my @a = @accounts.classify({ .[0] }, :as{ .[1..*] }); + + for @a.sort(*.key) + { + my $key = .key; + my @value = .value>>.Array; + + my @g = gather + { + while @value + { + my @v := @value.shift; + my $k = @value.first({ $_ (&) @v }, :k); + $k.defined ?? @value[$k].append(@v) .= unique !! take @v; + } + } + + say $key => @g>>.sort; + } +} |