Merge pull request #7417 from arnesom/branch-for-challenge-199

Arne Sommer | update

3 files changed, 15 insertions, 1 deletions

diff --git a/challenge-199/arne-sommer/raku/ch-1.raku b/challenge-199/arne-sommer/raku/ch-1.raku
index 4f1e7cf383..7df80d95a7 100755
--- a/challenge-199/arne-sommer/raku/ch-1.raku
+++ b/challenge-199/arne-sommer/raku/ch-1.raku
@@ -2,4 +2,4 @@
 
 unit sub MAIN (*@list where @list.elems > 0 && all(@list) ~~ /^<[0..9]>*$/);
 
-say @list.Bag.values.map({ (" " xx $_).combinations(2).elems }).sum;
+say @list.Bag.values.map({ (^$_).sum }).sum;
diff --git a/challenge-199/arne-sommer/raku/good-pairs-map-shorter b/challenge-199/arne-sommer/raku/good-pairs-map-shorter
new file mode 100755
index 0000000000..7df80d95a7
--- /dev/null
+++ b/challenge-199/arne-sommer/raku/good-pairs-map-shorter
@@ -0,0 +1,5 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (*@list where @list.elems > 0 && all(@list) ~~ /^<[0..9]>*$/);
+
+say @list.Bag.values.map({ (^$_).sum }).sum;
diff --git a/challenge-199/arne-sommer/raku/good-pairs-test b/challenge-199/arne-sommer/raku/good-pairs-test
new file mode 100755
index 0000000000..1d86cea7da
--- /dev/null
+++ b/challenge-199/arne-sommer/raku/good-pairs-test
@@ -0,0 +1,9 @@
+#! /usr/bin/env raku
+
+for 1 .. 100 -> $i
+{
+  my $comb = (" " xx $i).combinations(2).elems;
+  my $sum  = (^$i).sum;
+
+  say "$i: $comb vs $sum { $comb == $sum ?? "OK" !! "NOT OK" }"; 
+}