diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-11-18 09:26:41 +0000 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-11-18 09:26:41 +0000 |
| commit | f748a7d32405d399712853441aa1c9906732bd3a (patch) | |
| tree | b4474cd4c75ecf123a2ca309458d044340d79eea | |
| parent | b3debed61af3381c91e9fff97167f14bbb85d29d (diff) | |
| download | perlweeklychallenge-club-f748a7d32405d399712853441aa1c9906732bd3a.tar.gz perlweeklychallenge-club-f748a7d32405d399712853441aa1c9906732bd3a.tar.bz2 perlweeklychallenge-club-f748a7d32405d399712853441aa1c9906732bd3a.zip | |
tidied up code
| -rw-r--r-- | challenge-139/james-smith/perl/ch-2.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-139/james-smith/perl/ch-2.pl b/challenge-139/james-smith/perl/ch-2.pl index 8311c8a438..cd0c2c56ca 100644 --- a/challenge-139/james-smith/perl/ch-2.pl +++ b/challenge-139/james-smith/perl/ch-2.pl @@ -16,6 +16,6 @@ say $_ for @long_primes; sub rec_len { my( $D, $N, $s ) = ( shift, 1, '' ); - ($s,$N) = ( $s.int($N/$D), ($N%$D).0 ) for 0 .. 2*$D; - $s =~ /(\d+?)\1+$/ ? length $1 : 0; + $s.=int($N/$D),$N%=$D,$N.=0 for 0..2*$D; + $s =~ /(.+?)\1+$/ ? length $1 : 0; } |