Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re^4: a close prime number

by dragonchild (Archbishop)
on Feb 14, 2005 at 19:11 UTC ( #430894=note: print w/replies, xml ) Need Help??

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% --

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.

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.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://430894]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (5)
As of 2018-07-15 23:35 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (328 votes). Check out past polls.