artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

core: Add logand, lognot.

Browse source 
* src/math.c (logand, lognot): New function.
This commit is contained in:
Jan Nieuwenhuizen 2017-08-27 12:53:01 +02:00
parent 989bfdbd25
commit 4175579d08
1 changed files with 21 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
src/math.c
View file

@ -135,6 +135,19 @@ multiply (SCM x) ///((name . "*") (arity . n))
return MAKE_NUMBER (n); return MAKE_NUMBER (n);
} }
SCM
logand (SCM x) ///((arity . n))
{
int n = 0;
while (x != cell_nil)
{
assert (TYPE (car (x)) == TNUMBER);
n &= VALUE (car (x));
x = cdr (x);
}
return MAKE_NUMBER (n);
}
SCM SCM
logior (SCM x) ///((arity . n)) logior (SCM x) ///((arity . n))
{ {
@ -148,6 +161,14 @@ logior (SCM x) ///((arity . n))
return MAKE_NUMBER (n); return MAKE_NUMBER (n);
} }
SCM
lognot (SCM x)
{
assert (TYPE (x) == TNUMBER);
int n = ~VALUE (x);
return MAKE_NUMBER (n);
}
SCM SCM
ash (SCM n, SCM count) ash (SCM n, SCM count)
{ {