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

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Epic wave, 16 May 2010.

  1. Epic wave

    Epic wave Member

    Joined:
    15 Mar 2009
    Messages:
    105
    Likes Received:
    72
    Reputations:
    -1
    Доброго времени. Кто сможет помочь с лабами по 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(LN), insortx(XNM).

        
    insortx(X, [A|L], [A|M]) :- order(AX), !, insortx(XLM).

        
    insortx(XL, [X|L]).

        
    order(XY) :- <= Y.

    delete([_|[]],[]).
           
           
    delete([X|Y1],[X|Y2]):-delete(Y1,Y2).


    2. Вершины дерева помечены целыми числами. Построить список сумм чисел на каждом пути от корня до листьев.


    3. Напишите программу, которая имитирует игру "12 палочек" (на каждом шаге можно взять 1,2 или 3, проигрывает тот, кто берет последнюю).


    [РЕАЛИЗОВАНО]
     
    #1 Epic wave, 16 May 2010
    Last edited: 2 Jun 2010