diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-06-15 16:41:05 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-06-15 16:41:05 +0100 |
| commit | 695d5faf17aae51e70dd55bc3db45ab0d99ade2c (patch) | |
| tree | d877d35593eabb9d7bcaa43d782a3b09bb4ddb00 | |
| parent | 44aa970fe9a12a1697c1cca1a8e9a9674aa56e76 (diff) | |
| parent | 3bd6aae5a9f865596464bbbe683536a1618b89b5 (diff) | |
| download | perlweeklychallenge-club-695d5faf17aae51e70dd55bc3db45ab0d99ade2c.tar.gz perlweeklychallenge-club-695d5faf17aae51e70dd55bc3db45ab0d99ade2c.tar.bz2 perlweeklychallenge-club-695d5faf17aae51e70dd55bc3db45ab0d99ade2c.zip | |
Merge pull request #4267 from andemark/branch-for-challenge-117
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; |