求个算法。

大狗狗

F(n) = 1 + 2 + ,..., + n = (1+n)*n/2
求最小的n，使F(n)拥有超过500个的约数。

100的约数为 （1，2，4，5，10，20，25，50，100）

我的垃圾新手写法。
@＠count=0
def yushu(num)
        (1..num).each{|i| @@count+=1  if num%i == 0}
        puts @@count
end
yushu(100)

大狗狗

额 我理解这个题的意思是说求一个数字，它的约数应该有>=500个。

ly5066113

1. $ cat test.pl
   
2. #! /usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. sub sum {
   
8.         my $sum = shift;
   
9. 
   
10.         $sum = (1 + $sum) * $sum / 2;
    
11. 
    
12.         return $sum;
    
13. }
    
14. 
    
15. sub yueshu {
    
16.         my $num = shift;
    
17.         my $max = $num;
    
18.         my $yueshu = 2;
    
19.         my $i = 2;
    
20. 
    
21.         while ( $i < $max )
    
22.         {
    
23.                 if ( $num % $i == 0 )
    
24.                 {
    
25.                         $max = $num / $i;
    
26.                         if ( $i == $max )
    
27.                         {
    
28.                                 $yueshu ++;
    
29.                         }
    
30.                         else
    
31.                         {
    
32.                                 $yueshu += 2;
    
33.                         }
    
34.                 }
    
35. 
    
36.                 $i ++;
    
37.         }
    
38. 
    
39.         return $yueshu;
    
40. }
    
41. 
    
42. my $num = 1;
    
43. 
    
44. while( yueshu(sum($num)) < 500 )
    
45. {
    
46.         $num ++;
    
47. }
    
48. 
    
49. print $num;
    
50. $ time test.pl
    
51. 12375
    
52. real    0m51.475s
    
53. user    0m31.870s
    
54. sys     0m0.020s

复制代码

MMMIX

做的运算太多了。要是顺序求因数的话，只要求到原数的平方根就行了。当然也可以先将原数分解为质因数，然后用质因数的组合得到原数的所有因数。

大狗狗

原帖由 ly5066113 于 2009-1-5 11:04 发表
$ cat test.pl
#! /usr/bin/perl

use strict;
use warnings;

sub sum {
        my $sum = shift;

        $sum = (1 + $sum) * $sum / 2;

        return $sum;
}

sub yueshu {
        m ...

def yueshu(num)     count=0     arr=[]     (1..num).each  do  |i|         count += 1 and  arr << i   if  num%i ==0              end     return arr end puts yueshu(12375)

1
3
5
9
11
15
25
33
45
55
75
99
125
165
225
275
375
495
825
1125
1375
2475
4125
12375

你这个数字也没有500个约数阿。。。

[ 本帖最后由 大狗狗 于 2009-1-5 12:19 编辑 ]

大狗狗

原帖由 MMMIX 于 2009-1-5 12:08 发表
做的运算太多了。要是顺序求因数的话，只要求到原数的平方根就行了。当然也可以先将原数分解为质因数，然后用质因数的组合得到原数的所有因数。

数学没有学好。这些概念都快忘记光了。。／

ly5066113

我这个就是算到平方根呀。

ly5066113

你题目要求的是n，拥有500个约数的是F(n)。
也就是 (1 + 12735) * 12735 / 2

ynchnluiti

原帖由 大狗狗 于 2009-1-5 12:18 发表


数学没有学好。这些概念都快忘记光了。。／

我已经忘光了。

大狗狗

原帖由 ly5066113 于 2009-1-5 12:21 发表
你题目要求的是n，拥有500个约数的是F(n)。
也就是 (1 + 12735) * 12735 / 2

约数的个数和n 有关系吗？

F(n)=1+2+..+n=(1+n)*n/2  这个和一个数所拥有的约数个数有关系吗？