diff options
| author | Charlie Root <root@a-iot1t.uch.ad.pvt> | 2021-06-14 04:30:20 -0600 |
|---|---|---|
| committer | Charlie Root <root@a-iot1t.uch.ad.pvt> | 2021-06-14 04:30:20 -0600 |
| commit | 07b53934fe4a96a7d15ac195fea0e7cfec452017 (patch) | |
| tree | 1ce181dbc1b5131169a5c3bb26ca0258e425b350 | |
| parent | 65e4d230f647e61f0f64ddc6750efc822b7ce884 (diff) | |
| download | perlweeklychallenge-club-07b53934fe4a96a7d15ac195fea0e7cfec452017.tar.gz perlweeklychallenge-club-07b53934fe4a96a7d15ac195fea0e7cfec452017.tar.bz2 perlweeklychallenge-club-07b53934fe4a96a7d15ac195fea0e7cfec452017.zip | |
ch-1.raku
| -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 |