Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • by leo (5366) on 2008.01.09 18:51 (#60104) Journal

    With ...

    $ time parrot -Cj -O3 examples/benchmarks/fib.pir
    fib(28) = 317811 0.007305s

    ... you are just measuring parrot startup time, which isn't optimized in any way.

    Please try something real ;-) like fib 38.

    $ time ./parrot -Cj -O3 examples/benchmarks/fib.pir 38
    fib(38) = 39088169 0.671501s

    (on my ancient 2GHz Athlon). Wirh perl 5.8.8 it's consuming some time:

    $ time perl examples/benchmarks/fib.pl 38
    fib(38) = 39088169

    real    2m3.206s

    which is exactly what I've always said: compiler to interpreter ops performance is about 200:1 (which doesn't say anything about any program performance, e.g. perl regexes are ~equally fast compared to the pcre library)

    $ echo '(2*60+3)/0.67'|bc
    183

    And a final note: these numbers don't say anything about perl6 or OO code or whatever - these are peak performance possibilities of the parrot engine with JITted native types.

    leo