diff options
| -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; } |