Further optimise 270/2, link to a blog post

2 files changed, 6 insertions, 9 deletions

diff --git a/challenge-270/e-choroba/blog.txt b/challenge-270/e-choroba/blog.txt
new file mode 100644
index 0000000000..9974ab20c8
--- /dev/null
+++ b/challenge-270/e-choroba/blog.txt
@@ -0,0 +1 @@
+https://blogs.perl.org/users/e_choroba/2024/06/equalise-an-array.html
diff --git a/challenge-270/e-choroba/perl/ch-2.pl b/challenge-270/e-choroba/perl/ch-2.pl
index 9396cc80ff..b3f26649d6 100755
--- a/challenge-270/e-choroba/perl/ch-2.pl
+++ b/challenge-270/e-choroba/perl/ch-2.pl
@@ -17,15 +17,11 @@ sub equalize_array($x, $y, $ints) {
         push @agenda, [$price + $x, \@e] unless $seen{"@e"}++;
 
         if (@$elements > 2 && 2 * $x > $y) {
-            for my $i (1, $#$elements) {
-                my @e = sort { $a <=> $b } $elements->[0] + 1,
-                                           $elements->[$i] + 1,
-                                           @$elements[grep $_ != 0
-                                                           && $_ != $i,
-                                                      0 .. $#$elements];
-
-                push @agenda, [$price + $y, \@e] unless $seen{"@e"}++;
-            }
+            my @e = sort { $a <=> $b } $elements->[0] + 1,
+                                       $elements->[1] + 1,
+                                       @$elements[2 .. $#$elements];
+
+            push @agenda, [$price + $y, \@e] unless $seen{"@e"}++;
         }
 
         @agenda = sort { $a->[0] <=> $b->[0] } @agenda;