Prolog谓词对子列表排序列表

Question

在prolog中，我尝试编写一个带有三个参数的谓词 第一个是第二个的子列表，第三个是排序的，包括第一个参数，然后是第一个参数。

find([a ,c,d] , [a,b,c,d,e,f], Result). 

结果应为[a,c,d,b,e,f]。

我的代码效果不佳

find(First,Second,X):-
findall(K, (member(K,Second),
           \+member(K,First),
           append(First,K)), X).