From d2e730fcb0e99a21a32f973ca412331c53fde731 Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Mon, 29 Nov 2021 07:28:15 +0000
Subject: shorter

---
 challenge-140/james-smith/perl/ch-2.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/challenge-140/james-smith/perl/ch-2.pl b/challenge-140/james-smith/perl/ch-2.pl
index c37be1e0cf..74114cf551 100644
--- a/challenge-140/james-smith/perl/ch-2.pl
+++ b/challenge-140/james-smith/perl/ch-2.pl
@@ -24,8 +24,8 @@ is( get_num_exp(@{$_->[0]}), $_->[1] ) for @TESTS;
 done_testing();
 
 sub get_num {
-  my($i,$j,$k,$t) = @_;
-  (sort{$a<=>$b}map{++$t;map{$t*$_}1..$i}1..$j)[$k-1];
+  my$t;
+  (sort{$a<=>$b}map{++$t;map{$t*$_}1..$_[0]}1..$_[1])[$_[2]-1];
 }
 
 sub get_num_exp {
-- 
cgit