如何使用Perl对整数进行因子运算?

• sqrt函数不能按预期工作是什么意思?如果你遵循通用算法,你只需要迭代到平方根的底部来测试因子。大多数整数没有整数平方根。

这里有一个这样的函数示例: http://www.classhelper.org/articles/perl-by-example-factoring-numbers/factoring-numbers-with-perl.shtml

在可接受的范围内(比如9到15)循环一些常见的数字,计算余数模你的测试数,然后选择最小的。

sub compute_width {
    my ($total_records) = @_;
    my %remainders;
    for(my $width = 9; $width <= 15; $width += 1) {
      my $remainder = $total_records % $width;
      $remainders{$width} = $remainder;
    }
    my @widths = sort { 
      $remainders{$a} <=> $remainders{$b} || 
      $a <=> $b 
    } keys %remainders;
    return $widths[0];
}