SWI-Prolog----------------

1) % Тестирование (текст программки)

%1 ?- p(s,3,[1,2,3,4,t],T).

%

%T = [1, 2, s, 3, 4, t] ;

%

%No

%2 ?- p(a,1,[1,2,3,4,t],T).

%

%T = [a, 1, 2, 3, 4, t] ;

p(X,1,L,[XL]).

p(X,N,[AV],[AL]):-

Ngt;1,

N1 is N-1,

p(X,N1,V,L).

2)Код к задаче: Удаление N-го элемента из списка - Prolog

1.p([],N,'Error'):-Ngt;0.

2.p([_Tail],N,'Error'):-N1 is N-1,p(Tail,N1,"Error").

3.p([_BL],1,BL).

4.p([ALBL],N,[ALCL]) :-Ngt;1, N1 is N-1, p(BL,N1,CL).

Полное решение и подробнее будет смотреться, так:

% Тестирование

%1 ?- p(1,[1,2,3,a,s,d,4,5],O).

%

%O = [2, 3, a, s, d, 4, 5] ;

%

%No

%2 ?- p(4,[1,2,3,a,s,d,4,5],O).

%

%O = [1, 2, 3, s, d, 4, 5] ;

%

%No

p(1,[AL],L).

p(N,[AV],[AL]):-

Ngt;1,

N1 is N-1,

p(N1,V,L).

Фортуны, в информатике)