diff options
| author | Steven Wilson <steven1170@zoho.eu> | 2022-01-14 20:58:01 +0000 |
|---|---|---|
| committer | Steven Wilson <steven1170@zoho.eu> | 2022-01-14 20:58:01 +0000 |
| commit | 54c5f09449b5e3780ed5cac7171ca48d4f99238e (patch) | |
| tree | 577065344934fa95c570dacd6143c9298840e75f /challenge-147 | |
| parent | 12805f3c8446a7b22ae490258b8d00103ceb8fc4 (diff) | |
| download | perlweeklychallenge-club-54c5f09449b5e3780ed5cac7171ca48d4f99238e.tar.gz perlweeklychallenge-club-54c5f09449b5e3780ed5cac7171ca48d4f99238e.tar.bz2 perlweeklychallenge-club-54c5f09449b5e3780ed5cac7171ca48d4f99238e.zip | |
remove unnecessary bobbins
Diffstat (limited to 'challenge-147')
| -rw-r--r-- | challenge-147/steven-wilson/perl/ch-01.pl | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/challenge-147/steven-wilson/perl/ch-01.pl b/challenge-147/steven-wilson/perl/ch-01.pl index 8b48fd666e..ceefab2a3d 100644 --- a/challenge-147/steven-wilson/perl/ch-01.pl +++ b/challenge-147/steven-wilson/perl/ch-01.pl @@ -20,19 +20,18 @@ while ( scalar @ltp < 20 ) { sub is_truncatable_prime { my $prime_number = shift; - my $prime_number_m = $prime_number; my $truncatable = 1; - while ( length $prime_number_m > 0 ) { - if ( $prime_number_m =~ /0/ ) { # contains no 0 + while ( length $prime_number > 0 ) { + if ( $prime_number =~ /0/ ) { # contains no 0 $truncatable = 0; last; } - if ( not is_prime($prime_number_m) ) { + if ( not is_prime($prime_number) ) { $truncatable = 0; last; } - $prime_number_m =~ /^[0-9]{1}([0-9]*)/; - $prime_number_m = $1; + $prime_number =~ /^[0-9]{1}([0-9]*)/; + $prime_number = $1; } return $truncatable; } |