一个智能匹配找质数的问题

无双六

代码如下：

1. #!usr/bin/perl
   
2. use 5.014;
   
3. use utf8;
   
4. use strict;
   
5. 
   
6. sub divisors {
   
7.         my$number = shift;
   
8.         my@divisors = ();
   
9.         foreach my$divisor ( 2 .. ( $number/2 ) ) {
   
10.                 push @divisors, $divisor unless $number % $divisor;
    
11.         }
    
12.         return @divisors;
    
13. }
    
14. 
    
15. say "Checking the number <$ARGV[0]>";
    
16. 
    
17. given ( $ARGV[0] ) {
    
18.         when ( ! /\A\d+\Z/ )        {say "It's not a number!"}
    
19. 
    
20.         my@empty = ();
    
21.         when ( &divisors ~~ @empty )        {say "It is a prime"}
    
22.        
    
23.         my@divisors = &divisors( $_ );
    
24.         default        {say "It's factor is @divisors"}
    
25. }

复制代码

要求是输入一个数，是质数就输出"It is a prime"，不是就输出它的因数。

运行结果其余都没问题，就是输入质数的时候，输出是"It's factory is    "，看起来是"divisors ~~ @empty"没有匹配成功，试了几种判定方法都不行。

wsxedcer

1. #!/opt/perl5.14/bin/perl
   
2. use strict;
   
3. use 5.014;
   
4. 
   
5. say "check is '$ARGV[0]'";
   
6. given($ARGV[0]){
   
7.         when(! /\A\d+/) {say "not is number"}
   
8.         my @return=&drivesrs($_);
   
9.         my @temp;
   
10.         when(@return ~~ @temp){say "number is prime"}
    
11.         default {say "$_ is divisible by @return"}
    
12. }
    
13. sub drivesrs {
    
14.         my $number=shift;
    
15.         my @div;
    
16.         foreach(2..($number/2)){
    
17.                 push @div,$_ unless $number%$_;
    
18.         }
    
19.         return @div;
    
20. }

复制代码

无双六

回复 2# wsxedcer


    原来如此，多谢