diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-01-31 08:19:39 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-01-31 08:19:39 +0000 |
| commit | ebcd59a50056e1da3a3f28c98e867c2344548ac6 (patch) | |
| tree | a97ad4730db1bc962dca2d3729b693ba60349dff | |
| parent | c40bd9e9de2b679407d1890dfdf23be076f66d1b (diff) | |
| parent | 62cd185f3fd514e1f7071d66f7dbbb734e28288a (diff) | |
| download | perlweeklychallenge-club-ebcd59a50056e1da3a3f28c98e867c2344548ac6.tar.gz perlweeklychallenge-club-ebcd59a50056e1da3a3f28c98e867c2344548ac6.tar.bz2 perlweeklychallenge-club-ebcd59a50056e1da3a3f28c98e867c2344548ac6.zip | |
Merge pull request #5592 from andemark/branch-for-challenge-149
learned about repeated from other solutions
| -rw-r--r-- | challenge-149/mark-anderson/raku/ch-2.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-149/mark-anderson/raku/ch-2.raku b/challenge-149/mark-anderson/raku/ch-2.raku index 4812afcd34..40b219fca8 100644 --- a/challenge-149/mark-anderson/raku/ch-2.raku +++ b/challenge-149/mark-anderson/raku/ch-2.raku @@ -15,6 +15,6 @@ sub largest-square(\base) loop { my \b = ($d-- ** 2).base(base); - return b if b.comb.Bag.values.max == 1; + return b unless b.comb.repeated; } } |