mirrors/madlisp
1
0
Fork 0
mirror of https://github.com/peklaiho/madlisp.git synced 2024-11-22 21:35:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

chunk function

Browse Source
This commit is contained in:
Pekka Laiho 2020-06-04 16:22:13 +07:00
parent 6146f3b475
commit cf9af2b5fe
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Lib/Collections.php
View File

@ -94,6 +94,13 @@ class Collections implements ILib
// Manipulate list // Manipulate list
$env->set('chunk', new CoreFunc('chunk', 'Divide first argument (sequence) into new sequences with length of second argument (int).', 2, 2,
function (Seq $a, int $len) {
$chunks = array_chunk($a->getData(), $len);
return $a::new(array_map(fn ($b) => $a::new($b), $chunks));
}
));
$env->set('push', new CoreFunc('push', 'Push the remaining arguments at the end of the sequence (first argument).', 2, -1, $env->set('push', new CoreFunc('push', 'Push the remaining arguments at the end of the sequence (first argument).', 2, -1,
function (Seq $a, ...$b) { function (Seq $a, ...$b) {
$data = $a->getData(); $data = $a->getData();