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

Optimization: use normal for-loops in basic math functions

Browse Source
This commit is contained in:
Pekka Laiho 2020-12-03 20:09:23 +07:00
parent 60726f0923
commit b360e213bf
1 changed files with 25 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/Lib/Math.php
View File

@ -25,32 +25,52 @@ class Math implements ILib
if (count($args) == 1) {
return -$args[0];
} else {
return array_reduce(array_slice($args, 1), fn ($a, $b) => $a - $b, $args[0]);
$a = $args[0];
for ($i = 1; $i < count($args); $i++) {
$a -= $args[$i];
}
return $a;
}
}
));
$env->set('*', new CoreFunc('*', 'Multiply the arguments.', 2, -1,
function (...$args) {
return array_reduce(array_slice($args, 1), fn ($a, $b) => $a * $b, $args[0]);
$a = $args[0];
for ($i = 1; $i < count($args); $i++) {
$a *= $args[$i];
}
return $a;
}
));
$env->set('/', new CoreFunc('/', 'Divide the arguments.', 2, -1,
function (...$args) {
return array_reduce(array_slice($args, 1), fn ($a, $b) => $a / $b, $args[0]);
$a = $args[0];
for ($i = 1; $i < count($args); $i++) {
$a /= $args[$i];
}
return $a;
}
));
$env->set('//', new CoreFunc('//', 'Divide the arguments using integer division.', 2, -1,
function (...$args) {
return array_reduce(array_slice($args, 1), fn ($a, $b) => intdiv($a, $b), $args[0]);
$a = $args[0];
for ($i = 1; $i < count($args); $i++) {
$a = intdiv($a, $args[$i]);
}
return $a;
}
));
$env->set('%', new CoreFunc('%', 'Calculate the modulo of arguments.', 2, -1,
function (...$args) {
return array_reduce(array_slice($args, 1), fn ($a, $b) => $a % $b, $args[0]);
$a = $args[0];
for ($i = 1; $i < count($args); $i++) {
$a %= $args[$i];
}
return $a;
}
));