Image

head

code

root

para

L<Examples| file:../examples/index.podlite>


L<Download |file:../download/index.podlite>


React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


HEADER

FOOTER

README

sub EXPORT {
    $*W.do_pragma(Match.new, 'MONKEY', 1, []);
    Map.new: '&b' => &b
}

my &colored = Nil === (try require Terminal::ANSIColor)
  ?? sub (Str:D $s, $) { $s }
  !! ::('Terminal::ANSIColor::EXPORT::DEFAULT::&colored');

my sub nano2Duration(Int:D $value is raw --> Nil) {
    $value = Duration.new($value / 1_000_000_000);
}

sub b(int $full-n, &old, &new, &bare = { $ = $ }, :$silent) {
    use nqp;

    my int $n = floor ½ × $full-n;
    my int $i;
    my int $now;
    my %times;

    $i = -1; $now = nqp::time();
    nqp::until(nqp::islt_i($n, $i = nqp::add_i($i, 1)), bare, :nohandler);
    %times<bare> = nqp::time() - $now;

    $i = -1; $now = nqp::time();
    nqp::until(nqp::islt_i($n, $i = nqp::add_i($i, 1)), old, :nohandler);
    %times<old> = nqp::time() - $now;

    $i = -1; $now = nqp::time();
    nqp::until(nqp::islt_i($n, $i = nqp::add_i($i, 1)), new, :nohandler);
    %times<new> = nqp::time() - $now;

    $i = -1; $now = nqp::time();
    nqp::until(nqp::islt_i($n, $i = nqp::add_i($i, 1)), bare, :nohandler);
    %times<bare> += nqp::time() - $now;

    $i = -1; $now = nqp::time();
    nqp::until(nqp::islt_i($n, $i = nqp::add_i($i, 1)), new, :nohandler);
    %times<new> += nqp::time() - $now;

    $i = -1; $now = nqp::time();
    nqp::until(nqp::islt_i($n, $i = nqp::add_i($i, 1)), old, :nohandler);
    %times<old> += nqp::time() - $now;

    with %times {
        .<bare> max= 0;
        .<new> -= .<bare>;
        .<old> -= .<bare>;
        .<new> max= 0;
        .<old> max= 0;

        # normalize from nano secs to seconds
        nano2Duration .<bare>;
        nano2Duration .<new>;
        nano2Duration .<old>;
    }

    unless $silent {
        say "Bare: %times<bare>s";
        say "Old:  %times<old>s";
        say "New:  %times<new>s";

        sub dif {
            my $d = [/] @_;
            $d >= 2
              ?? sprintf('%.2fx', $d)
              !! ($d = Int(100*($d-1)))
                ?? sprintf('%d%%', $d)
                !! 'slightly (<1%)'
        }
        say .<old>/.<new> > 1
          ?? colored("NEW version is &dif(.<old new>) faster", 'green')
          !! colored("OLD version is &dif(.<new old>) faster", 'red'  )
        with %times;
    }

    %times
}



=begin code :lang<raku>

use Benchy;

b 20_000,  # number of times to loop
    { some-setup; my-old-code }, # your old version
    { some-setup; my-new-code }, # your new version
    { some-setup } # optional "bare" loop to eliminate setup code's time

# SAMPLE OUTPUT:
# Bare: 0.0606532677866851s
# Old:  2.170558s
# New:  0.185170s
# NEW version is 11.72x faster

=end code


Takes 2 C<Callable>s and measures which one is faster. Optionally takes a 3rd
C<Callable> that will be run the same number of times as other two callables,
and the time it took to run will be subtracted from the other results.


The C<use> of this module enables C<MONKEY> pragma, so you can augment, use NQP,
EVAL, etc, without needing to specify those pragmas.


b(int $n, &old, &new, &bare = { $ = $ }, :$silent)


Benches the codes and prints the results. Will print in colour, if
L<C<Terminal::ANSIColor>|https://modules.raku.org/repo/Terminal::ANSIColor>
is installed.


Note that the exact number to loop will always be evened out, as the bench
splits the work into two chunks that are measured at different times, so
the total time is C<2 × floor ½ × $n>.


Your "old" code; assumption is you have "old" code and you're trying
to write some "new" code to replace it.


Optional (defaults to C<{ $ = $ }>). When specified, this C<Callable>
will be run same number of times as other code and the time it took to
run will be subtracted from the `&new` and `&old` times. Use this to
run some "setup" code. That is code that's used in C<&new> and C<&old>
but should not be part of the benched times.


If set to a truthy value, the routine will not print anything.


Returns a hash with three keys - C<bare>, C<new>, and C<old> — whose
values are C<Duration> objects representing the time it took the
corresponding C<Callable>s to run. B<NOTE:> the C<new> and C<old>
already have the duration of C<bare> subtracted from them.


=begin code :lang<raku>

{
    :bare(Duration.new(<32741983139/488599474770>)),
    :new(Duration.new(<167/956>)),
    :old(Duration.new(<1280561957330937733/590077351150947660>))
}

=end code


This library is free software; you can redistribute it and/or modify it under the Artistic License 2.0.


Benchy

my proto sub timethis(|) is export {*}
my multi sub timethis(UInt $count, Str:D $code) {
    use MONKEY-SEE-NO-EVAL;
    timethis $count, { EVAL $code }
}

my multi sub timethis(UInt $count, &code) { 
    my $start-time := time;
    code() for ^$count;
    my $end-time   := time;
    my $difference := $end-time - $start-time;
    ($start-time, $end-time, $difference, $difference / $count)
}

my sub timethese(UInt $count, %h) is export {
    Map.new: (%h.map: { .key => timethis($count, .value) })
}



=begin code :lang<raku>

use Benchmark;

my ($start, $end, $diff, $avg) = timethis(1000, "code");
my @stats = timethis(1000, sub { #`( code ) });
say @stats;

my %results = timethese 1000, {
    "foo" => sub { ... },
    "bar" => sub { ... },
}
say ~%results;

=end code


A simple benchmarking module with an interface similar to Perl's
C<Benchmark.pm>.  However, rather than output results to C<$*OUT>,
the results are merely returned so that you can output them however
you please.


Benchmark

The Raku Knowledge Base


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


README

NAME

SYNOPSIS

DESCRIPTION

AUTHOR

COPYRIGHT AND LICENSE

Benchmark v1.0

Authors

License

Dependencies

Test Dependencies

Provides

Documentation