/** * Returns array which contains sorted items the passed sequence * * @param array|\Traversable $array * @param bool $reversed If true then return reversed sorted sequence. If not boolean and $key was not passed then acts as a $key parameter * @param callable $key Function of one argument that is used to extract a comparison key from each element * @param callable $cmp Function of two arguments which returns a negative number, zero or positive number depending on * whether the first argument is smaller than, equal to, or larger than the second argument * @return array */ function sorted($array, $reversed = false, callable $key = null, callable $cmp = null) { args\expects(args\traversable, $array); args\expects([args\bool, args\callable_], $reversed); if (!$cmp) { $cmp = function ($a, $b) { return $a > $b ? 1 : -1; }; } if (!is_bool($reversed) && !$key) { $key = $reversed; } if ($key) { $cmp = function ($a, $b) use($key, $cmp) { return $cmp($key($a), $key($b)); }; } if (is_bool($reversed) && $reversed) { $cmp = f\compose(op\neg, $cmp); } $array = ds\traversableToArray($array); $isList = ds\isList($array); uasort($array, $cmp); return $isList ? array_values($array) : $array; }
public function testCompose() { $countFiltered = compose('count', filter); $this->assertEquals(3, $countFiltered('is_int', [1, 'a', 2, 'b', 3])); $underscoreToCamelcase = compose('lcfirst', partial('str_replace', '_', ''), rpartial('ucwords', '_')); $this->assertEquals('underscoreToCamelcase', $underscoreToCamelcase('underscore_to_camelcase')); $countFiltered = call_user_func(compose, 'count', filter); $this->assertEquals(3, $countFiltered('is_int', [1, 'a', 2, 'b', 3])); $this->assertEquals('\\nspl\\f\\compose', compose); }
use function nspl\f\compose; use function nspl\f\memoized; use const nspl\op\object; use const nspl\op\gt; use const nspl\op\mul; use function nspl\op\propertyGetter; use const nspl\a\value; use function nspl\a\map; use function nspl\a\reduce; use function nspl\a\filter; $users = map(object, [array('id' => 1, 'name' => 'John', 'age' => 15), array('id' => 2, 'name' => 'Jack', 'age' => 35), array('id' => 3, 'name' => 'Sarah', 'age' => 25), array('id' => 4, 'name' => 'Norah', 'age' => 20), array('id' => 5, 'name' => 'Michael', 'age' => 30), array('id' => 6, 'name' => 'Bob', 'age' => 30)]); // 1. Get user name from which can be stored as username, user_name or name in data array $data = array('id' => 1337, 'name' => 'John', 'gender' => 'male'); $name = reduce(flipped(partial(value, $data)), ['username', 'user_name', 'name'], ''); echo sprintf("User name is %s\n", $name); // 2. Get users older than 25 $isOlderThan25 = compose(rpartial(gt, 25), propertyGetter('age')); $olderThan25 = filter($isOlderThan25, $users); echo "These users are older than 25:\n"; foreach ($olderThan25 as $user) { echo sprintf(" %s - %s y.o.\n", $user->name, $user->age); } // 3. Memoizing heavy calculations $factorial = function ($n) { echo "Calculating {$n}!\n"; return reduce(mul, range(1, $n), 1); }; $memoizedFactorial = memoized($factorial); foreach ([3, 3, 5, 5, 5] as $n) { echo sprintf("%s! = %s\n", $n, $memoizedFactorial($n)); }
/** * Returns array which contains sorted items from the passed sequence * * @param array|\Traversable $sequence * @param bool $reversed If true then return reversed sorted sequence. If not boolean and $key was not passed then acts as a $key parameter * @param callable $key Function of one argument that is used to extract a comparison key from each item * @param callable $cmp Function of two arguments which returns a negative number, zero or positive number depending on * whether the first argument is smaller than, equal to, or larger than the second argument * @return array */ function sorted($sequence, $reversed = false, callable $key = null, callable $cmp = null) { args\expects(args\traversable, $sequence); args\expects([args\bool, args\callable_], $reversed); if (!$cmp) { $cmp = function ($a, $b) { return $a > $b ? 1 : -1; }; } if (!is_bool($reversed) && !$key) { $key = $reversed; } if ($key) { $cmp = function ($a, $b) use($key, $cmp) { return $cmp($key($a), $key($b)); }; } if (is_bool($reversed) && $reversed) { $cmp = f\compose(op\neg, $cmp); } if ($sequence instanceof \Iterator) { $sequence = iterator_to_array($sequence); } $isList = isList($sequence); uasort($sequence, $cmp); return $isList ? array_values($sequence) : $sequence; }