zackdouglas/curry_5_2_x.php

## curry_5_2_x.php
<?php
/**
 * Currying in PHP 5.2.x for simple variables
 * @author Zack Douglas <zack.douglas@wellspringsoftware.net>
 */

/**
 * e.g.
 *   $arr = Array(1, 2, 3);
 *   $le2 = curry_left('ge', 2);
 *   $f_arr = array_filter($arr, $ge2);
 *   $f_arr == Array(1, 2);
 * @param string-callback $fn
 * @param simple $left_var
 * @return mixed result of $fn($left_var, <some variable>)
 */
function curry_left($fn, $left_var) {
    $args = '$v, $_=null';
    $body = <<<body
   \$curried_args = func_get_args();
   array_unshift(\$curried_args, $left_var);
   return call_user_func_array('$fn', \$curried_args);
body;
    return create_function(
            $args, $body);
}
/**
 * e.g.
 *   $arr = Array(1, 2, 3);
 *   $le2 = curry_right('le', 2);
 *   $f_arr = array_filter($arr, $le2);
 *   $f_arr == Array(1, 2);
 * @param string-callback $fn
 * @param simple $right_var
 * @return mixed result of $fn(<some variable>, $right_var)
 */
function curry_right($fn, $right_var) {
    $args = '$v, $_=null';
    $body = <<<body
   \$curried_args = func_get_args();
   array_push(\$curried_args, $right_var);
   return call_user_func_array('$fn', \$curried_args);
body;
    return create_function(
            $args, $body);
}
	<?php
	/**
	* Currying in PHP 5.2.x for simple variables
	* @author Zack Douglas <zack.douglas@wellspringsoftware.net>
	*/

	/**
	* e.g.
	* $arr = Array(1, 2, 3);
	* $le2 = curry_left('ge', 2);
	* $f_arr = array_filter($arr, $ge2);
	* $f_arr == Array(1, 2);
	* @param string-callback $fn
	* @param simple $left_var
	* @return mixed result of $fn($left_var, <some variable>)
	*/
	function curry_left($fn, $left_var) {
	$args = '$v, $_=null';
	$body = <<<body
	\$curried_args = func_get_args();
	array_unshift(\$curried_args, $left_var);
	return call_user_func_array('$fn', \$curried_args);
	body;
	return create_function(
	$args, $body);
	}
	/**
	* e.g.
	* $arr = Array(1, 2, 3);
	* $le2 = curry_right('le', 2);
	* $f_arr = array_filter($arr, $le2);
	* $f_arr == Array(1, 2);
	* @param string-callback $fn
	* @param simple $right_var
	* @return mixed result of $fn(<some variable>, $right_var)
	*/
	function curry_right($fn, $right_var) {
	$args = '$v, $_=null';
	$body = <<<body
	\$curried_args = func_get_args();
	array_push(\$curried_args, $right_var);
	return call_user_func_array('$fn', \$curried_args);
	body;
	return create_function(
	$args, $body);
	}