diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-11-18 17:19:50 +0000 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-11-18 17:19:50 +0000 |
| commit | b8efdcfb01a416ff48e80d4ef8c30e98039adde3 (patch) | |
| tree | b70594c6852a9c60f2e4d3688b306c97c13f63f2 | |
| parent | a0a5e7ed6b414d31525a097cf49de8359237f3fc (diff) | |
| download | perlweeklychallenge-club-b8efdcfb01a416ff48e80d4ef8c30e98039adde3.tar.gz perlweeklychallenge-club-b8efdcfb01a416ff48e80d4ef8c30e98039adde3.tar.bz2 perlweeklychallenge-club-b8efdcfb01a416ff48e80d4ef8c30e98039adde3.zip | |
add a length $D to this to make sure we get enough of the repeat
| -rw-r--r-- | challenge-139/james-smith/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-139/james-smith/perl/ch-2.pl b/challenge-139/james-smith/perl/ch-2.pl index cd0c2c56ca..c828aefea7 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.=int($N/$D),$N%=$D,$N.=0 for 0..2*$D; + $s.=int($N/$D),$N%=$D,$N.=0 for 0..2*$D+length $D; $s =~ /(.+?)\1+$/ ? length $1 : 0; } |