diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-06-01 10:46:35 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-06-01 10:46:35 +0100 |
| commit | 29c0d0431b10dc1fec1038a165a02916a1053c89 (patch) | |
| tree | d50afd517f0f042b30ac62c27d6badbfe8b8909c | |
| parent | 6d762d7ac8fab2121f6d6dbcd5d6bb792eb564b9 (diff) | |
| parent | 227b272a87e29413464e1e1993fb96aa8496002d (diff) | |
| download | perlweeklychallenge-club-29c0d0431b10dc1fec1038a165a02916a1053c89.tar.gz perlweeklychallenge-club-29c0d0431b10dc1fec1038a165a02916a1053c89.tar.bz2 perlweeklychallenge-club-29c0d0431b10dc1fec1038a165a02916a1053c89.zip | |
Merge pull request #4184 from andemark/branch-for-challenge-115
never mind on ch-1.raku :(
| -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) -} |
