diff options
| author | Mark Anderson <mark@andemark.io> | 2024-07-29 00:28:33 +0000 |
|---|---|---|
| committer | Mark Anderson <mark@andemark.io> | 2024-07-29 00:28:33 +0000 |
| commit | 51c4060f7f37bc4f431ff80b132079baaf77d2de (patch) | |
| tree | 6e5ab682ec1fa7543aaa49449760c342fc8765b2 | |
| parent | db3e5c8232e72ebd33336e0df52d8a15612993f7 (diff) | |
| download | perlweeklychallenge-club-51c4060f7f37bc4f431ff80b132079baaf77d2de.tar.gz perlweeklychallenge-club-51c4060f7f37bc4f431ff80b132079baaf77d2de.tar.bz2 perlweeklychallenge-club-51c4060f7f37bc4f431ff80b132079baaf77d2de.zip | |
Also removed useless brackets.
| -rw-r--r-- | challenge-279/mark-anderson/raku/ch-1.raku | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/challenge-279/mark-anderson/raku/ch-1.raku b/challenge-279/mark-anderson/raku/ch-1.raku index 09708331c1..9c63ecb050 100644 --- a/challenge-279/mark-anderson/raku/ch-1.raku +++ b/challenge-279/mark-anderson/raku/ch-1.raku @@ -1,14 +1,14 @@ #!/usr/bin/env raku use Test; -is sort-letters([<R E P L>], - [<3 2 1 4>]), 'PERL'; +is sort-letters(<R E P L>, + <3 2 1 4>), 'PERL'; -is sort-letters([<A U R K>], - [<2 4 1 3>]), 'RAKU'; +is sort-letters(<A U R K>, + <2 4 1 3>), 'RAKU'; -is sort-letters([<O H Y N P T>], - [<5 4 2 6 1 3>]), 'PYTHON'; +is sort-letters(<O H Y N P T>, + <5 4 2 6 1 3>), 'PYTHON'; sub sort-letters(@letters, @weights) { |