Вот оно задание http://hdd.tomsk.ru/file/tqeyschd
ФУНКЦИОНАЛЬНОЕ И ЛОГИЧЕСКОЕ ПРОГРАММИРОВАНИЕ
Страница: 1
Сообщений 1 страница 9 из 9
Поделиться22011-09-06 13:51:25
Вот про установку ЛИСП http://fritzmorgen.livejournal.com/248335.html
Проверял под вин7 32бит работает!
Поделиться32011-10-29 23:41:23
На HDD. удалены все файлы, в качестве альтернативы предлагаю пользоваться сервисом dropboxhttps://www.dropbox.com/, 2 бесплатных гигов,думаю хватит до конца учебы)))
ЗЫ поделитесь заданиями а?))
Поделиться52011-11-21 22:38:49
Хорошая книга по ЛИСПу советую почитать "Э. Хювёнен, И. Сеппянен - Мир Лиспа. Том 1. Введение в язык Лисп и функциональное программирование"
Поделиться72011-12-02 20:00:36
Лаба1 Вариант8
(defun my1 (a)(atom (nth (1-(length a)) a)))
(defun my2 (a) (cond ((my1 a) 'ATOM)(t 'LIST)))
Поделиться82011-12-02 20:04:52
Лаба 2 Вариант 8
------------------------создание списка
(defun ap(y)
(cond
((null (cadr y)) (list (car y)))
(t (list (cadr y)(car y)) )
)
)
------------------------рекурсия
(defun reverse1(a b)
(cond
((null a) b)
(t (reverse1 (cddr a) (append b (ap a)) ))
)
)
------------------------главная функция
(defun rev(x)
(cond
((null x) 'pusto)
((null (cdr x)) 'one_element)
(t (reverse1 x nil))
)
)
Поделиться92011-12-02 20:05:55
Лаба 3 Вариант 8
% «sum2(L1, L2) Складывает попарно числа списка L1, результирующий список – L2»
domains
integerlist = integer*
predicates
sumtwo(integerlist, integerlist)
clauses
sumtwo([], []).
sumtwo([X|[]], [X]).
sumtwo([X,Y|List1], [Z|List2]) if Z=X+Y,
sumtwo(List1, List2).
Страница: 1