Числовi функцiї

Повертає значення -1, 0 або 1 якщо n вiдповiдно вiд'ємне, 0, або додатнє.

4. Модуль числа

(ABS n) - модуль числа n.

5. Чисельник та знаменник

(NUMERATOR n), (DENOMINATOR n) - чисельник та знаменник числа n.

$ (signum -5/3)$ (abs -5/3)$ (numerator 10/8)$ (denominator 10/8 )

-15/354

6. Побiтовi логiчнi функцiї

(LOGAND n1 n2 ... nM), (LOGIOR n1 n2 ... nM), (LOGXOR n1 n2 ... nM), (LOGNOT n).

$ (LOGAND 5 7 3)$ (LOGIOR 4 2 1)$ (LOGXOR 5 2 3) $ (LOGNOT 6)

174 -7

7. Булевi функцiї

(NOT об'єкт), (AND форма1 форма2 ... формаN), (OR форма1 форма2 ... формаN).

$ (AND (EQL 'as 'as) (< 2 4))$ (OR NIL (< 4 56))$ (NOT (EQL 'd 'g))

TTT

8. Зсув.

(SHIFT m n) - зсув числа m на n бiтiв.

$ (SHIFT 3 1)$ (SHIFT 3 -1)$ (GCD 24 66 600)$ (LCM 24 66 600)

6166600

9. НСД, НСК.

(GCD n1 n2 ... nM), (LCM n1 n2 ... nM).

Цi функцiї знаходять вiдповiдно найбiльший спiльний дiльник M чисел та найменше спiльне кратне.

Аpифметичнi задачiЗадача 1. Список lst має 100 елементiв, якi дорiвнюють 0 або 1. Написати функцiю (CHANGE01 lst), яка повертає список, у якому всi елементи 0 замiненi на 1, а 1 - на 0. Необхiдно замiсть використання умовного оператора застосувати дiю X := 1 - X.

(DEFUN CHANGE01 (lst)

((NULL lst) NIL)