From 9f5a6b4518271be9a6eafc81ea341add51686490 Mon Sep 17 00:00:00 2001 From: Niels van Dijke Date: Mon, 29 Jan 2024 10:15:33 +0000 Subject: Task 2 - Don't need reverse(), just pop() --- challenge-254/perlboy1967/perl/ch2.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/challenge-254/perlboy1967/perl/ch2.pl b/challenge-254/perlboy1967/perl/ch2.pl index b0e4391327..2af8efbfb6 100755 --- a/challenge-254/perlboy1967/perl/ch2.pl +++ b/challenge-254/perlboy1967/perl/ch2.pl @@ -23,8 +23,8 @@ use common::sense; use Test2::V0; sub reverseVowels ($str) { - my @v = reverse $str =~ m/(?i)[aeiou]/g; - ucfirst lc $str =~ s/(?i)[aeiou]/shift @v/egr; + my @v = $str =~ m/(?i)[aeiou]/g; + ucfirst lc $str =~ s/(?i)[aeiou]/pop @v/egr; } -- cgit