diff options
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); } |