Номер заданного элемента - Prolog

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

Найти номер заданного элемента, если он стоит на середине, удалить элементы второй половины списка

domains
L=integer*
N=integer.
 
predicates
conc(L,L,L)
rev(L,L)
rd(N,L).
 
clauses
rd(0,[]).
rd(N,L):-
readint(A),
N1=N-1, rd(N1,L1),
L=[A|L1].
 
conc([],X,X).
conc([H|T],X,[H|Z]):-
conc(T,X,Z).
 
rev([],[]).
rev([H|T],Z):-
rev(T,Q), conc(Q,[H],Z).
/* номер позиции элемента*/
find_pos(list,int,int)
/* номер позиции элемента*/
find_pos([],_,0):-!.
find_pos([H|T],X,K):- X<>H,K1=K+1,find_pos(T,X,K1).
find_pos(_,_,K):-write(K),nl,!.
/* выведет элемент под номером N*/
find_n([],_,0):-!.
find_n([_|T],N,K):- N<>K,K1=K+1,find_n(T,N,K1).
find_n([H|_],_,_):-write(H),nl,!.
/*--------------------------------*/
/* удалить элемент с заданным номером */
del_n(list,int,int,list,list)

помогите все это нормально связать

Решение задачи: «Номер заданного элемента»

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

                            domains
int=integer
intl=int*
 
predicates
delbynum(intl,int,intl)
 
clauses
delbynum([],_,[]).
delbynum([_|T],0,T).
delbynum([H|T],N,[H|R]) :- N1=N-1, delbynum(T,N1,R).
                        

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

7 голосов , оценка 4.143 из 5

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