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-31 17:33:44 +08:00
parent b6c896a7c5
commit 369587606d
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
a8/lisp.cc
View File

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