Форум АНТИЧАТ - [ 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, проигрывает тот, кто берет последнюю).

[РЕАЛИЗОВАНО]