perl 去掉重复的结果，求高手指教

vicky_zhao03

初学者写了一个程序，找出相乘等于140的整数，出来的结果有重复，例如2x70=140, 70x2=140. 怎样去掉这样重复的结果，请教高手。

#!/usr/bin/perl
for ($a=0;$a < 100;$a++){
  for($b=100;$b > -1;$b--){
   if($a * $b==140){
          print"the product of $a and $b is 140\n";
         last ;
          }
        }
}

zhlong8

只循环小于等于 sqrt(140) 的$a, 然后 $b <= $a

jason680

初学者写了一个程序，找出相乘等于140的整数，出来的结果有重复，例如2x70=140, 70x2=140. 怎样去掉这样重复 ...
vicky_zhao03 发表于 2011-05-15 20:54

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $sNum = 140;
   
6. for (1 .. sqrt($sNum)){
   
7.    if($sNum % $_ == 0){
   
8.           print "the product of $_ and ". 140/$_ ." is 140\n";
   
9.    }
   
10. }

复制代码