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]
    ).
   

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

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