From 342181744b067fd36499de15529b2f87443db79f Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Wed, 21 Apr 2021 18:16:58 +0200
Subject: Task2 done

---
 challenge-109/luca-ferrari/raku/ch-2.p6 | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 challenge-109/luca-ferrari/raku/ch-2.p6

diff --git a/challenge-109/luca-ferrari/raku/ch-2.p6 b/challenge-109/luca-ferrari/raku/ch-2.p6
new file mode 100644
index 0000000000..1213d407ca
--- /dev/null
+++ b/challenge-109/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,30 @@
+#!raku
+
+
+sub MAIN() {
+    my @nums    = <1 2 3 4 5 6 7>;
+    my @letters = <a b c d e f g>;
+
+
+    my @solutions;
+
+    for @nums.permutations -> @current {
+        my %squares;
+        %squares{ @letters[ $_ ] } = @current[ $_ ] for 0 ..^ @letters.elems;
+
+
+        my @sums;
+
+        @sums.push: [+] %squares<a b>;
+        @sums.push: [+] %squares<b c d>;
+        @sums.push: [+] %squares<d e f>;
+        @sums.push: [+] %squares<f g>;
+
+        @solutions.push: %squares if @sums[ 0 ] == all @sums;
+    }
+
+
+
+    say $_ for @solutions;
+
+}
-- 
cgit