diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2025-02-09 18:43:50 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-02-09 18:43:50 +0000 |
| commit | a77b5a4bff0f1a77ea4583c1abc558d4733be305 (patch) | |
| tree | 34f2f2408a50d272d1f8675a69b2bb6f46bac225 /challenge-307 | |
| parent | c0ab72d0d20ab994e85e8e1ebec3517540f3295f (diff) | |
| parent | 24cdb9c4aeebf1bcc42d5d606de9621d331cac9c (diff) | |
| download | perlweeklychallenge-club-a77b5a4bff0f1a77ea4583c1abc558d4733be305.tar.gz perlweeklychallenge-club-a77b5a4bff0f1a77ea4583c1abc558d4733be305.tar.bz2 perlweeklychallenge-club-a77b5a4bff0f1a77ea4583c1abc558d4733be305.zip | |
Merge pull request #11544 from oWnOIzRi/week307
fix and update
Diffstat (limited to 'challenge-307')
| -rw-r--r-- | challenge-307/steven-wilson/perl/ch-1.pl | 3 | ||||
| -rw-r--r-- | 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 = @_; |