Merge pull request #11970 from arnesom/branch-for-challenge-319

Arne Sommer

5 files changed, 57 insertions, 0 deletions

diff --git a/challenge-319/arne-sommer/blog.txt b/challenge-319/arne-sommer/blog.txt
new file mode 100644
index 0000000000..1d7d8c84a2
--- /dev/null
+++ b/challenge-319/arne-sommer/blog.txt
@@ -0,0 +1 @@
+https://raku-musings.com/common-count.html
diff --git a/challenge-319/arne-sommer/raku/ch-1.raku b/challenge-319/arne-sommer/raku/ch-1.raku
new file mode 100755
index 0000000000..cc63a97d72
--- /dev/null
+++ b/challenge-319/arne-sommer/raku/ch-1.raku
@@ -0,0 +1,12 @@
+#! /usr/bin/env raku
+
+subset VOWEL where * ~~  /<[aeiouyAEIOUY]>/;
+
+unit sub MAIN (*@list where @list.elems > 1 && all(@list) ~~ /^<[a..z A..Z]>+$/,
+               :v(:$verbose));
+
+my @matches = @list.grep({ .substr(0,1) ~~ VOWEL || .substr(.chars -1,1) ~~ VOWEL});
+
+say ": Matching words: @matches[]" if $verbose;
+
+say @matches.elems ?? @matches.elems !! -1;
diff --git a/challenge-319/arne-sommer/raku/ch-2.raku b/challenge-319/arne-sommer/raku/ch-2.raku
new file mode 100755
index 0000000000..35de7d0f40
--- /dev/null
+++ b/challenge-319/arne-sommer/raku/ch-2.raku
@@ -0,0 +1,16 @@
+#! /usr/bin/env raku
+
+unit sub MAIN ($array_1, $array_2,
+               :v(:$verbose));
+
+my @array_1 = $array_1.words;
+my @array_2 = $array_2.words;
+
+die "Array1: Non-negative integers only" unless all(@array_1) ~~ /^<[0..9]>+$/;
+die "Array2: Non-negative integers only" unless all(@array_2) ~~ /^<[0..9]>+$/;
+
+my @common = @array_1 (&) @array_2;
+
+say ": Common: { @common>>.key.sort.join(",")}" if $verbose;
+
+say @common ?? @common>>.key.sort.first !! -1;
\ No newline at end of file
diff --git a/challenge-319/arne-sommer/raku/minimum-common b/challenge-319/arne-sommer/raku/minimum-common
new file mode 100755
index 0000000000..35de7d0f40
--- /dev/null
+++ b/challenge-319/arne-sommer/raku/minimum-common
@@ -0,0 +1,16 @@
+#! /usr/bin/env raku
+
+unit sub MAIN ($array_1, $array_2,
+               :v(:$verbose));
+
+my @array_1 = $array_1.words;
+my @array_2 = $array_2.words;
+
+die "Array1: Non-negative integers only" unless all(@array_1) ~~ /^<[0..9]>+$/;
+die "Array2: Non-negative integers only" unless all(@array_2) ~~ /^<[0..9]>+$/;
+
+my @common = @array_1 (&) @array_2;
+
+say ": Common: { @common>>.key.sort.join(",")}" if $verbose;
+
+say @common ?? @common>>.key.sort.first !! -1;
\ No newline at end of file
diff --git a/challenge-319/arne-sommer/raku/word-count b/challenge-319/arne-sommer/raku/word-count
new file mode 100755
index 0000000000..cc63a97d72
--- /dev/null
+++ b/challenge-319/arne-sommer/raku/word-count
@@ -0,0 +1,12 @@
+#! /usr/bin/env raku
+
+subset VOWEL where * ~~  /<[aeiouyAEIOUY]>/;
+
+unit sub MAIN (*@list where @list.elems > 1 && all(@list) ~~ /^<[a..z A..Z]>+$/,
+               :v(:$verbose));
+
+my @matches = @list.grep({ .substr(0,1) ~~ VOWEL || .substr(.chars -1,1) ~~ VOWEL});
+
+say ": Matching words: @matches[]" if $verbose;
+
+say @matches.elems ?? @matches.elems !! -1;