Minor changes to task 2

1 files changed, 11 insertions, 7 deletions

diff --git a/challenge-122/luca-ferrari/raku/ch-2.p6 b/challenge-122/luca-ferrari/raku/ch-2.p6
index e197338e33..751d98d5ff 100644
--- a/challenge-122/luca-ferrari/raku/ch-2.p6
+++ b/challenge-122/luca-ferrari/raku/ch-2.p6
@@ -6,12 +6,16 @@ sub MAIN( Int $S ) {
     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;
+        for ( $begin .. $end ) {
+            my @digits = $_.split( '', :skip-empty ).grep( * == any( @available-points ) );
+            next if ! @digits.grep: $_ for @available-points;
+            next if @digits.sum != $S;
+            my $score =  @digits.grep( * == any( @available-points ) ).join;;
+            @scores.push: $score if ( ! @scores.grep( $score ) );
+
+        }
+
+
+    @scores.join( "\n" ).say;
 }