Task 2 done

1 files changed, 17 insertions, 0 deletions

diff --git a/challenge-122/luca-ferrari/raku/ch-2.p6 b/challenge-122/luca-ferrari/raku/ch-2.p6
new file mode 100644
index 0000000000..e197338e33
--- /dev/null
+++ b/challenge-122/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,17 @@
+#!raku
+
+sub MAIN( Int $S ) {
+    my @available-points = 1, 2, 3;
+    my $begin = ( @available-points[ 0 ] x $S ).Int;
+    my $end   = ( @available-points[ * - 1 ] x $S ).Int;
+    my @scores;
+
+    for ( $begin .. $end ) {
+        my @digits = $_.split( '', :skip-empty ).grep( * == any( @available-points ) );
+        next if ! @digits.grep: $_ for @available-points;
+        next if @digits.sum != $S;
+        @scores.push: @digits.grep( * == any( @available-points ) ).join;
+    }
+
+    @scores.unique.join( "\n" ).say;
+}