Для каждого из следующих условий определить функцию одного аргумента L , которая имеет значение T - Lisp
Формулировка задачи:
Для каждого из следующих условий определить функцию одного аргумента L , которая имеет значение T , если условие удовлетворяется, и NIL в противном случае:
• n - ый элемент L есть 12;
Решение задачи: «Для каждого из следующих условий определить функцию одного аргумента L , которая имеет значение T»
textual
Листинг программы
(defun f (n w) (equalp (nth n w) 12)) > (f 1 '(10 11 12)) NIL > (f 2 '(10 11 12)) T
Объяснение кода листинга программы
В коде определена функция f с двумя аргументами n и w.
Функция проверяет, равен ли элемент списка с индексом n числу 12.
Если это так, то функция возвращает T, иначе — NIL.
Примеры использования функции:
— > (f 1 '(10 11 12)) — функция f с аргументами 1 и (10 11 12) возвращает NIL, потому что элемент списка с индексом 1 не равен 12.
— > (f 2 '(10 11 12)) — функция f с аргументами 2 и (10 11 12) возвращает T, потому что элемент списка с индексом 2 равен 12.