Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

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

by wazoox (Prior)
on Oct 28, 2011 at 20:20 UTC ( [id://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
Domain Nodelet?
Node Status?
node history
Node Type: note [id://934501]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others meditating upon the Monastery: (5)
As of 2024-04-24 17:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found