[D]perl小程序求批改（4）

[D]perl小程序求修改（4）

Perl code

use 5.010;print "please input a number\n";chomp($num=<STDIN>);given($num){  when (!/^\d+$/) {print "is not a number\n"}  @div=&divisors($_);  @empty;  when (@div~~@empty){print"number is prime\n"}  default{print"$number is divided by @div\n"}               }sub divisors {     my $number=shift;     my @divisors=();     foreach my $divisor (2..($number/2)) {     push @divisors, $divisor unless $_ % $divisor;     }return @divisors;}

求质数的程序，但不能输出质数， 键入15 返回2，3，4，5，6，7

--------------------------
Double行动：
原帖分数：20
帖子加分：20


[解决办法]

Perl code

push @divisors, $divisor unless $num % $divisor; 

 

查看更多 下一篇