Merge pull request #12211 from arnesom/branch-for-challenge-326

Arne Sommer

5 files changed, 49 insertions, 0 deletions

diff --git a/challenge-326/arne-sommer/blog.txt b/challenge-326/arne-sommer/blog.txt
new file mode 100644
index 0000000000..50373c2a01
--- /dev/null
+++ b/challenge-326/arne-sommer/blog.txt
@@ -0,0 +1 @@
+https://raku-musings.com/decompressed-day.html
diff --git a/challenge-326/arne-sommer/raku/ch-1.raku b/challenge-326/arne-sommer/raku/ch-1.raku
new file mode 100755
index 0000000000..1baafefff4
--- /dev/null
+++ b/challenge-326/arne-sommer/raku/ch-1.raku
@@ -0,0 +1,5 @@
+#! /usr/bin/env raku
+
+unit sub MAIN ($date); # where Date.new($date) ~~ Date);
+
+say Date.new($date).day-of-year;
diff --git a/challenge-326/arne-sommer/raku/ch-2.raku b/challenge-326/arne-sommer/raku/ch-2.raku
new file mode 100755
index 0000000000..1eb73ece01
--- /dev/null
+++ b/challenge-326/arne-sommer/raku/ch-2.raku
@@ -0,0 +1,19 @@
+#! /usr/bin/env raku
+
+subset PosInt of Int where * >= 0;
+
+unit sub MAIN (*@ints where @ints.elems %% 2 && all(@ints) ~~ PosInt,
+               :v(:$verbose));
+
+my @output;
+
+for @ints -> $i, $j
+{
+  my @add = $j.Int xx $i;
+
+  say ": i:$i, j:$j -> @add[]" if $verbose;
+
+  @output.append: @add;
+}
+
+say "({ @output.join(", ") })";
diff --git a/challenge-326/arne-sommer/raku/day-of-year b/challenge-326/arne-sommer/raku/day-of-year
new file mode 100755
index 0000000000..1baafefff4
--- /dev/null
+++ b/challenge-326/arne-sommer/raku/day-of-year
@@ -0,0 +1,5 @@
+#! /usr/bin/env raku
+
+unit sub MAIN ($date); # where Date.new($date) ~~ Date);
+
+say Date.new($date).day-of-year;
diff --git a/challenge-326/arne-sommer/raku/decompressed-list b/challenge-326/arne-sommer/raku/decompressed-list
new file mode 100755
index 0000000000..1eb73ece01
--- /dev/null
+++ b/challenge-326/arne-sommer/raku/decompressed-list
@@ -0,0 +1,19 @@
+#! /usr/bin/env raku
+
+subset PosInt of Int where * >= 0;
+
+unit sub MAIN (*@ints where @ints.elems %% 2 && all(@ints) ~~ PosInt,
+               :v(:$verbose));
+
+my @output;
+
+for @ints -> $i, $j
+{
+  my @add = $j.Int xx $i;
+
+  say ": i:$i, j:$j -> @add[]" if $verbose;
+
+  @output.append: @add;
+}
+
+say "({ @output.join(", ") })";