diff options
| -rw-r--r-- | challenge-115/mark-anderson/raku/ch-1.raku | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/challenge-115/mark-anderson/raku/ch-1.raku b/challenge-115/mark-anderson/raku/ch-1.raku deleted file mode 100644 index ee38d30e86..0000000000 --- a/challenge-115/mark-anderson/raku/ch-1.raku +++ /dev/null @@ -1,15 +0,0 @@ -#!/usr/bin/env raku - -use Test; -plan 2; - -is string-chain(<abc dea cd>), 1; -is string-chain(<ade cbd fgh>), 0; - -sub string-chain(@words) -{ - my $heads = bag @words.map(*.substr(0, 1)); - my $tails = bag @words.map(*.substr(*-1)); - - +($heads eqv $tails) -} |