mirrors/madlisp
1
0
Fork 0
mirror of https://github.com/peklaiho/madlisp.git synced 2024-11-26 07:04:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

add functions second, penult

Browse Source
This commit is contained in:
Pekka Laiho 2020-06-08 10:02:59 +07:00
parent 200d9b3161
commit ddac856ed4
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/Lib/Collections.php
View File

@ -70,13 +70,19 @@ class Collections implements ILib
fn (Seq $a) => $a->getData()[0] ?? null
));
$env->set('second', new CoreFunc('second', 'Return the second element of a sequence or null.', 1, 1,
fn (Seq $a) => $a->getData()[1] ?? null
));
$env->set('last', new CoreFunc('last', 'Return the last element of a sequence or null.', 1, 1,
function (Seq $a) {
if ($a->count() == 0) {
return null;
}
return $a->getData()[$a->count() - 1] ?? null;
}
));
return $a->getData()[$a->count() - 1];
$env->set('penult', new CoreFunc('penult', 'Return the second last element of a sequence or null.', 1, 1,
function (Seq $a) {
return $a->getData()[$a->count() - 2] ?? null;
}
));