diff options
| -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; |