Форум АНТИЧАТ - [ LISP ] нужна помощь

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

[ LISP ] нужна помощь

16.05.2010, 21:42

Epic wave

Участник форума

Регистрация: 15.03.2009

Сообщений: 183

Провел на форуме:
3441717

Репутация: 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..