diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2021-10-11 11:59:01 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2021-10-11 11:59:01 +0200 |
| commit | ed57faca04a582f079ae4baed5b2cf0ac9682a4b (patch) | |
| tree | 41c056a79aca1b33d57791952d9791bd89eca865 | |
| parent | 9aada7bcc00f999ced23ebc04397fa51a1709234 (diff) | |
| download | perlweeklychallenge-club-ed57faca04a582f079ae4baed5b2cf0ac9682a4b.tar.gz perlweeklychallenge-club-ed57faca04a582f079ae4baed5b2cf0ac9682a4b.tar.bz2 perlweeklychallenge-club-ed57faca04a582f079ae4baed5b2cf0ac9682a4b.zip | |
Allow all pandigit numbers.
| -rw-r--r-- | challenge-133/luca-ferrari/raku/ch-1.p6 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-133/luca-ferrari/raku/ch-1.p6 b/challenge-133/luca-ferrari/raku/ch-1.p6 index 87d0da2be5..ef7c25b62c 100644 --- a/challenge-133/luca-ferrari/raku/ch-1.p6 +++ b/challenge-133/luca-ferrari/raku/ch-1.p6 @@ -11,7 +11,7 @@ sub MAIN( Int $limit where { $limit > 0 } = 5 ) { next if $start ~~ / ^0+ /; my $found = 0; $found += $current.comb.grep( $_ ).so ?? 1 !! 0 for @digits; - take $current if $found == @digits.elems; + take $current if $found >= @digits.elems; } } |