Taking that code and coupling the Zend Optimizer, PHP and Perl were
approximately the same speed (Perl was 8% faster, but that probably varies
across platforms).
W/o the optimizer PHP was 2 times slower, but again, that's only because
this is not a very real-world piece of code, at least for our space
(scripting languages).
Zeev
On Sat, 29 Dec 2001, August Zajonc wrote:
> Sure,
>
> These are not my tests but Doug's. He compiled default so --debug
> and --inline-optimization not kicking in. Startup cost also counted, but he
> tried to run long enough to amortize that.
>
> n was 16.
>
> perl code was something like this.
> #!/usr/local/bin/perl
> # $Id: nestedloop.perl,v 1.2 2000/12/30 21:42:57 doug Exp $
> # http://www.bagley.org/~doug/shootout/
>
> use strict;
>
> my $n = ($ARGV[0] > 0) ? $ARGV[0] : 1;
> my $x = 0;
> my $a = $n;
> while ($a--) {
> my $b = $n;
> while ($b--) {
> my $c = $n;
> while ($c--) {
> my $d = $n;
> while ($d--) {
> my $e = $n;
> while ($e--) {
> my $f = $n;
> while ($f--) {
> $x++;
> }
> }
> }
> }
> }
> }
> print "$x\n";
>
>
--
Zeev Suraski <zeev@zend.com>
http://www.zend.com/