Task2 done

1 files changed, 30 insertions, 0 deletions

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;
+
+}