mirrors/madlisp
1
0
Fork 0
mirror of https://github.com/peklaiho/madlisp.git synced 2024-10-18 04:52:01 +00:00
Code Issues Packages Projects Releases Wiki Activity

add functions car and cdr because they are familiar for Lispers

Browse Source
This commit is contained in:
Pekka Laiho 2020-12-19 20:46:51 +07:00
parent 16808c7ff9
commit c53eba8d23
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/Lib/Collections.php
View File

@ -90,9 +90,11 @@ class Collections implements ILib
// Get partial seq
$env->set('first', new CoreFunc('first', 'Return the first element of a sequence or null.', 1, 1,
fn (Seq $a) => $a->getData()[0] ?? null
));
foreach (['car', 'first'] as $name) {
$env->set($name, new CoreFunc($name, 'Return the first element of a sequence or null.', 1, 1,
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
@ -116,11 +118,13 @@ class Collections implements ILib
}
));
$env->set('tail', new CoreFunc('tail', 'Return new sequence containing all elements of argument except first.', 1, 1,
function (Seq $a) {
return $a::new(array_slice($a->getData(), 1));
}
));
foreach (['cdr', 'tail'] as $name) {
$env->set($name, new CoreFunc($name, 'Return new sequence containing all elements of argument except first.', 1, 1,
function (Seq $a) {
return $a::new(array_slice($a->getData(), 1));
}
));
}
$env->set('slice', new CoreFunc('slice', 'Return a slice of the given sequence. Second argument is offset and third is length.', 2, 3,
function (Seq $a, int $offset, ?int $length = null) {