From 948a701efdfdbedf181a6825825cc60cac8bb6c1 Mon Sep 17 00:00:00 2001
From: Dave Cross <d.cross@fairfx.com>
Date: Mon, 14 Oct 2019 09:46:05 +0100
Subject: Only sort once

---
 challenge-030/dave-cross/perl5/ch-2.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/challenge-030/dave-cross/perl5/ch-2.pl b/challenge-030/dave-cross/perl5/ch-2.pl
index bc1e250f83..fce3b840de 100644
--- a/challenge-030/dave-cross/perl5/ch-2.pl
+++ b/challenge-030/dave-cross/perl5/ch-2.pl
@@ -21,9 +21,11 @@ for my $x (1 .. $max) {
 sub valid {
   state $seen;
 
-  return if $seen->{join ',', sort { $a <=> $b} @_};
+  @_ = sort { $a <=> $b } @_;
+
+  return if $seen->{join ',', @_};
   return unless sum(@_) == 12;
   return unless grep { ! ($_ % 2) } @_;
-  $seen->{join ',', sort { $a <=> $b} @_} = 1;
+  $seen->{join ',', sort @_} = 1;
   return 1;
 }
-- 
cgit