diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2021-02-09 00:09:23 -0700 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2021-02-09 00:09:23 -0700 |
| commit | d54a1c6e895251e2b45370dd448802c40288f453 (patch) | |
| tree | eb4b4bcc64aab5cc81ba3e8c830024be88c50829 | |
| parent | e09f00d1083cd0ff984721f5687e614866b5d5e7 (diff) | |
| download | perlweeklychallenge-club-d54a1c6e895251e2b45370dd448802c40288f453.tar.gz perlweeklychallenge-club-d54a1c6e895251e2b45370dd448802c40288f453.tar.bz2 perlweeklychallenge-club-d54a1c6e895251e2b45370dd448802c40288f453.zip | |
Challenge 99 Solutions (Raku)
| -rw-r--r-- | challenge-099/mark-anderson/raku/ch-2.raku | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-099/mark-anderson/raku/ch-2.raku b/challenge-099/mark-anderson/raku/ch-2.raku index 71c1285506..88bf596ded 100644 --- a/challenge-099/mark-anderson/raku/ch-2.raku +++ b/challenge-099/mark-anderson/raku/ch-2.raku @@ -2,10 +2,10 @@ use Test; plan 2; -is unique-subsequence("littleit", "lit"), 5; -is unique-subsequence("london", "lon"), 3; +is unique-subsequences("littleit", "lit"), 5; +is unique-subsequences("london", "lon"), 3; -sub unique-subsequence($S, $T) +sub unique-subsequences($S, $T) { +($S ~~ m:ex/ <{ $T.comb.join(" .* ") }> /); } |