Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Lisp] функционалы на лиспе

Автор: DrWeb 30.11.2008, 22:46

У меня задание: определить функционал (apply_all fn x),который применяет каждую функцию f1 списка f=(f1,f2,...,fn) к соответствующему элементу x1 списка x=(x1,x2,..,xn) и формирует список,содержащий результаты применений.Вот мой код

/*****************************************/
(setq f1 '(+ - /))
(setq f2 '(f_1 f_2 f_3))
(setq f3 '((lambda(x y)(+ x y)) (lambda(x y)(- x y)) (lambda(x y)(/ x y))))

(setq c '((1 2) (1 2) (1 2)))

(defun apply_all(x y)
(setq w (car x))
(if (null x) nil
(if (listp y) (cons (apply (car x) (car y)) (apply_all (cdr x) (cdr y)))
)
)
)

(defun f_1(x y)
(+ x y)
)

(defun f_2(x y)
(- x y)
)

(defun f_3(x y)
(/ x y)
)

(apply_all f1 c)
(apply_all f2 c)
(apply_all f3 c)

/*****************************************/

и вроде бы все работает,но когда задаю такой пример: (apply_all '(cdr car atom) '((1 2) (1 2) 5)) то выводится резалт (nil 1 T).Почему nil если должно 2.Помогите плиз smile

Автор: adejneka 1.12.2008, 06:23

1. У Вас странно записано условие окончания цикла: (NULL X), при этом функция явно возвращает NIL, и (NOT (LISTP Y)), при этом функция тоже возвращает NIL, хотя это явно и не написано. Как-то не единообразно :-(. Если есть возможность, используйте OR или AND.

2. Определитесь с тем, что понимать под "применить F1 к X1": нужно ли использовать FUNCALL (т.е. (F1 X1)) или APPLY (т.е. (F1 X1_1 X1_2 ...), где X1=(X1_1 X1_2 ...))?

3. Используйте нормальную реализацию Лиспа. Например, SBCL на (apply_all '(cdr car atom) '((1 2) (1 2) 5)) сразу выдаёт ошибку о том, что функция CDR вызывается с двумя аргументами.

Автор: DrWeb 1.12.2008, 19:43

Ну null x проверяет пустой ли список-пофигу-в универ лаба=)
А вот на счет apply или funcall,то funcall скорее всего,но не знаю как код поменять.Мне это в универ лабу сдать нуно-подскажите плиз smile

За мной не заржавеет!)

А что вы имели ввиду на счет нормальной реализации?=)

Автор: adejneka 1.12.2008, 22:39

Если под "применить" имеется в виду FUNCALL, то все функции должны быть одноместными, т.е. (apply_all f1 c) работать не должен.

Если под "применить" имеется в виду APPLY, то Ваш последний пример нужно записать так: (apply_all '(cdr car atom) '(((1 2)) ((1 2)) (5))), при этом результатом будет ((2) 1 T). Что нужно сделать, чтобы получить (2 1 T), я не представляю.

Можно попытаться сделать APPLY, если аргумент - список, и FUNCALL иначе, но такая функция будет слабо управляемой.

Автор: DrWeb 2.12.2008, 18:47

Спасибо-я уже сдал ее седня.просто как пример я передал так: (apply_all '(cdr car atom) '(((1 2)) (1 2) 5)) и тогда резалт будет ((2) 1 T),
а шоб было (2 1 T) то нуно наверна так написать (apply_all '(cddr car atom) '(((1 2)) (1 2) 5)) , но это уже не надо.главное шо сдал))
Спасибо еще раз за помощь smile