VPF::[Lisp] функционалы на лиспе - Форум программистов

DrWeb

Дата 30.11.2008, 22:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 78
Регистрация: 25.11.2007
Где: Украина, Донецк

Репутация: 1
Всего: 1

У меня задание: определить функционал (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 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 105
Регистрация: 8.7.2005
Где: Москва, Россия

Репутация: 2
Всего: 11

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 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 78
Регистрация: 25.11.2007
Где: Украина, Донецк

Репутация: 1
Всего: 1

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

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

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

Это сообщение отредактировал(а) DrWeb - 1.12.2008, 19:45

adejneka

Дата 1.12.2008, 22:39 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 105
Регистрация: 8.7.2005
Где: Москва, Россия

Репутация: 2
Всего: 11

Если под "применить" имеется в виду 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 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 78
Регистрация: 25.11.2007
Где: Украина, Донецк

Репутация: 1
Всего: 1

Спасибо-я уже сдал ее седня.просто как пример я передал так: (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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »