Числові функції, Детальна інформація
Числові функції
-1 5/3
$ (numerator 10/8) $ (denominator 10/8 )
5 4
Побітові логічні функції
(LOGAND n1 n2...nM), (LOGIOR n1 n2 ... nM),
(LOGXOR n1 n2...nM), (LOGNOT n).
$ (LOGAND 5 7 3) $ (LOGIOR 4 2 1)
1 7
$ (LOGXOR 5 2 3) $ (LOGNOT 6)
4 -7
Бульові функції
(NOT об’єкт) – заперечення
(AND форма1 форма2 ... формаN) – кон’юнкція
(OR форма1 форма2 ... формаN) – диз’юнкція
$ (AND (EQL ‘as ‘as) (< 2 4)) $ (OR NIL (< 4 56)) $ (NOT (EQL ‘d ‘g))
T T T
Зсув
(SHIFT m n) — зсув числа m на n бітів.
Якщо m - додатне, то функція повертає результат зсуву числа n вліво на m бітів. Якщо m - від’ємне, то число n зсувається вправо на -m бітів.
(DEFUN SHIFT (N M)
( (AND (INTEGERP N) (INTEGERP M))
((ZEROP M) N)
((PLUSP M) (SHIFT (* N 2) (SUB1 M)) )
(SHIFT (TRUNCATE N 2) (ADD1 M))
)
(BREAK (LIST 'SHIFT N M) '"Noninteger Argument" )
)
$ (SHIFT 3 1) $ (SHIFT 3 -1) $ (SHIFT 4 -8) $ (SHIFT 3 5)
6 1 0 96
$ (SHIFT D 10)
$ (numerator 10/8) $ (denominator 10/8 )
5 4
Побітові логічні функції
(LOGAND n1 n2...nM), (LOGIOR n1 n2 ... nM),
(LOGXOR n1 n2...nM), (LOGNOT n).
$ (LOGAND 5 7 3) $ (LOGIOR 4 2 1)
1 7
$ (LOGXOR 5 2 3) $ (LOGNOT 6)
4 -7
Бульові функції
(NOT об’єкт) – заперечення
(AND форма1 форма2 ... формаN) – кон’юнкція
(OR форма1 форма2 ... формаN) – диз’юнкція
$ (AND (EQL ‘as ‘as) (< 2 4)) $ (OR NIL (< 4 56)) $ (NOT (EQL ‘d ‘g))
T T T
Зсув
(SHIFT m n) — зсув числа m на n бітів.
Якщо m - додатне, то функція повертає результат зсуву числа n вліво на m бітів. Якщо m - від’ємне, то число n зсувається вправо на -m бітів.
(DEFUN SHIFT (N M)
( (AND (INTEGERP N) (INTEGERP M))
((ZEROP M) N)
((PLUSP M) (SHIFT (* N 2) (SUB1 M)) )
(SHIFT (TRUNCATE N 2) (ADD1 M))
)
(BREAK (LIST 'SHIFT N M) '"Noninteger Argument" )
)
$ (SHIFT 3 1) $ (SHIFT 3 -1) $ (SHIFT 4 -8) $ (SHIFT 3 5)
6 1 0 96
$ (SHIFT D 10)
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021