week 344 Arne Sommer

5 files changed, 67 insertions, 0 deletions

diff --git a/challenge-344/arne-sommer/blog.txt b/challenge-344/arne-sommer/blog.txt
new file mode 100644
index 0000000000..9b4218a09b
--- /dev/null
+++ b/challenge-344/arne-sommer/blog.txt
@@ -0,0 +1 @@
+https://raku-musings.com/form-formation.html
\ No newline at end of file
diff --git a/challenge-344/arne-sommer/raku/array-form-compute b/challenge-344/arne-sommer/raku/array-form-compute
new file mode 100755
index 0000000000..9720603414
--- /dev/null
+++ b/challenge-344/arne-sommer/raku/array-form-compute
@@ -0,0 +1,8 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int :$x,
+               *@ints where @ints.elems > 0
+                  && all(@ints) ~~ /^<[0..9]>$/);
+
+say "({ (@ints.join + $x).comb.join(", ") })";
+
diff --git a/challenge-344/arne-sommer/raku/array-formation b/challenge-344/arne-sommer/raku/array-formation
new file mode 100755
index 0000000000..28e2da4101
--- /dev/null
+++ b/challenge-344/arne-sommer/raku/array-formation
@@ -0,0 +1,25 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (*@rows where @rows.elems > 0
+                  && all(@rows) ~~ /^ <[0..9,]>+ $/,
+                :t(:$target) where $target ~~ /^ <[0..9,]>+ $/,
+		:v(:$verbose));
+
+my @source = @rows>>.split(',')>>.Int;
+my @target = $target.split(',')>>.Int;
+
+for @source.permutations -> @combo
+{
+  my @flat  = @combo[*;*];
+  my $equal = @flat eqv @target;
+
+  say ": ({ @combo.map({ "[{ $_.join(",")}]" }).join(", ") }) eq ({ @target.join(",") }): { $equal }" if $verbose;
+
+  if $equal
+  {
+    say 'true';
+    exit;
+  }
+}
+
+say 'false';
diff --git a/challenge-344/arne-sommer/raku/ch-1.raku b/challenge-344/arne-sommer/raku/ch-1.raku
new file mode 100755
index 0000000000..9720603414
--- /dev/null
+++ b/challenge-344/arne-sommer/raku/ch-1.raku
@@ -0,0 +1,8 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int :$x,
+               *@ints where @ints.elems > 0
+                  && all(@ints) ~~ /^<[0..9]>$/);
+
+say "({ (@ints.join + $x).comb.join(", ") })";
+
diff --git a/challenge-344/arne-sommer/raku/ch-2.raku b/challenge-344/arne-sommer/raku/ch-2.raku
new file mode 100755
index 0000000000..28e2da4101
--- /dev/null
+++ b/challenge-344/arne-sommer/raku/ch-2.raku
@@ -0,0 +1,25 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (*@rows where @rows.elems > 0
+                  && all(@rows) ~~ /^ <[0..9,]>+ $/,
+                :t(:$target) where $target ~~ /^ <[0..9,]>+ $/,
+		:v(:$verbose));
+
+my @source = @rows>>.split(',')>>.Int;
+my @target = $target.split(',')>>.Int;
+
+for @source.permutations -> @combo
+{
+  my @flat  = @combo[*;*];
+  my $equal = @flat eqv @target;
+
+  say ": ({ @combo.map({ "[{ $_.join(",")}]" }).join(", ") }) eq ({ @target.join(",") }): { $equal }" if $verbose;
+
+  if $equal
+  {
+    say 'true';
+    exit;
+  }
+}
+
+say 'false';