equal
deleted
inserted
replaced
37 sub findDivisors { |
37 sub findDivisors { |
38 my $i = 2; |
38 my $i = 2; |
39 my $m = $_[0]; |
39 my $m = $_[0]; |
40 |
40 |
41 my @divisors; |
41 my @divisors; |
42 for (my $i = 2 ; $i <= $m ; $i++) { |
42 for (my $i = 2 ; $i <= $m/2; $i++) { |
43 if ($m % $i == 0) { |
43 if ($m % $i == 0) { |
44 push @divisors, $i; |
44 push @divisors, $i; |
45 } |
45 } |
46 } |
46 } |
|
47 push @divisors, $m; |
47 return @divisors; |
48 return @divisors; |
48 } |
49 } |
49 |
50 |
50 sub findPrimes { |
51 sub findPrimes { |
51 my @primes; |
52 my @primes; |