From 5e43c4f39c15b90ee1fd43b314d12472bc066587 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Wed, 2 Aug 2023 10:29:43 +0000
Subject: Challenge 228 Solutions (Perl)

---
 challenge-228/mark-anderson/perl/ch-2.pl | 8 ++++----
 1 file 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
 }
-- 
cgit