1

Нужна помощь с написание предикатов на Prolog

Предикат destlev1 для уничтожения уровней в списке. Пример: исходный список [a,[b,[c]]], результирующий список [a,b,c]. Предикат destlev2 для уничтожения уровней в списке. Пример: исходный список [[[a],b],c], результирующий список [a,b,c].

1 ответ 1

1

Достаточно одного предиката destlev/2 для обоих примеров

Вот решение для SWI Prolog:

destlev([], []).
destlev([ X | Xs ], Result):-
    is_list(X)->  
    (   
        destlev(X, Xf),
        destlev( Xs, Xfs ),
        append(Xf, Xfs, Result)
    )
    ;
    ( 
        destlev( Xs, Xfs ),   
        Result = [X | Xfs]
    ).
   

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.