如何编写从2列表中排序的新列表

Question

我正在学习序言，但遇到创建游戏术语猜测词的问题。我已经写了一些代码比较随机和单词输入中的单词。所以我将有2个列表，其中l1包含正确放置的字母，l2包含相同的索引字母。我想写一个例子：

word: LOGIQUE
input:  LOUANGE
result: !!?..?!

例如：L1 = [0,1,6]和L2 = [2,5]

我的代码从0到随机单词的长整数。

我的代码：

code:
add_list_result(_,_,_,0).
add_list_result([H1|T1],L2,[!|Result],Pos_next) :- H1 == Pos, Pos_next is Pos + 1, add_list_result(T1,L2,Result,Pos).
add_list_result(L1,[H2|T2],[?|Result],Pos_next) :- H2 == Pos, Pos_next is Pos + 1, add_list_result(L1,T2,Result,Pos).
add_list_result([H1|T1],[H2|T2],[*|Result],Pos_next) :- H2 \= Pos,H2 \= Pos, Pos_next is Pos + 1, add_list_result([H1|T1],[H2|T2],Result,Pos).

output:
add_list_result([0,1,6],[2,5],X,7).
no

但是当我尝试这段代码时，它没有运行。您能解决以帮助我吗