如果您想四舍五入到任意精度并且您的舍入方法缺乏精度控制,这应该可以:
至少在 Perl 中,mod 应该仍然更快
原因如下:
( 10 ** 7 ) * 3 个随机浮点数的样本产生了这个基准:
Dividing
Time taken was 7 wallclock secs ( 6.83 usr 0.00 sys + 0.00 cusr 0.00 csys = 6.83 CPU) seconds
Multiplying
Time taken was 7 wallclock secs ( 6.67 usr 0.00 sys + 0.00 cusr 0.00 csys = 6.67 CPU) seconds
Modding
Time taken was 8 wallclock secs ( 7.87 usr 0.00 sys + 0.00 cusr 0.00 csys = 7.87 CPU) seconds
Multiply + Dividing
Time taken was 10 wallclock secs (10.18 usr 0.01 sys + 0.00 cusr 0.00 csys = 10.19 CPU) seconds
请注意,10 ** 7 * 3 是 REDICULOUS 的浮点数。我不能使用 10**8 浮点数,因为为了公平测试,我必须对所有测试使用相同的浮点数序列,而且许多浮点数耗尽了我的 4G 内存
好的,有点偏题了:/
(仅使用 Int 的 Perl 实现,通常截断而不是四舍五入)
use strict;
use warnings;
use version;
our $VERSION = qv('0.1');
sub xround {
my ( $number, $precision ) = @_ ;
if ( $precision eq 0 )
{
return int( $number + .5 );
}
my $scale = 10 ** abs( $precision ) ;
$number = $number / $scale if $precision > 0;
$number = $number * $scale if $precision < 0;
$number = int( $number + .5 );
$number = $number * $scale if $precision > 0;
$number = $number / $scale if $precision < 0;
return $number;
}
my $fmt = "%s : %s ( %s )\n";
my $n = 55555.55555;
for my $i ( -4 .. 4 )
{
printf $fmt, $n, xround($n, $i), $i;
}
.
55555.55555 : 55555.5556 ( -4 )
55555.55555 : 55555.556 ( -3 )
55555.55555 : 55555.56 ( -2 )
55555.55555 : 55555.6 ( -1 )
55555.55555 : 55556 ( 0 )
55555.55555 : 55560 ( 1 )
55555.55555 : 55600 ( 2 )
55555.55555 : 56000 ( 3 )
55555.55555 : 60000 ( 4 )
使用模数法
这和上面一样工作,(除了没有四舍五入)使用整数的模数方法,但仍然适用于四舍五入到浮点精度(小数点右边的精度有点慢。
use strict;
use warnings;
use version;
our $VERSION = qv('0.1');
sub xround {
my ( $number, $precision ) = @_;
my $ino = int( $number );
if ( $precision eq 0 ) {
return $ino;
}
my $power = 10**$precision;
if ( $precision > 0 ) {
return int( $number - ( $number % $power ) );
}
return $ino + int( ( $number - $ino ) / $power ) * $power;
}
my $fmt = "%s : %s ( %s )\n";
my $n = 55555.55555;
for my $i ( -4 .. 4 )
{
printf $fmt, $n, xround($n, $i), $i;
}
.
55555.55555 : 55555.5555 ( -4 )
55555.55555 : 55555.555 ( -3 )
55555.55555 : 55555.55 ( -2 )
55555.55555 : 55555.5 ( -1 )
55555.55555 : 55555 ( 0 )
55555.55555 : 55550 ( 1 )
55555.55555 : 55500 ( 2 )
55555.55555 : 55000 ( 3 )
55555.55555 : 50000 ( 4 )