 |
16.05.2010, 21:42
|
|
Участник форума
Регистрация: 15.03.2009
Сообщений: 183
С нами:
9030530
Репутация:
160
|
|
[ LISP ] нужна помощь
Доброго времени. Кто сможет помочь с лабами по LISP?
в разделе с лабами постить на стал, вроде не формат.
Нажно написать две проги на Lisp, а одну переписать с пролога:
В качестве вознаграждения могу голосов вк подкинуть.
1. Реализовать операции вставки и удаления записей из упорядоченного списка.
Prolog:
PHP код:
domains
number = integer
list = number *
predicates
insort(list,list)
insortx(number,list,list)
order(number,number)
delete(list,list)
clauses
insort([], []).
insort([X|L], M) :- insort(L, N), insortx(X, N, M).
insortx(X, [A|L], [A|M]) :- order(A, X), !, insortx(X, L, M).
insortx(X, L, [X|L]).
order(X, Y) :- X <= Y.
delete([_|[]],[]).
delete([X|Y1],[X|Y2]):-delete(Y1,Y2).
2. Вершины дерева помечены целыми числами. Построить список сумм чисел на каждом пути от корня до листьев.
3. Напишите программу, которая имитирует игру "12 палочек" (на каждом шаге можно взять 1,2 или 3, проигрывает тот, кто берет последнюю).
[РЕАЛИЗОВАНО]
Последний раз редактировалось Epic wave; 02.06.2010 в 17:28..
|
|
|
|
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
