3v4l.org

run code in 300+ PHP versions simultaneously

@ 2014-10-26T16:17:02Z

<?php

/*
span                    :: (a -> Bool) -> [a] -> ([a],[a])
span _ xs@[]            =  (xs, xs)
span p xs@(x:xs')
         | p x          =  let (ys,zs) = span p xs' in (x:ys,zs)
         | otherwise    =  ([],xs)
*/
function span($p, $xs) {
    if (empty($xs)) {
        return [[], []];
    }

    $xs_ = $xs;
    $x = array_shift($xs_);

    if ($p($x)) {
        list($ys, $zs) = span($p, $xs_);

        return [array_unshift($ys, $x), $zs];
    }

    return [[], $xs];
}

/*
groupBy                 :: (a -> a -> Bool) -> [a] -> [[a]]
groupBy _  []           =  []
groupBy eq (x:xs)       =  (x:ys) : groupBy eq zs
                           where (ys,zs) = span (eq x) xs
*/
function array_group(callable $eq, array $xs) {
    if (empty($xs)) {
        return [];
    }

    $x = array_shift($xs);

    list($ys, $zs) = span($eq($x), $xs);
}

function it($m,$p){echo ($p?'✔︎':'✘')." It $m\n"; if(!$p){$GLOBALS['f']=1;}}function done(){if(@$GLOBALS['f'])die(1);}

var_dump(span(function ($x) { return $x < 2; }, [1, 2, 3]));

Output for 5.4.0 - 5.4.45, 5.5.24 - 5.5.35, 5.6.7 - 5.6.28, 7.0.0 - 7.0.20, 7.1.0 - 7.1.33, 7.2.0 - 7.2.33, 7.3.0 - 7.3.33, 7.4.0 - 7.4.33, 8.0.0 - 8.0.30, 8.1.0 - 8.1.28, 8.2.0 - 8.2.18, 8.3.0 - 8.3.6: array(2) { [0]=> int(1) [1]=> array(2) { [0]=> int(2) [1]=> int(3) } }
Output for 4.4.2 - 4.4.9, 5.1.0 - 5.1.6, 5.2.0 - 5.2.17, 5.3.0 - 5.3.29: Parse error: syntax error, unexpected '[' in /in/lGcqf on line 12
Process exited with code 255.
Output for 4.3.0 - 4.3.1, 4.3.5 - 4.3.11, 4.4.0 - 4.4.1, 5.0.0 - 5.0.5: Parse error: parse error, unexpected '[' in /in/lGcqf on line 12
Process exited with code 255.
Output for 4.3.2 - 4.3.4: Parse error: parse error in /in/lGcqf on line 12
Process exited with code 255.

preferences:dark modelive preview

234.62 ms | 401 KiB | 357 Q