> 1 <

Автор Сообщение

Whimchik

Members


Статус

2 сообщений

Где: Russia
Род занятий:
Возраст:

#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

Members


Статус

37 сообщений

Где: Ukraine
Род занятий:
Возраст:

#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

Members


Статус

2 сообщений

Где: Russia
Род занятий:
Возраст:

#6670   2012-10-18 10:30 GMT+3 часа(ов)      
Спасибо!!

xol

Members


Статус

5 сообщений

Где: Russia
Род занятий:
Возраст:

#8452   2020-05-16 07:10 GMT+3 часа(ов)      
AkelPad cо стандартным плагином XBrackets

Поставил галочку на XBrackets:main , но подсветка не появилась.
> 1 <


Онлайн :

0 пользователь(ей), 42 гость(ей) :




Реклама на сайте: