Beefy Boxes and Bandwidth Generously Provided by pair Networks Bob
Perl: the Markov chain saw
 
PerlMonks  

Re^5: Exploring Inline::C (Generating primes)

by wazoox (Prior)
on Oct 28, 2011 at 20:20 UTC ( #934501=note: print w/ replies, xml ) Need Help??


in reply to Re^4: Exploring Inline::C (Generating primes)
in thread Exploring Inline::C (Generating primes)

OK, I see : the perl comments are included in the C source, and of course a line beginning with a # has unexpected effects there :) So adding a // in front of lines 137 and 164 saves the day:

perl test.pl
1..3
ok 1 - The first 501 primes are found from 1 to 3571.
ok 2 - external_cpp() function gives same results as basic_perl().
ok 3 - inline_c() function gives same results as basic_perl().
# 
# Comparing basic_perl(), external_cpp(), and inline_c() for
# 5 seconds searching 150000 integers.
# 
                Rate   basic_perl external_cpp     inline_c
basic_perl   0.984/s           --         -90%         -96%
external_cpp  9.45/s         860%           --         -58%
inline_c      22.6/s        2197%         139%           --
# 
# I love it when a plan comes together.
# 


Comment on Re^5: Exploring Inline::C (Generating primes)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://934501]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (6)
As of 2014-04-18 02:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (460 votes), past polls