Reduce seu novo melhor amigo (Exemplos PHP)

_functions.php

<?php

function every($fn, $ls)
{
    $keys = array_keys($ls);
    $params = (new \ReflectionFunction($fn))->getParameters();

    return array_reduce($keys, function ($carry, $idx) use ($fn, $ls, $params) {
        $args = $ls[$idx];

        if (isset($params[1])) {
            $carry[$idx] = call_user_func_array($fn, [$idx, $args]);
            return $carry;
        }

        $carry[$idx] = $fn($args);
        return $carry;
    }, []);
}

function sum($ls)
{
    return array_reduce($ls, function ($carry, $item) {
        return $carry + $item;
    }, 0);
}

function pipe()
{
    $ls = func_get_args();

    return array_reduce($ls, function ($carry, $fn) {
        if (is_null($carry)) {
            return $fn;
        }

        return function () use ($carry, $fn) {
            $args = func_get_args();
            return $fn(call_user_func_array($carry, $args));
        };
    });
}

function compose()
{
    $args = func_get_args();
    return call_user_func_array('pipe', array_reverse($args));
}

function flatten($ls)
{
    if ($ls instanceof \ArrayIterator) {
        $ls = flatten($ls->getArrayCopy());
    }

    return array_reduce($ls, function ($carry, $item) {
        if (is_array($item) || $item instanceof \ArrayIterator) {
            return array_merge($carry, flatten($item));
        }

        $carry[] = $item;
        return $carry;
    }, []);
}

function map($fn, $ls)
{
    return array_reduce($ls, function ($carry, $item) use ($fn) {
        $carry[] = $fn($item);
        return $carry;
    }, []);
}

function filter($fn, $ls)
{
    return array_reduce($ls, function ($carry, $item) use ($fn) {
        if ($fn($item)) {
            $carry[] = $item;
            return $carry;
        }
        
        return $carry;
    }, []);
}

reduce.php

<?php

$inc = function ($x) {
    return $x + 1;
};

$odd = function ($x) {
    return $x & 1;
};

$even = function ($x) {
    return !($x & 1);
};

$plus2 = function ($x) {
    return $x + 2;
};

$times4 = function ($x) {
    return $x * 4;
};

assert(map($inc, [1, 2, 3, 4, 5, 6, 7, 8, 9]) === [2, 3, 4, 5, 6, 7, 8, 9, 10]);

assert(filter($odd, [1, 2, 3, 4, 5, 6, 7, 8]) === [1, 3, 5, 7]);

assert(filter($even, [1, 2, 3, 4, 5, 6, 7, 8]) === [2, 4, 6, 8]);

assert(flatten([[[1, [1.1]], 2, 3], [4, 5]]) === [1, 1.1, 2, 3, 4, 5]);

assert(flatten([1, [2,3], [4,[5,[6]]]]) === [1, 2, 3, 4, 5, 6]);

assert(map(compose($plus2, $times4), [1, 2, 5, 8]) === [12, 16, 28, 40]);

assert(pipe(function ($arr) {
    $arr[] = 'b';
    return $arr;
}, function ($arr) {
    $arr[] = 'c';
    return $arr;
})(['a']) === ['a', 'b', 'c']);

assert(pipe(function ($ls) {
    return filter(function ($x) {
        return $x & 1;
    }, $ls);
}, function ($ls) {
    return map(function ($x) {
        return $x * 10;
    }, $ls);
}, 'sum')([1, 2, 3, 4, 5]) === 90);

assert(pipe('deg2rad', 'cos')(360) === 1.0); // avoid cos(deg2rad(360));

reduce_seu_novo_melhor_amigo.md

Os exemplos foram extraídos da palestra da palestra da Ju Gonçalves (https://www.youtube.com/watch?v=P9mAnhNFKO4) e implementados em PHP.

O PHP possui nativamente array_map e array_filter mas para uma melhor compreensão da palestra foram feitos os exemplos a risca.

Para nivelamento de conhecimento em Programação Funcional, recomendo ler os slides do Marcel dos Santos (https://speakerdeck.com/marcelgsantos/programacao-funcional-em-php-saia-da-zona-de-conforto)