$ cat test.pl
#! /usr/bin/perl

use strict;
use warnings;

sub sum {
        my $sum = shift;

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

        return $sum;
}

sub yueshu {
        my $num = shift;
        my $max = $num;
        my $yueshu = 2;
        my $i = 2;

        while ( $i < $max )
        {
                if ( $num % $i == 0 )
                {
                        $max = $num / $i;
                        if ( $i == $max )
                        {
                                $yueshu ++;
                        }
                        else
                        {
                                $yueshu += 2;
                        }
                }

                $i ++;
        }

        return $yueshu;
}

my $num = 1;

while( yueshu(sum($num)) < 500 )
{
        $num ++;
}

print $num;
$ time test.pl
12375
real    0m51.475s
user    0m31.870s
sys     0m0.020s

原帖由 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 ...

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

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


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

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