diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-06-14 16:55:05 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-06-14 16:55:05 -0600 |
| commit | 3bd6aae5a9f865596464bbbe683536a1618b89b5 (patch) | |
| tree | f792c546b2ff6ab4808b030d960d5a407181af64 | |
| parent | 07b53934fe4a96a7d15ac195fea0e7cfec452017 (diff) | |
| download | perlweeklychallenge-club-3bd6aae5a9f865596464bbbe683536a1618b89b5.tar.gz perlweeklychallenge-club-3bd6aae5a9f865596464bbbe683536a1618b89b5.tar.bz2 perlweeklychallenge-club-3bd6aae5a9f865596464bbbe683536a1618b89b5.zip | |
ch-1.raku again
| -rw-r--r-- | challenge-117/mark-anderson/raku/ch-1.raku | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/challenge-117/mark-anderson/raku/ch-1.raku b/challenge-117/mark-anderson/raku/ch-1.raku index 9b779557a4..01f14ebc9b 100644 --- a/challenge-117/mark-anderson/raku/ch-1.raku +++ b/challenge-117/mark-anderson/raku/ch-1.raku @@ -2,7 +2,6 @@ use Lingua::EN::Numbers; -my @f = 'file.txt'.IO.comb(/\d+/); -my @n = '1'..@f+1; -my $n = (@n (-) @f).keys.head; -say ($n, cardinal($n).tc).join(', Line '); +my $n = (sum 1..15) - (sum 'file.txt'.IO.comb(/\d+/)); + +say $n ~ ", Line " ~ cardinal($n).tc; |