用Prolog替換列表中的元素

Question

如何用prolog替換列表中的任何元素？

例如：

replace(2,[1,2,3,2,1],5,X) 

應該有兩種解決方案：

• X = [1,5,3,2,1]
• X = [1,2,3,5,1]

Answer 1

您可以通過迭代輸入列表中做到這一點：

%replace(_, [], _, []). 
replace(Element, [Element|Tail], NElement, [NElement|Tail]). 
replace(Element, [CurElement|Tail], NElement, [CurElement|NTail]):- 
    replace(Element, Tail, NElement, NTail). 

樣品輸入：

?- replace(2,[1,2,3,2,1],5,X). 
X = [1, 5, 3, 2, 1] ; 
X = [1, 2, 3, 5, 1] ; 

如果取消對第一條它也將輸出的解決方案，其中輸出列表保持不變。

第一個子句（註釋）是迭代列表的基本情況。它指出，替換的空列表清單本身就是空的。

第二個條款規定，如果列表的頭部與元素一致，則替換列表將包含替換的元素和列表的其餘部分（尾部）。

第三個子句是遞歸步驟，它接收第一個元素並以列表的尾部遞歸調用，並且輸出是與遞歸調用的結果連接的元素。