From 4a97a62378d94e496d7727e507cf5c699d04785b Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Tue, 20 Jul 2021 11:10:27 +0200 Subject: Minor changes to task 2 --- challenge-122/luca-ferrari/raku/ch-2.p6 | 18 +++++++++++------- 1 file 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; } -- cgit