diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-06-29 13:46:58 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-06-29 13:46:58 +0100 |
| commit | 7a9f4699f4def0e55644887719dc40ef8b0a8387 (patch) | |
| tree | 67919c37c77209d2d44d424c15ab5208439b5682 | |
| parent | 2458b8e2af5e1862ad614079a62286821ae4c664 (diff) | |
| parent | b00109b0a5f60fe19e4d3d2c2a978dd0a200969e (diff) | |
| download | perlweeklychallenge-club-7a9f4699f4def0e55644887719dc40ef8b0a8387.tar.gz perlweeklychallenge-club-7a9f4699f4def0e55644887719dc40ef8b0a8387.tar.bz2 perlweeklychallenge-club-7a9f4699f4def0e55644887719dc40ef8b0a8387.zip | |
Merge pull request #1886 from fluca1978/pwc67
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; } |