diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2020-06-29 14:30:01 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2020-06-29 14:30:01 +0200 |
| commit | b00109b0a5f60fe19e4d3d2c2a978dd0a200969e (patch) | |
| tree | e569d702ad451883002d7108d717f158868616fd | |
| parent | 9c185dffa7f9568cad642076729b93d3e1011168 (diff) | |
| download | perlweeklychallenge-club-b00109b0a5f60fe19e4d3d2c2a978dd0a200969e.tar.gz perlweeklychallenge-club-b00109b0a5f60fe19e4d3d2c2a978dd0a200969e.tar.bz2 perlweeklychallenge-club-b00109b0a5f60fe19e4d3d2c2a978dd0a200969e.zip | |
Still an enhanced task 1.
| -rw-r--r-- | challenge-067/luca-ferrari/raku/ch-1.p6 | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/challenge-067/luca-ferrari/raku/ch-1.p6 b/challenge-067/luca-ferrari/raku/ch-1.p6 index ed10fbdcee..f53e31e497 100644 --- a/challenge-067/luca-ferrari/raku/ch-1.p6 +++ b/challenge-067/luca-ferrari/raku/ch-1.p6 @@ -17,9 +17,10 @@ sub MAIN( Int :$m where { 10 > $m > 2 } = 5, my @digits = $_.comb; next if @digits.elems != $n; next if @digits.grep( * > $m ); - my $ok = True; - $ok = False if ( @digits[ $_ ] >= @digits[ $_ + 1 ] ) for 0 ..^ @digits.elems - 1; - @combinations.push: @digits if $ok; + next if @digits.sort !~~ @digits; + next if @digits.unique !~~ @digits; + + @combinations.push: @digits; } |