diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2023-04-03 14:35:09 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2023-04-03 14:35:09 +0000 |
| commit | ed49e15822bccd580f4a09da9ead6d52bc5d5d2a (patch) | |
| tree | 3c4def6ac7e53b28219cb1f11954b01db2d48ab8 /challenge-211 | |
| parent | b413d247da323881e60bf1c45506ba9273194874 (diff) | |
| download | perlweeklychallenge-club-ed49e15822bccd580f4a09da9ead6d52bc5d5d2a.tar.gz perlweeklychallenge-club-ed49e15822bccd580f4a09da9ead6d52bc5d5d2a.tar.bz2 perlweeklychallenge-club-ed49e15822bccd580f4a09da9ead6d52bc5d5d2a.zip | |
Challenge 211 Solutions (Raku)
Diffstat (limited to 'challenge-211')
| -rw-r--r-- | challenge-211/mark-anderson/raku/ch-1.raku | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/challenge-211/mark-anderson/raku/ch-1.raku b/challenge-211/mark-anderson/raku/ch-1.raku index 43c6f09b02..2b86bde846 100644 --- a/challenge-211/mark-anderson/raku/ch-1.raku +++ b/challenge-211/mark-anderson/raku/ch-1.raku @@ -21,11 +21,5 @@ ok toeplitz([1,2], sub toeplitz(+@m) { - until @m.elems == 1 - { - return False unless @m[0;^@m[0].end] eqv @m[1;1..@m[1].end]; - shift @m - } - - return True + @m[^@m.end;^@m[0].end] eqv @m[1..@m.end;1..@m[1].end] } |