我需要从列表中的一个元素索引删除另一个索引元素。所以它应该看起来像:从列表中的一个索引元素删除到另一个索引元素
?-delm(2,4,[5,6,-3,6,11,56,81],L),write(L),nl.
L = [5,11,56,81]
所以我做了这个。
delm(A,B,C,D):-A>B,delm(B,A,C,D).
del1(1,[_|T],T):-!.
del1(N,[X|T],[X|L]):-N1 is N - 1,del1(N1,T,L).
delm(N,2,L,R):-del1(N,L,R),!.
delm(N,M,L,R):-M1 is M - 1,del1(N,L,Buf),delm(N,M1,Buf,R).
length([],0).
length([_|T],N):- length(T,N1),N is N1+1.
?-delm(2,4,[5,6,-3,6,11,56,81],L),write(L),nl.
但我还需要补充的是,如果其中一个数字小于1或大于列表长度,写入消息(“错误”)。所以它应该看起来像
?-delm(-2,4,[5,6,-3,6,11,56,81],L),write(L),nl.
"Error"
?-delm(2,-4,[5,6,-3,6,11,56,81],L),write(L),nl.
"Error"
?-delm(2,40,[5,6,-3,6,11,56,81],L),write(L),nl.
"Error"
我不知道该怎么做。请帮忙!
假设你也想产生“错误”,如果“A> B” - 或者没问题?编辑:NM,我看你在第一条规则中处理了。 – Orbling
您是否希望它为L返回'错误',还是单独输出? – Orbling
@Orbling我认为L,但是有什么区别吗? – Tanya