|
|
|
Zz1n |
|
|||
Новичок Профиль Группа: Участник Сообщений: 1 Регистрация: 13.6.2011 Репутация: нет Всего: нет |
Добрый день форумчане. Не могу понять, почему вылетает ошибка.
(defun putassoc (key obj a_list) (cond ((null a_list) nil) ((eql (caar a_list) key) (rplacd (car a_list) obj)) ((null (cdr a_list)) (rplacd a_list) (list (cons key obj)))) (putassoc key obj (cdr a_list))) (trace putassoc) (setq lst nil) (setq lst (pairlis '(1 2 3) '(odin dva tri) lst)) (putassoc '2 'two lst) однако после выполнения (cons (car lst)(cdr lst)) результат показывает правильный. |
|||
|
||||
k0rvin |
|
||||
Опытный Профиль Группа: Участник Сообщений: 442 Регистрация: 24.1.2010 Репутация: нет Всего: 5 |
Потому что процедура написана неправильно.
-------------------- “Object-oriented design is the roman numerals of computing.” — Rob Pike All software sucks |
||||
|
|||||
Правила форума LISP | |
|
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Void. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | LISP | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |