diff options
| -rw-r--r-- | challenge-228/mark-anderson/perl/ch-2.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/challenge-228/mark-anderson/perl/ch-2.pl b/challenge-228/mark-anderson/perl/ch-2.pl index 8f20366521..f5be9a5542 100644 --- a/challenge-228/mark-anderson/perl/ch-2.pl +++ b/challenge-228/mark-anderson/perl/ch-2.pl @@ -1,6 +1,6 @@ #!/usr/bin/env perl use v5.32; -use List::Util qw/min sum/; +use List::Util qw/min/; use List::MoreUtils qw/first_index/; use Test::More; use experimental qw/signatures/; @@ -12,14 +12,14 @@ done_testing; sub empty_array(@a) { - my @r; + my $total; while(@a) { my $i = first_index { $_ == min @a } @a; @a = (@a[$i+1..$#a], @a[0..$i-1]); - push @r, $i+1; + $total += $i+1 } - sum @r + $total } |