diff options
| author | Adam Russell <ac.russell@live.com> | 2022-12-17 14:23:22 -0500 |
|---|---|---|
| committer | Adam Russell <ac.russell@live.com> | 2022-12-17 14:23:22 -0500 |
| commit | af3f70f9977b22f2e29cd2ea8da1e43c3904bbb7 (patch) | |
| tree | eeff9c9b68c575dda28de7700030e0c5169e299b /challenge-195 | |
| parent | 9e83bf13b685c12f89872f75796da94210c0dbc2 (diff) | |
| download | perlweeklychallenge-club-af3f70f9977b22f2e29cd2ea8da1e43c3904bbb7.tar.gz perlweeklychallenge-club-af3f70f9977b22f2e29cd2ea8da1e43c3904bbb7.tar.bz2 perlweeklychallenge-club-af3f70f9977b22f2e29cd2ea8da1e43c3904bbb7.zip | |
updated Perl solutions
Diffstat (limited to 'challenge-195')
| -rw-r--r-- | challenge-195/adam-russell/perl/ch-1.pl | 2 | ||||
| -rw-r--r-- | challenge-195/adam-russell/perl/ch-2.pl | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/challenge-195/adam-russell/perl/ch-1.pl b/challenge-195/adam-russell/perl/ch-1.pl index 5f1502dbb0..96baab9d9d 100644 --- a/challenge-195/adam-russell/perl/ch-1.pl +++ b/challenge-195/adam-russell/perl/ch-1.pl @@ -1,4 +1,4 @@ -use v5.34; +use v5.36; ## # You are given a positive integer, $n > 0. # Write a script to print the count of all special diff --git a/challenge-195/adam-russell/perl/ch-2.pl b/challenge-195/adam-russell/perl/ch-2.pl index 143a0578aa..3a543e2efe 100644 --- a/challenge-195/adam-russell/perl/ch-2.pl +++ b/challenge-195/adam-russell/perl/ch-2.pl @@ -1,4 +1,4 @@ -use v5.34; +use v5.36; ## # You are given a list of numbers, @list. # Write a script to find most frequent even @@ -20,9 +20,9 @@ sub most_frequent_even{ MAIN:{ my @list; @list = (1, 1, 2, 6, 2); - say frequency(@list); + say most_frequent_even(@list); @list = (1, 3, 5, 7); - say frequency(@list); + say most_frequent_even(@list); @list = (6, 4, 4, 6, 1); - say frequency(@list); + say most_frequent_even(@list); } |