Числові функції, Детальна інформація

-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)