In case you're interested (having Python, Ruby, ... around I thought
you might be :-), here's a PHP version of the MOPS test.
#!/usr/bin/php
<?php
#
# mops.php
#
# A PHP implementation of the mops.pasm example program,
# for speed comparisons.
#
# Copyright (C) 2001 The Parrot Team. All rights reserved.
# This program is free software. It is subject to the same
# license as The Parrot Interpreter.
#
# $Id: $
#
set_time_limit(0);
$i2 = 0; # set I2, 0
$i3 = 1; # set I3, 1
$i4 = 100000000; # 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
#
while ($i4 != 0) # REDO:
$i4 = $i4 - $i3; # sub I4, I4, I3
# if I4, REDO
#
# DONE:
$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; # iton 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
?>
--
Sebastian Bergmann
http://sebastian-bergmann.de/ http://phpOpenTracker.de/
Did I help you? Consider a gift: http://wishlist.sebastian-bergmann.de/
