source code
<?php
/* The Computer Language Benchmarks Game
https://salsa.debian.org/benchmarksgame-team/benchmarksgame/
contributed by Yuriy Moskalchuk
scheduling optimized by Jakub Kania
(based on contributions of Peter Baltruschat and Levi Cameron)
*/
function createTree($depth)
{
global $obj;
if ($depth === 0) {
return clone $obj;
}
$depth--;
$t = clone $obj;
$t->l = createTree($depth);
$t->r = createTree($depth);
return $t;
}
function checkTree(&$treeNode)
{
$sum = 1
+ ($treeNode->l->l === null ? 1 : checkTree($treeNode->l))
+ ($treeNode->r->l === null ? 1 : checkTree($treeNode->r));
unset($treeNode->l);
unset($treeNode->r);
return $sum;
}
$obj = new class {
public $l;
public $r;
};
$minDepth = 4;
$n = ($argc == 2) ? $argv[1] : 1;
$maxDepth = max($minDepth + 2, $n);
$stretchDepth = $maxDepth + 1;
$stretchTree = createTree($stretchDepth);
echo "stretch tree of depth $stretchDepth\t check: ", checkTree($stretchTree), PHP_EOL;
unset($stretchTree);
$longLivedTree = createTree($maxDepth);
function startWorker($minDepth, $iterations, &$PIDs, $n, $size, $shmId)
{
$pid = pcntl_fork();
if ($pid) {
$PIDs[$minDepth] = $pid;
} else {
$check = 0;
for ($i = 1; $i <= $iterations; ++$i) {
$t = createTree($minDepth);
$check += checkTree($t);
unset($t);
}
$result = "$iterations\t trees of depth $minDepth\t check: $check\n";
shmop_write($shmId, $result, $size * ($n - 1));
exit(0);
}
}
function waitWorkers(&$PIDs)
{
foreach ($PIDs as $PID) {
$pid = pcntl_waitpid($PID, $status);
}
}
$iterations = 1 << ($maxDepth);
$depthIterations = [$minDepth => $iterations];
do {
$minDepth += 2;
if ($minDepth <= $maxDepth) {
$iterations >>= 2;
$depthIterations[$minDepth] = $iterations;
}
} while ($minDepth <= $maxDepth);
$size = 128;
extension_loaded('shmop') or dl('shmop.so');
$shmId = shmop_open(ftok(__FILE__, 'b'), 'c', 0644, $size * (count($depthIterations) + 1));
$workersPIDs = [];
$n = 0;
foreach ($depthIterations as $depth => $iteration) {
startWorker($depth, $iteration, $workersPIDs, ++$n, $size, $shmId);
}
waitWorkers($workersPIDs);
foreach (range(1, count($depthIterations)) as $n) {
echo trim(shmop_read($shmId, $size * ($n - 1), $size)), PHP_EOL;
}
shmop_delete($shmId);
echo "long lived tree of depth $maxDepth\t check: ", checkTree($longLivedTree), PHP_EOL;
notes, command-line, and program output
NOTES:
64-bit Ubuntu quad core
PHP 7.4.5 (cli) (built: May 11 2020 13:25:48) ( NTS )
Copyright (c) The PHP Group
Zend Engine v3.4.0, Copyright (c) Zend Technologies
Mon, 11 May 2020 20:52:05 GMT
COMMAND LINE:
/opt/src/php-7.4.5/bin/php -n -d memory_limit=4096M binarytrees.php-6.php 21
PROGRAM OUTPUT:
stretch tree of depth 22 check: 8388607
2097152 trees of depth 4 check: 65011712
524288 trees of depth 6 check: 66584576
131072 trees of depth 8 check: 66977792
32768 trees of depth 10 check: 67076096
8192 trees of depth 12 check: 67100672
2048 trees of depth 14 check: 67106816
512 trees of depth 16 check: 67108352
128 trees of depth 18 check: 67108736
32 trees of depth 20 check: 67108832
long lived tree of depth 21 check: 4194303