From 24cdb9c4aeebf1bcc42d5d606de9621d331cac9c Mon Sep 17 00:00:00 2001
From: Steven <steven1170@zoho.eu>
Date: Sat, 8 Feb 2025 22:33:34 +0000
Subject: fix and update

---
 challenge-307/steven-wilson/perl/ch-1.pl | 3 +--
 challenge-307/steven-wilson/perl/ch-2.pl | 3 ++-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/challenge-307/steven-wilson/perl/ch-1.pl b/challenge-307/steven-wilson/perl/ch-1.pl
index 9c50d392db..452ffb9c67 100644
--- a/challenge-307/steven-wilson/perl/ch-1.pl
+++ b/challenge-307/steven-wilson/perl/ch-1.pl
@@ -1,12 +1,11 @@
 #!/usr/bin/env perl
 
-use strict;
 use v5.35;
 use Test2::Bundle::More;
 
 sub checkOrder {
     my @ints = @_;
-    my @sorted_ints = sort @ints;
+    my @sorted_ints = sort { $a <=> $b } @ints;
     return grep {  $ints[$_] != $sorted_ints[$_]  } 0..scalar @ints - 1;
 }
 
diff --git a/challenge-307/steven-wilson/perl/ch-2.pl b/challenge-307/steven-wilson/perl/ch-2.pl
index 6d488525e1..68a4819a5c 100644
--- a/challenge-307/steven-wilson/perl/ch-2.pl
+++ b/challenge-307/steven-wilson/perl/ch-2.pl
@@ -1,8 +1,9 @@
 #!/usr/bin/env perl
 
-use strict;
 use v5.35;
 use Test2::Bundle::More;
+use Memoize;
+memoize('sortString');
 
 sub findAnagrams {
     my @words = @_;
-- 
cgit