diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2022-01-31 07:36:31 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2022-01-31 07:36:31 +0000 |
| commit | 25aad9df33e1f04450112e600c6d8e7e37ddb9c4 (patch) | |
| tree | e56c9a45bffc309466ef0117fe449538962e8492 /challenge-149 | |
| parent | b3dbe594ff98914d6e75cc8e6cc9f59afa9f7101 (diff) | |
| download | perlweeklychallenge-club-25aad9df33e1f04450112e600c6d8e7e37ddb9c4.tar.gz perlweeklychallenge-club-25aad9df33e1f04450112e600c6d8e7e37ddb9c4.tar.bz2 perlweeklychallenge-club-25aad9df33e1f04450112e600c6d8e7e37ddb9c4.zip | |
learned about repeated from other solutions
Diffstat (limited to 'challenge-149')
| -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..a2c618c25c 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; } } |