diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2023-05-07 23:15:18 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-05-07 23:15:18 +0100 |
| commit | d8d1554685e5f0d531979a9630c15f4cfdb4760f (patch) | |
| tree | e92987fceb4546da2c6c2040dc51a5ef0fa51be7 | |
| parent | 1505ba9e3cfb9c3f5b23e4394b1240f159e404cc (diff) | |
| parent | d8f70215306d6391617a2a028a8cf0b58a024f87 (diff) | |
| download | perlweeklychallenge-club-d8d1554685e5f0d531979a9630c15f4cfdb4760f.tar.gz perlweeklychallenge-club-d8d1554685e5f0d531979a9630c15f4cfdb4760f.tar.bz2 perlweeklychallenge-club-d8d1554685e5f0d531979a9630c15f4cfdb4760f.zip | |
Merge pull request #8029 from andemark/challenge-215-Raku
ch-2.raku fixed for endpoints
| -rw-r--r-- | challenge-215/mark-anderson/raku/ch-1.raku | 7 | ||||
| -rw-r--r-- | challenge-215/mark-anderson/raku/ch-2.raku | 3 |
2 files changed, 6 insertions, 4 deletions
diff --git a/challenge-215/mark-anderson/raku/ch-1.raku b/challenge-215/mark-anderson/raku/ch-1.raku index 00be880f73..a8f35b2041 100644 --- a/challenge-215/mark-anderson/raku/ch-1.raku +++ b/challenge-215/mark-anderson/raku/ch-1.raku @@ -1,9 +1,10 @@ #!/usr/bin/env raku use Test; -is odd-one-out(<abc xyz tsu>), 1; -is odd-one-out(<rat cab dad>), 3; -is odd-one-out(<x y z>), 0; +is odd-one-out(<abc xyz tsu>), 1; +is odd-one-out(<rat cab dad>), 3; +is odd-one-out(<x y z>), 0; +is odd-one-out(<chop gist chomp empty mu copy>), 1; sub odd-one-out(*@a) { diff --git a/challenge-215/mark-anderson/raku/ch-2.raku b/challenge-215/mark-anderson/raku/ch-2.raku index c9d8fdccb5..512c49a7da 100644 --- a/challenge-215/mark-anderson/raku/ch-2.raku +++ b/challenge-215/mark-anderson/raku/ch-2.raku @@ -6,8 +6,9 @@ nok number-placement(<1 0 0 0 1>, 2); ok number-placement(<1 0 0 0 0 0 0 0 1>, 3); ok number-placement(<1 1 0 0 1 0 0 0 1>, 1); nok number-placement(<1 1 0 0 1 0 0 0 1>, 2); +ok number-placement(<0 0 1 1 0 0 1 0 0>, 2); sub number-placement($list, $count) { - $list.join ~~ m:g/ 00 <?before 0> / >= $count + (0, |$list, 0).join ~~ m:g/ 00 <?before 0> / >= $count } |