diff options
| author | Abigail <abigail@abigail.be> | 2020-12-14 22:22:28 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2020-12-20 01:56:57 +0100 |
| commit | 7babce68710e8b4d08d1b57747da69ef3eda4865 (patch) | |
| tree | c983592080ee02444d6ed7d0adad02a5f63a9c55 | |
| parent | f2a9f5527474056ce705c0de50fbfbb3c71f3f8b (diff) | |
| download | perlweeklychallenge-club-7babce68710e8b4d08d1b57747da69ef3eda4865.tar.gz perlweeklychallenge-club-7babce68710e8b4d08d1b57747da69ef3eda4865.tar.bz2 perlweeklychallenge-club-7babce68710e8b4d08d1b57747da69ef3eda4865.zip | |
Perl solution for week 091/part 1
| -rw-r--r-- | challenge-091/abigail/README.md | 3 | ||||
| -rw-r--r-- | challenge-091/abigail/perl/ch-1.pl | 20 |
2 files changed, 23 insertions, 0 deletions
diff --git a/challenge-091/abigail/README.md b/challenge-091/abigail/README.md index c44b2cb005..bf7a10e935 100644 --- a/challenge-091/abigail/README.md +++ b/challenge-091/abigail/README.md @@ -27,6 +27,9 @@ as we read "one 2 three 3 two 4 one 5" as we read "one 1 one 2 one 3 one 4 one 5" +## Solutions +* [Perl](perl/ch-1.pl). + # Task 2: Jump Game diff --git a/challenge-091/abigail/perl/ch-1.pl b/challenge-091/abigail/perl/ch-1.pl new file mode 100644 index 0000000000..67132e416a --- /dev/null +++ b/challenge-091/abigail/perl/ch-1.pl @@ -0,0 +1,20 @@ +#!/opt/perl/bin/perl + +use 5.032; + +use strict; +use warnings; +no warnings 'syntax'; + +use experimental 'signatures'; +use experimental 'lexical_subs'; + +# +# Just a one-liner.... +# +# Find sequences of identical numbers. Replace them with the length +# of the sequence, and the repeated number. Do this globally. Print result. +# +print s/([0-9])\g{-1}*/length ($&) . $1/egr for <>; + +__END__ |