VPF::mulisp - Форум программистов

M9C1K

Дата 20.11.2010, 10:20 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 17.5.2009

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

Здравствуйте! Не могу запустить программу на mulisp.
Подскажите почему.
Нужен сриншот программы.

Код


(DEFUN MEMBER (X L)
    (COND
        ((ATOM L) NIL)
        ((EQUAL X (CAR L)) T)
        (T (MEMBER X (CDR L)))))

(DEFUN CREATE SET (L R)
    (COND 
        ((ATOM L) NIL)
        ((NOT (MEMBER (CAR L) R)) (CONS (CAR L) (CREATE (CDR L) (CONS (CAR L) R))))
        (T (CREATE (CDR L) R))))

(PRINT '_)
(SETQ L '(a b a a c c))
(PRINT (CREATE SET L NIL))

Добавлено через 43 секунды
Опpеделите на языке ЛИСП и проверьте работу функции, пpеобpазующей список в множество.
Например, для списка (a b a a c c) функция должна вернуть (a b c).

VH_

Дата 20.11.2010, 18:09 (ссылка)

(голосов:1)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 182
Регистрация: 31.10.2006

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

Текст, начинающийся с "(DEFUN CREATE ...", не соответствует синтаксису вызова функции (defun).

M9C1K

Дата 21.11.2010, 09:36 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 17.5.2009

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

напишите пожалуйста как будет выглядеть рабочий вариант

VH_

Дата 22.11.2010, 16:39 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 182
Регистрация: 31.10.2006

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

(defun имя лямбда-список тело)

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