Усечение списка до указанной длины с помощью стандартных функций - Prolog

Формулировка задачи:

Здравствуйте! Требуется написать усечение списка до указанной длины, т.е. оставить первые N элементов, с помощью стандартных функций (append, remove, member и пр.). Без их использования все довольно просто:

cutlist(X,0,[]).
cutlist([X|Y],K,[X|Y1]):-
    K1 is K - 1,
    cutlist(Y,K1,Y1).

Но с использованием append ничего не выходит:

cutlist1(X,0,[]).
cutlist1([X|X1],N,[X|Y1]):-
    K1 is K - 1,
    append(X,Y1,Y),
    cutlist1(X1,K1,Y1).

Помогите, пожалуйста! Пользуюсь Gprolog'ом или SWI-prolog'ом.

Решение задачи: «Усечение списка до указанной длины с помощью стандартных функций»

textual
                            Листинг программы 
                        

                            cutlist2(Zs, N, Xs) :-
    length(Xs, N),
    append(Xs, _Ys, Zs).
                        

Оцени полезность:

9 голосов , оценка 3.333 из 5

Похожие ответы