tarsana / functional

 * @param  array $list

 * @return array

 */

function takeLastWhile() {

    static $takeLastWhile = false;

    $takeLastWhile = $takeLastWhile ?: curry(function($predicate, $list) {

        $index = length($list) - 1;

        while ($index >= 0 && $predicate($list[$index]))

            $index --;

        return array_slice($list, $index + 1);

    });

    return _apply($takeLastWhile, func_get_args());

}

/**

 * Takes elements from an array **until** the predicate

 * @param  array $list

 * @return array

 */

function takeLastUntil() {

    static $takeLastUntil = false;

    $takeLastUntil = $takeLastUntil ?: curry(function($predicate, $list) {

        $index = length($list) - 1;

        while ($index >= 0 && !$predicate($list[$index]))

            $index --;

        return array_slice($list, $index + 1);

    });

    return _apply($takeLastUntil, func_get_args());

}

/**

 * Removes a number of elements from an array.

 * @param  array $list

 * @return array

 */

function removeLastWhile() {

    static $removeLastWhile = false;

    $removeLastWhile = $removeLastWhile ?: curry(function($predicate, $list) {

        $index = length($list) - 1;

        while ($index >= 0 && $predicate($list[$index]))

            $index --;

        return array_slice($list, 0, $index + 1);

    });

    return _apply($removeLastWhile, func_get_args());

}

/**

 * Removes elements from an array **until** the predicate

 * @param  array $list

 * @return array

 */

function removeLastUntil() {

    static $removeLastUntil = false;

    $removeLastUntil = $removeLastUntil ?: curry(function($predicate, $list) {

        $index = length($list) - 1;

        while ($index >= 0 && !$predicate($list[$index]))

            $index --;

        return array_slice($list, 0, $index + 1);

    });

    return _apply($removeLastUntil, func_get_args());

}

/**

 * Converts an array of (key, value) pairs to an object (instance of `stdClass`).