Определить рекурсивную функцию - 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)))))
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
