diff options
| author | Fung Cheok Yin <61836418+E7-87-83@users.noreply.github.com> | 2020-06-05 10:47:50 +0800 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-06-05 10:47:50 +0800 |
| commit | 8694320890bb0076e6a79fe1b10f00a00cd3fbd9 (patch) | |
| tree | d08132a6e2260dace4efcbf32d4ccee7c6035722 | |
| parent | 7f8b6b94d76a953e13210b5f0e3dad78a9404e94 (diff) | |
| download | perlweeklychallenge-club-8694320890bb0076e6a79fe1b10f00a00cd3fbd9.tar.gz perlweeklychallenge-club-8694320890bb0076e6a79fe1b10f00a00cd3fbd9.tar.bz2 perlweeklychallenge-club-8694320890bb0076e6a79fe1b10f00a00cd3fbd9.zip | |
Update ch-2.pl
| -rw-r--r-- | challenge-063/cheok-yin-fung/perl/ch-2.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-063/cheok-yin-fung/perl/ch-2.pl b/challenge-063/cheok-yin-fung/perl/ch-2.pl index 0a0e4129ed..2c5cdf7226 100644 --- a/challenge-063/cheok-yin-fung/perl/ch-2.pl +++ b/challenge-063/cheok-yin-fung/perl/ch-2.pl @@ -8,8 +8,8 @@ sub lookup_repeated { my $word = $_[0]; my $le = 1; while ($le <= $wordlen/2) { - if ($wordlen % $le == 0) { - my $multiple = $wordlen/$le; + my $multiple = int $wordlen/$le; + if ($wordlen == $le * $multiple) { my $pattern = substr $word, 0, $le; if ( ($pattern x $multiple) eq $word ) { return $le; |