From 409aa453f4ced3d15e94ded54ffd9b6a2b2a598d Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Tue, 20 Apr 2021 01:09:29 +0100
Subject: tidied up loop

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

diff --git a/challenge-109/james-smith/perl/ch-1.pl b/challenge-109/james-smith/perl/ch-1.pl
index df12634c3b..2c38afe0c4 100644
--- a/challenge-109/james-smith/perl/ch-1.pl
+++ b/challenge-109/james-smith/perl/ch-1.pl
@@ -15,12 +15,8 @@ done_testing();
 
 sub my_function {
   sub chowla {
-    my ($n,$t) = ($_[0],0);
-    return map( { $t+=$_ || () }
-           map { ( $_ && !($n%$_) ) ? $_ : () }
-           2..($n-1)
-           ),
-           $t;
+    my ($t,$n) = (0,@_);
+    return ( map { (($n%$_) || ($t+=$_)) && () } 2..$n-1 ), $t;
   }
 }
 
-- 
cgit