Epic wave
16.05.2010, 21:42
Доброго времени. Кто сможет помочь с лабами по LISP?
в разделе с лабами постить на стал, вроде не формат.
Нажно написать две проги на Lisp, а одну переписать с пролога:
В качестве вознаграждения могу голосов вк подкинуть.
1. Реализовать операции вставки и удаления записей из упорядоченного списка.
Prolog:
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, проигрывает тот, кто берет последнюю).
[РЕАЛИЗОВАНО]
в разделе с лабами постить на стал, вроде не формат.
Нажно написать две проги на Lisp, а одну переписать с пролога:
В качестве вознаграждения могу голосов вк подкинуть.
1. Реализовать операции вставки и удаления записей из упорядоченного списка.
Prolog:
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, проигрывает тот, кто берет последнюю).
[РЕАЛИЗОВАНО]