diff options
| -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 } |