> 1 <
Автор | Сообщение |
Whimchik
2 сообщений |
#6667 2012-10-17 17:12 GMT+3 часа(ов) |
Подскажите пожалуйста, что тут можно придумать:
Напишите функцию, осуществляющую замену элементов списка y на соответствующие элементы списка x в списке w, например, y=(a b), x=(1 2), w=((a b) a (c (a (a d)))) -> ((1 2) 1 (c (1 (1 d)))) Решение: (defun f (y x w) ( if (null w) nil (let ((c1 (first w)) (r (rest w))) (cond ((and (atom c1) (equal c1 (first y))) (cons (first x) (f y x r))) ((and (atom c1) (equal c1 (second y))) (cons (second x) (f y x r))) ((atom c1) (cons c1 (f y x r))) (t (cons (f y x c1) (f y x r)))) )) выдает ошибку unexpected E0F помогите сделать что бы заработала |
|
Aoloa
37 сообщений |
#6668 2012-10-17 18:29 GMT+3 часа(ов) |
EOF — это аббревиатура end of file, конец файла. Unexpected EOF значит Неожиданный конец файла. То есть Лисп ожидал чего-то, а вместо него наткнулся на конец файла.
Думаю, сами догадаетесь, чего лиспу не хватает и что Вам в конце нужно добавить (это всего один символ). Используйте редактор с подсветкой парных скобок (например, SciTE или AkelPad cо стандартным плагином XBrackets) — и таких ошибок у Вас не будет. |
|
With iTeX* your entire life can be encapsulated into a dynamic hyperdocument, downloadable by anybody you designate (Donald E. Knuth, An Earthshaking Announcement)
|
|
Whimchik
2 сообщений |
#6670 2012-10-18 10:30 GMT+3 часа(ов) |
Спасибо!!
|
|
xol
5 сообщений |
#8452 2020-05-16 07:10 GMT+3 часа(ов) |
AkelPad cо стандартным плагином XBracketsПоставил галочку на XBrackets:main , но подсветка не появилась. |
|
> 1 <