# Copyright (C) 2001-2009, Parrot Foundation.
# $Id: mops.p6 37201 2009-03-08 12:07:48Z fperrad $

=begin pod

=head1 NAME

examples/mops/mops.p6 - Benchmark Integer Mops

=head1 SYNOPSIS

    % perl6 examples/mops/mops.p6

=head1 DESCRIPTION

A Perl 6 implementation of the F<examples/benchmarks/mops_intval.pasm>
benchmark, for speed comparisons.

Calculates a value for Mops (also known as M ops/s or million
operations per second) using integer arithmetic.

Prints out:

=over 4

=item * the number of loop iterations, 

=item * the estimated number of ops performed,

=item * the elapsed time, and 

=item * the calculated Mops.

=back

=head1 SEE ALSO

F<examples/benchmarks/mops.pasm>,
F<examples/benchmarks/mops_intval.pasm>,
F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops.il>,
F<examples/mops/mops.pl>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples/mops/mops.scheme>.

=end pod

sub MAIN() {
    my ($I1, $I2, $I3, $I4, $I5, $N1, $N2, $N4, $N5);

$I2 = 0;                          # set    I2, 0
$I3 = 1;                          # set    I3, 1
$I4 = 1000000;                    # set    I4, 100000000
                                  #
print "Iterations:    ",$I4,"\n"; # print  "Iterations:    "
                                  # print  I4
                                  # print  "\n"
                                  #
$I1 = 2;                          # set    I1, 2
$I5 = $I4 * $I1;                  # mul    I5, I4, I1
                                  #
print "Estimated ops: ",$I5,"\n"; # print  "Estimated ops: "
                                  # print  I5
                                  # print  "\n"
                                  #
$N1 = time;                       # time   N1
                                  #
$I4 = $I4 - $I3                   # sub    I4, I4, I3
      while ($I4>0);              # if     I4, REDO
                                  #
$N5 = time;                       # time   N5
                                  #
$N2 = $N5 - $N1;                  # sub    N2, N5, N1
                                  #
print "Elapsed time:  ",$N2,"\n"; # print  "Elapsed time:  "
                                  # print  N2
                                  # print  "\n"
                                  #
$N1 = $I5;                        # set    N1, I5
$N1 = $N1 / $N2;                  # div    N1, N1, N2
$N2 = 1000000.0;                  # set    N2, 1000000.0
$N1 = $N1 / $N2;                  # div    N1, N1, N2
                                  #
print "M op/s:        ",$N1,"\n"; # print  "M op/s:        "
                                  # print  N1
                                  # print  "\n"
                                  #
}                                 # end