aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMohammad S Anwar <Mohammad.Anwar@yahoo.com>2021-06-01 10:46:35 +0100
committerGitHub <noreply@github.com>2021-06-01 10:46:35 +0100
commit29c0d0431b10dc1fec1038a165a02916a1053c89 (patch)
treed50afd517f0f042b30ac62c27d6badbfe8b8909c
parent6d762d7ac8fab2121f6d6dbcd5d6bb792eb564b9 (diff)
parent227b272a87e29413464e1e1993fb96aa8496002d (diff)
downloadperlweeklychallenge-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.raku15
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)
-}