Re^4: a close prime number

in reply to Re^3: a close prime number
in thread a close prime number

It's not.

use Benchmark qw( cmpthese );

my $large_number = 3 * 1234647389;

cmpthese( -1, {
    modulo => sub { $large_number % 3 == 0 },
    divide => sub { my $v; $v += $_ for split //, $large_number; $v % 
+3 == 0},
});

--------

            Rate divide modulo
divide   30919/s     --   -99%
modulo 2120579/s  6759%     --
[download]

By a factor of 67 times faster. Or so ...

Being right, does not endow the right to be rude; politeness costs nothing.
Being unknowing, is not the same as being stupid.
Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence.
Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.

Comment on Re^4: a close prime number Download Code

Replies are listed 'Best First'.
Re^5: a close prime number by RazorbladeBidet (Friar) on Feb 14, 2005 at 19:15 UTC
Darn - so !(faster in my head == faster in code) :) Thanks for the benchmarks, dragonchild.	[reply]

In Section Seekers of Perl Wisdom