diff options
| -rw-r--r-- | challenge-205/matthias-muth/README.md | 5 | ||||
| -rwxr-xr-x | challenge-205/matthias-muth/ch-1-pre-5.25.1.pl | 1 | ||||
| -rwxr-xr-x | challenge-205/matthias-muth/ch-1.pl | 3 |
3 files changed, 3 insertions, 6 deletions
diff --git a/challenge-205/matthias-muth/README.md b/challenge-205/matthias-muth/README.md index 46a1b56108..758f229f45 100644 --- a/challenge-205/matthias-muth/README.md +++ b/challenge-205/matthias-muth/README.md @@ -46,16 +46,15 @@ from `List::Util` (which *is* a core module!), I stumbled over the `uniq` function in the [`List::Util` documentation](https://perldoc.perl.org/List::Util#uniq)! -`Uniq` has been in `List::Util` since its version 1.44 (see [here](https://metacpan.org/dist/Scalar-List-Utils/changes)), which is part of perl version 5.25.1 (according to `$ corelist List::Util 1.44`), which was released on 2016-05-20 (using `$ corelist -r 5.25.1`). +`Uniq` has been in `List::Util` since its version 1.44, and an improved version in 1.45 (see [here](https://metacpan.org/dist/Scalar-List-Utils/changes)), which is part of perl version 5.25.1 (according to `$ corelist List::Util 1.45`), which was released on 2016-05-20 (using `$ corelist -r 5.25.1`). So for more current versions of perl the solution can look like this: ```perl -use v5.25.1; use strict; use warnings; -use List::Util qw( uniq ); +use List::Util 1.45 qw( uniq ); sub third_highest { my @a = uniq reverse sort @_; diff --git a/challenge-205/matthias-muth/ch-1-pre-5.25.1.pl b/challenge-205/matthias-muth/ch-1-pre-5.25.1.pl index 8256956f23..47750f89ff 100755 --- a/challenge-205/matthias-muth/ch-1-pre-5.25.1.pl +++ b/challenge-205/matthias-muth/ch-1-pre-5.25.1.pl @@ -1,6 +1,5 @@ #!/usr/bin/env perl -use v5.10; use strict; use warnings; diff --git a/challenge-205/matthias-muth/ch-1.pl b/challenge-205/matthias-muth/ch-1.pl index 3f689d8773..cb8c9587c4 100755 --- a/challenge-205/matthias-muth/ch-1.pl +++ b/challenge-205/matthias-muth/ch-1.pl @@ -1,10 +1,9 @@ #!/usr/bin/env perl -use v5.25.1; use strict; use warnings; -use List::Util qw( uniq ); +use List::Util 1.45 qw( uniq ); sub third_highest { my @a = uniq reverse sort @_; |