Напишите, пожалуйста, функцию в Homelisp, которая проверяет принадлежность элемента к списку

@adrin13 · Регистрация: 20.09.2013

Author24 — интернет-сервис помощи студентам

Напишите, пожалуйста, функцию в Homelisp, которая проверяет принадлежность элемента к списку. Но так, что бы список и элемент, который проверяется на принадлежность к этому списку задавался через диалоговые окна. Ну и результат в ввиде да/нет,...

Вот был вариант реализации без форм самого алгоритма у Catstail:

Lisp

((lambda (lst a f) (cond ((null lst) nil) 
                         ((equal a (car lst)) t)
                         (t (funcall f (cdr lst) a f))))
 '(a b (c d) e f) 'e 
 '(lambda (lst a f) (cond ((null lst) nil) 
                          ((equal a (car lst)) t)
                          (t (funcall f (cdr lst) a f)))))

А вот сам вариант работы с диал. окнами, не могу дотямкать как это объеденить в рабочее что-то, а то я пока что нуб:

Lisp

(defun task ()
  (input (strCat "(" (ask "Введите фразу") ")")))
 
==> task
 
(task)
 
==> (Хорошо ходить конем, власть держать над полным залом)

@Catstail · 11.05.2014, 15:16

Сообщение от adrin13

Вот был вариант реализации без форм самого алгоритма у Catstail:

- ну зачем же такой сложный вариант выбирать (автоапппликацию)? Вот проще:

Lisp

(defun isInList (a lst)
  (if lst (if (eq a (car lst)) t (isInList a (cdr lst))) nil))
 
==> isInList
 
(isInList 's '(a s d f))
 
==> T
 
(isInList 'q '(a s d f))
 
==> NIL
 
(defun task nil
  (let ((a (input (ask "Введите атом")))
        (lst (input (ask "Введите список"))))
    (if (isInList a lst) (say (strCat "Атом " (output a) " входит в список " (output lst)))
                         (say (strCat "Атом " (output a) " НЕ входит в список " (output lst))))))

@adrin13 · 11.05.2014, 17:12 **[ТС]**

Catstail, Спасибо, работает, не сразу правда понял, что список в форму в скобках набирать нужно, но потом допер)

@adrin13 0 / 0 / 0 Регистрация: 20.09.2013 Сообщений: 4
	11.05.2014, 17:12 [ТС]	3
	Catstail, Спасибо, работает, не сразу правда понял, что список в форму в скобках набирать нужно, но потом допер) 0

Напишите, пожалуйста, функцию в Homelisp, которая проверяет принадлежность элемента к списку

Решение