diff options
| -rw-r--r-- | challenge-117/mark-anderson/raku/ch-1.raku | 8 | ||||
| -rw-r--r-- | challenge-117/mark-anderson/raku/file.txt | 14 |
2 files changed, 22 insertions, 0 deletions
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 |