diff options
| author | Paulo Custodio <pauloscustodio@gmail.com> | 2021-11-03 16:10:13 +0000 |
|---|---|---|
| committer | Paulo Custodio <pauloscustodio@gmail.com> | 2021-11-03 16:10:13 +0000 |
| commit | d12a3c58624c219f252e34b926797aa1b68a69fa (patch) | |
| tree | 507a3ff52cb4a2185864239190ba13155df1cbf8 /challenge-085 | |
| parent | dd979819d8042c04464033dcff0c2853546e34c1 (diff) | |
| download | perlweeklychallenge-club-d12a3c58624c219f252e34b926797aa1b68a69fa.tar.gz perlweeklychallenge-club-d12a3c58624c219f252e34b926797aa1b68a69fa.tar.bz2 perlweeklychallenge-club-d12a3c58624c219f252e34b926797aa1b68a69fa.zip | |
use Modern::Perl
Diffstat (limited to 'challenge-085')
| -rw-r--r-- | challenge-085/paulo-custodio/perl/ch-1.pl | 4 | ||||
| -rw-r--r-- | challenge-085/paulo-custodio/perl/ch-2.pl | 4 | ||||
| -rw-r--r-- | challenge-085/paulo-custodio/test.pl | 4 |
3 files changed, 3 insertions, 9 deletions
diff --git a/challenge-085/paulo-custodio/perl/ch-1.pl b/challenge-085/paulo-custodio/perl/ch-1.pl index 9ef7e530d4..a471b54e85 100644 --- a/challenge-085/paulo-custodio/perl/ch-1.pl +++ b/challenge-085/paulo-custodio/perl/ch-1.pl @@ -18,9 +18,7 @@ # Input: @R = (0.5, 1.1, 0.3, 0.7) # Output: 1 as 1 < 0.5 + 1.1 + 0.3 < 2 -use strict; -use warnings; -use 5.030; +use Modern::Perl; my @R = @ARGV; @R >= 3 or die "Need at least 3 values\n"; diff --git a/challenge-085/paulo-custodio/perl/ch-2.pl b/challenge-085/paulo-custodio/perl/ch-2.pl index 650cf42210..c0a16a4221 100644 --- a/challenge-085/paulo-custodio/perl/ch-2.pl +++ b/challenge-085/paulo-custodio/perl/ch-2.pl @@ -18,9 +18,7 @@ # Input: 125 # Output: 1 as 125 = 5 ** 3 -use strict; -use warnings; -use 5.030; +use Modern::Perl; # Sieve of Eratosthenes my @sieve; diff --git a/challenge-085/paulo-custodio/test.pl b/challenge-085/paulo-custodio/test.pl index b8bb5e03c7..b32170a073 100644 --- a/challenge-085/paulo-custodio/test.pl +++ b/challenge-085/paulo-custodio/test.pl @@ -1,9 +1,7 @@ #!/usr/bin/perl -use strict; -use warnings; +use Modern::Perl; use Test::More; -use 5.030; is capture("perl/ch-1.pl 1.2 0.4 0.1 2.5"), "1\n"; is capture("perl/ch-1.pl 0.2 1.5 0.9 1.1"), "0\n"; |