From 07b53934fe4a96a7d15ac195fea0e7cfec452017 Mon Sep 17 00:00:00 2001 From: Charlie Root Date: Mon, 14 Jun 2021 04:30:20 -0600 Subject: ch-1.raku --- challenge-117/mark-anderson/raku/ch-1.raku | 8 ++++++++ challenge-117/mark-anderson/raku/file.txt | 14 ++++++++++++++ 2 files changed, 22 insertions(+) create mode 100644 challenge-117/mark-anderson/raku/ch-1.raku create mode 100644 challenge-117/mark-anderson/raku/file.txt diff --git a/challenge-117/mark-anderson/raku/ch-1.raku b/challenge-117/mark-anderson/raku/ch-1.raku new file mode 100644 index 0000000000..9b779557a4 --- /dev/null +++ b/challenge-117/mark-anderson/raku/ch-1.raku @@ -0,0 +1,8 @@ +#!/usr/bin/env raku + +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 '); diff --git a/challenge-117/mark-anderson/raku/file.txt b/challenge-117/mark-anderson/raku/file.txt new file mode 100644 index 0000000000..fcd517850d --- /dev/null +++ b/challenge-117/mark-anderson/raku/file.txt @@ -0,0 +1,14 @@ +11, Line Eleven +1, Line One +9, Line Nine +13, Line Thirteen +2, Line Two +6, Line Six +8, Line Eight +10, Line Ten +7, Line Seven +4, Line Four +14, Line Fourteen +3, Line Three +15, Line Fifteen +5, Line Five -- cgit