diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-05-31 20:05:10 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-05-31 20:05:10 -0600 |
| commit | 227b272a87e29413464e1e1993fb96aa8496002d (patch) | |
| tree | 61db572233b5e0e739ad0829661f9bb8772e8cec | |
| parent | 06a1b01f35363f755eae2ed2eab97a109dd7897f (diff) | |
| download | perlweeklychallenge-club-227b272a87e29413464e1e1993fb96aa8496002d.tar.gz perlweeklychallenge-club-227b272a87e29413464e1e1993fb96aa8496002d.tar.bz2 perlweeklychallenge-club-227b272a87e29413464e1e1993fb96aa8496002d.zip | |
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) -} |