diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-11-16 14:15:15 +0000 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-11-16 14:15:15 +0000 |
| commit | a9c4e94bdbbf5ab9ffacc09b6b98300bad6945c3 (patch) | |
| tree | 2738b2e3006dd99c2eebf53fbb749fd4aee82819 | |
| parent | ca3d27889cdf87d4610a0acfbb29e83baa0c5b3d (diff) | |
| download | perlweeklychallenge-club-a9c4e94bdbbf5ab9ffacc09b6b98300bad6945c3.tar.gz perlweeklychallenge-club-a9c4e94bdbbf5ab9ffacc09b6b98300bad6945c3.tar.bz2 perlweeklychallenge-club-a9c4e94bdbbf5ab9ffacc09b6b98300bad6945c3.zip | |
remove tertiary op
| -rw-r--r-- | challenge-139/james-smith/perl/ch-2.pl | 3 |
1 files changed, 1 insertions, 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; } |