server_common/a8
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
aozhiwei 2023-03-08 18:01:17 +08:00
parent abee0bed17
commit 50c04d6bc1
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
a8/lisp.cc
View File

@ -143,10 +143,18 @@ namespace a8
[] (const List& params) -> std::shared_ptr<Value> [] (const List& params) -> std::shared_ptr<Value>
{ {
double result = 0; double result = 0;
for (auto param : *params) { if (params->size() > 0) {
result = std::any_cast<Atom>(params->at(0)->value).val;
if (params->size() > 1) {
for (int i = 1; i < params->size(); ++i) {
auto& param = params->at(i);
Atom&& atom = std::any_cast<Atom>(param->value); Atom&& atom = std::any_cast<Atom>(param->value);
result /= atom.val; result /= atom.val;
} }
} else {
result = 0;
}
}
return std::make_shared<Value>(Atom(result)); return std::make_shared<Value>(Atom(result));
}); });
} }