From af3f70f9977b22f2e29cd2ea8da1e43c3904bbb7 Mon Sep 17 00:00:00 2001 From: Adam Russell Date: Sat, 17 Dec 2022 14:23:22 -0500 Subject: updated Perl solutions --- challenge-195/adam-russell/perl/ch-1.pl | 2 +- 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); } -- cgit