Prolog 谓词提取给定单词列表中紧随某个单词之后的所有单词

Question

正如标题中所说，我需要获取序言中特定单词之后的所有单词，例如:

?- find([in, house, car, in, shop, no, more, apples, in, table], in , X).

X = [house, shop, table] ;

No

这是我到目前为止编写的代码:

find([H,H_1|_],H,[H_1]).
find([Head,Head_1|Tail], Term, [Head|Result]) :-
     find(Tail, Term, Result).

运行后，我得到:

X = [house] ;

X = [in, car, shop, more, table] ;

No

Answer 1

没有什么比编写简单的程序来学习语言更好的了。掌握基础知识后，您可能会对更惯用的方法感兴趣:

find(L,W,Fs) :- findall(F, append(_,[W,F|_],L), Fs).