xref: /PHP-8.4/Zend/bench.php (revision 58b17906) 
1<?php
2if (function_exists("date_default_timezone_set")) {
3    date_default_timezone_set("UTC");
4}
5
6function simple() {
7  $a = 0;
8  for ($i = 0; $i < 1000000; $i++)
9    $a++;
10
11  $thisisanotherlongname = 0;
12  for ($thisisalongname = 0; $thisisalongname < 1000000; $thisisalongname++)
13    $thisisanotherlongname++;
14}
15
16/****/
17
18function simplecall() {
19  for ($i = 0; $i < 1000000; $i++)
20    strlen("hallo");
21}
22
23/****/
24
25function hallo($a) {
26}
27
28function simpleucall() {
29  for ($i = 0; $i < 1000000; $i++)
30    hallo("hallo");
31}
32
33/****/
34
35function simpleudcall() {
36  for ($i = 0; $i < 1000000; $i++)
37    hallo2("hallo");
38}
39
40function hallo2($a) {
41}
42
43/****/
44
45function mandel() {
46  $w1=50;
47  $h1=150;
48  $recen=-.45;
49  $imcen=0.0;
50  $r=0.7;
51  $s=0;  $rec=0;  $imc=0;  $re=0;  $im=0;  $re2=0;  $im2=0;
52  $x=0;  $y=0;  $w2=0;  $h2=0;  $color=0;
53  $s=2*$r/$w1;
54  $w2=40;
55  $h2=12;
56  for ($y=0 ; $y<=$w1; $y=$y+1) {
57    $imc=$s*($y-$h2)+$imcen;
58    for ($x=0 ; $x<=$h1; $x=$x+1) {
59      $rec=$s*($x-$w2)+$recen;
60      $re=$rec;
61      $im=$imc;
62      $color=1000;
63      $re2=$re*$re;
64      $im2=$im*$im;
65      while( ((($re2+$im2)<1000000) && $color>0)) {
66        $im=$re*$im*2+$imc;
67        $re=$re2-$im2+$rec;
68        $re2=$re*$re;
69        $im2=$im*$im;
70        $color=$color-1;
71      }
72      if ( $color==0 ) {
73        print "_";
74      } else {
75        print "#";
76      }
77    }
78    print "<br>";
79    flush();
80  }
81}
82
83/****/
84
85function mandel2() {
86  $b = " .:,;!/>)|&IH%*#";
87  //float r, i, z, Z, t, c, C;
88  for ($y=30; printf("\n"), $C = $y*0.1 - 1.5, $y--;){
89    for ($x=0; $c = $x*0.04 - 2, $z=0, $Z=0, $x++ < 75;){
90      for ($r=$c, $i=$C, $k=0; $t = $z*$z - $Z*$Z + $r, $Z = 2*$z*$Z + $i, $z=$t, $k<5000; $k++)
91        if ($z*$z + $Z*$Z > 500000) break;
92      echo $b[$k%16];
93    }
94  }
95}
96
97/****/
98
99function Ack($m, $n){
100  if($m == 0) return $n+1;
101  if($n == 0) return Ack($m-1, 1);
102  return Ack($m - 1, Ack($m, ($n - 1)));
103}
104
105function ackermann($n) {
106  $r = Ack(3,$n);
107  print "Ack(3,$n): $r\n";
108}
109
110/****/
111
112function ary($n) {
113  for ($i=0; $i<$n; $i++) {
114    $X[$i] = $i;
115  }
116  for ($i=$n-1; $i>=0; $i--) {
117    $Y[$i] = $X[$i];
118  }
119  $last = $n-1;
120  print "$Y[$last]\n";
121}
122
123/****/
124
125function ary2($n) {
126  for ($i=0; $i<$n;) {
127    $X[$i] = $i; ++$i;
128    $X[$i] = $i; ++$i;
129    $X[$i] = $i; ++$i;
130    $X[$i] = $i; ++$i;
131    $X[$i] = $i; ++$i;
132
133    $X[$i] = $i; ++$i;
134    $X[$i] = $i; ++$i;
135    $X[$i] = $i; ++$i;
136    $X[$i] = $i; ++$i;
137    $X[$i] = $i; ++$i;
138  }
139  for ($i=$n-1; $i>=0;) {
140    $Y[$i] = $X[$i]; --$i;
141    $Y[$i] = $X[$i]; --$i;
142    $Y[$i] = $X[$i]; --$i;
143    $Y[$i] = $X[$i]; --$i;
144    $Y[$i] = $X[$i]; --$i;
145
146    $Y[$i] = $X[$i]; --$i;
147    $Y[$i] = $X[$i]; --$i;
148    $Y[$i] = $X[$i]; --$i;
149    $Y[$i] = $X[$i]; --$i;
150    $Y[$i] = $X[$i]; --$i;
151  }
152  $last = $n-1;
153  print "$Y[$last]\n";
154}
155
156/****/
157
158function ary3($n) {
159  for ($i=0; $i<$n; $i++) {
160    $X[$i] = $i + 1;
161    $Y[$i] = 0;
162  }
163  for ($k=0; $k<1000; $k++) {
164    for ($i=$n-1; $i>=0; $i--) {
165      $Y[$i] += $X[$i];
166    }
167  }
168  $last = $n-1;
169  print "$Y[0] $Y[$last]\n";
170}
171
172/****/
173
174function fibo_r($n){
175    return(($n < 2) ? 1 : fibo_r($n - 2) + fibo_r($n - 1));
176}
177
178function fibo($n) {
179  $r = fibo_r($n);
180  print "$r\n";
181}
182
183/****/
184
185function hash1($n) {
186  for ($i = 1; $i <= $n; $i++) {
187    $X[dechex($i)] = $i;
188  }
189  $c = 0;
190  for ($i = $n; $i > 0; $i--) {
191    if ($X[dechex($i)]) { $c++; }
192  }
193  print "$c\n";
194}
195
196/****/
197
198function hash2($n) {
199  for ($i = 0; $i < $n; $i++) {
200    $hash1["foo_$i"] = $i;
201    $hash2["foo_$i"] = 0;
202  }
203  for ($i = $n; $i > 0; $i--) {
204    foreach($hash1 as $key => $value) $hash2[$key] += $value;
205  }
206  $first = "foo_0";
207  $last  = "foo_".($n-1);
208  print "$hash1[$first] $hash1[$last] $hash2[$first] $hash2[$last]\n";
209}
210
211/****/
212
213function gen_random ($n) {
214    global $LAST;
215    return( ($n * ($LAST = ($LAST * IA + IC) % IM)) / IM );
216}
217
218function heapsort_r($n, &$ra) {
219    $l = ($n >> 1) + 1;
220    $ir = $n;
221
222    while (1) {
223    if ($l > 1) {
224        $rra = $ra[--$l];
225    } else {
226        $rra = $ra[$ir];
227        $ra[$ir] = $ra[1];
228        if (--$ir == 1) {
229        $ra[1] = $rra;
230        return;
231        }
232    }
233    $i = $l;
234    $j = $l << 1;
235    while ($j <= $ir) {
236        if (($j < $ir) && ($ra[$j] < $ra[$j+1])) {
237        $j++;
238        }
239        if ($rra < $ra[$j]) {
240        $ra[$i] = $ra[$j];
241        $j += ($i = $j);
242        } else {
243        $j = $ir + 1;
244        }
245    }
246    $ra[$i] = $rra;
247    }
248}
249
250function heapsort($N) {
251  global $LAST;
252
253  define("IM", 139968);
254  define("IA", 3877);
255  define("IC", 29573);
256
257  $LAST = 42;
258  for ($i=1; $i<=$N; $i++) {
259    $ary[$i] = gen_random(1);
260  }
261  heapsort_r($N, $ary);
262  printf("%.10f\n", $ary[$N]);
263}
264
265/****/
266
267function mkmatrix ($rows, $cols) {
268    $count = 1;
269    $mx = array();
270    for ($i=0; $i<$rows; $i++) {
271    for ($j=0; $j<$cols; $j++) {
272        $mx[$i][$j] = $count++;
273    }
274    }
275    return($mx);
276}
277
278function mmult ($rows, $cols, $m1, $m2) {
279    $m3 = array();
280    for ($i=0; $i<$rows; $i++) {
281    for ($j=0; $j<$cols; $j++) {
282        $x = 0;
283        for ($k=0; $k<$cols; $k++) {
284        $x += $m1[$i][$k] * $m2[$k][$j];
285        }
286        $m3[$i][$j] = $x;
287    }
288    }
289    return($m3);
290}
291
292function matrix($n) {
293  $SIZE = 30;
294  $m1 = mkmatrix($SIZE, $SIZE);
295  $m2 = mkmatrix($SIZE, $SIZE);
296  while ($n--) {
297    $mm = mmult($SIZE, $SIZE, $m1, $m2);
298  }
299  print "{$mm[0][0]} {$mm[2][3]} {$mm[3][2]} {$mm[4][4]}\n";
300}
301
302/****/
303
304function nestedloop($n) {
305  $x = 0;
306  for ($a=0; $a<$n; $a++)
307    for ($b=0; $b<$n; $b++)
308      for ($c=0; $c<$n; $c++)
309        for ($d=0; $d<$n; $d++)
310          for ($e=0; $e<$n; $e++)
311            for ($f=0; $f<$n; $f++)
312             $x++;
313  print "$x\n";
314}
315
316/****/
317
318function sieve($n) {
319  $count = 0;
320  while ($n-- > 0) {
321    $count = 0;
322    $flags = range (0,8192);
323    for ($i=2; $i<8193; $i++) {
324      if ($flags[$i] > 0) {
325        for ($k=$i+$i; $k <= 8192; $k+=$i) {
326          $flags[$k] = 0;
327        }
328        $count++;
329      }
330    }
331  }
332  print "Count: $count\n";
333}
334
335/****/
336
337function strcat($n) {
338  $str = "";
339  while ($n-- > 0) {
340    $str .= "hello\n";
341  }
342  $len = strlen($str);
343  print "$len\n";
344}
345
346/*****/
347
348function gethrtime()
349{
350  $hrtime = hrtime();
351  return (($hrtime[0]*1000000000 + $hrtime[1]) / 1000000000);
352}
353
354function start_test()
355{
356    ob_start();
357  return gethrtime();
358}
359
360function end_test($start, $name)
361{
362  global $total;
363  $end = gethrtime();
364  ob_end_clean();
365  $total += $end-$start;
366  $num = number_format($end-$start,3);
367  $pad = str_repeat(" ", 24-strlen($name)-strlen($num));
368
369  echo $name.$pad.$num."\n";
370    ob_start();
371  return gethrtime();
372}
373
374function total()
375{
376  global $total;
377  $pad = str_repeat("-", 24);
378  echo $pad."\n";
379  $num = number_format($total,3);
380  $pad = str_repeat(" ", 24-strlen("Total")-strlen($num));
381  echo "Total".$pad.$num."\n";
382}
383
384$t0 = $t = start_test();
385simple();
386$t = end_test($t, "simple");
387simplecall();
388$t = end_test($t, "simplecall");
389simpleucall();
390$t = end_test($t, "simpleucall");
391simpleudcall();
392$t = end_test($t, "simpleudcall");
393mandel();
394$t = end_test($t, "mandel");
395mandel2();
396$t = end_test($t, "mandel2");
397ackermann(7);
398$t = end_test($t, "ackermann(7)");
399ary(50000);
400$t = end_test($t, "ary(50000)");
401ary2(50000);
402$t = end_test($t, "ary2(50000)");
403ary3(2000);
404$t = end_test($t, "ary3(2000)");
405fibo(30);
406$t = end_test($t, "fibo(30)");
407hash1(50000);
408$t = end_test($t, "hash1(50000)");
409hash2(500);
410$t = end_test($t, "hash2(500)");
411heapsort(20000);
412$t = end_test($t, "heapsort(20000)");
413matrix(20);
414$t = end_test($t, "matrix(20)");
415nestedloop(12);
416$t = end_test($t, "nestedloop(12)");
417sieve(30);
418$t = end_test($t, "sieve(30)");
419strcat(200000);
420$t = end_test($t, "strcat(200000)");
421total();
422?>
423