kayprish/cirilisp
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Поправљена функција за дељење

Browse source
This commit is contained in:
kappa 2019-01-16 01:10:27 +01:00
parent 25858c21e1
commit ecba64be1b
1 changed files with 18 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
eval.c
View file

@ -221,13 +221,29 @@ object divide(object parameters)
ERRMSG(result) = argumentNumberError;
}
else if (listLength(parameters) == 1)
{
if (NUM(CAR(parameters)) != 0)
{
NUM(result) = 1/NUM(CAR(parameters));
}
else
{
TYPE(result) = errorObject;
ERRMSG(result) = divisionByZeroError;
}
}
else
{
if (NUM(add(CDR(parameters))) != 0)
{
NUM(result) = NUM(CAR(parameters))/NUM(add(CDR(parameters)));
}
else
{
TYPE(result) = errorObject;
ERRMSG(result) = divisionByZeroError;
}
}
return result;
}