From a9c4e94bdbbf5ab9ffacc09b6b98300bad6945c3 Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Tue, 16 Nov 2021 14:15:15 +0000
Subject: remove tertiary op

---
 challenge-139/james-smith/perl/ch-2.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/challenge-139/james-smith/perl/ch-2.pl b/challenge-139/james-smith/perl/ch-2.pl
index 674112f00e..3c71e9fc28 100644
--- a/challenge-139/james-smith/perl/ch-2.pl
+++ b/challenge-139/james-smith/perl/ch-2.pl
@@ -17,8 +17,7 @@ say $_ for @long_primes;
 
 sub rec_len {
   my( $D, $N, $s ) = ( shift, 1, '' );
-  ($s,$N) = $D>$N ? ($s.0, $N.0)
-          : ($s.int($N/$D),($N%$D).0) for 0 .. 2*$D;
+  ($s,$N) = ( $s.int($N/$D), ($N%$D).0 ) for 0 .. 2*$D;
   $s =~ m{(\d+?)\1+$};
   length $1;
 }
-- 
cgit