From aba6b7ef791aa95ffe5fea741a6e49aa970fd633 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 19 May 2025 07:50:07 +0000
Subject: Task 2 - add "<=>" sorting

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

diff --git a/challenge-322/perlboy1967/perl/ch2.pl b/challenge-322/perlboy1967/perl/ch2.pl
index 5c24353d26..5e46d4cf12 100755
--- a/challenge-322/perlboy1967/perl/ch2.pl
+++ b/challenge-322/perlboy1967/perl/ch2.pl
@@ -28,7 +28,7 @@ use List::MoreUtils qw(uniq);
 
 sub rankArray (@ints) {
   my ($i,%idx) = (1);
-  $idx{$_} = $i++ for uniq sort @ints;
+  $idx{$_} = $i++ for uniq sort { $a <=> $b } @ints;
   return map { $idx{$_} } @ints;
 }
 
-- 
cgit