From 06903ea7e4a345a61e95cfa590d7d558e1d00fc6 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 26 Aug 2024 09:23:03 +0000
Subject: remove "reverse" on task 2

---
 challenge-284/perlboy1967/perl/ch2.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-284/perlboy1967/perl/ch2.pl b/challenge-284/perlboy1967/perl/ch2.pl
index 0a28f39c23..2d7eee15df 100755
--- a/challenge-284/perlboy1967/perl/ch2.pl
+++ b/challenge-284/perlboy1967/perl/ch2.pl
@@ -32,7 +32,7 @@ sub relativeSort :prototype(\@\@) ($arL1,$arL2) {
   my @r;
   my @l = @$arL1;
   for my $l2 (@$arL2) {
-    push(@r,splice(@l,$_,1)) for (reverse sort {$a <=> $b} indexes {$_ == $l2} @l);
+    push(@r,splice(@l,$_,1)) for (sort {$b <=> $a} indexes {$_ == $l2} @l);
   }
   push(@r,sort {$a <=> $b} @l);
   [@r];
-- 
cgit