Определить рекурсивную функцию - Lisp (229025)
Формулировка задачи:
(SINONIM a x) выдает синоним слова a, если находит его в словаре
синонимов x, и nil в противном случае. Словарь содержит пары: каждое
второе слово является синонимом первого. Например:
> SINONIM ' набор '( бездна пропасть набор комплект красный алый))
вызов
комплект ; результат
Решение задачи: «Определить рекурсивную функцию»
textual
Листинг программы
(defun sinonim (wd dict) (cond ((null dict) nil) ((eq (car dict) wd) (cadr dict)) ((eq (cadr dict) wd) (car dict)) (t (sinonim wd (cddr dict)))))