如何更改列表中两个元素的位置（PROLOG）
谓词如何更改列表中两个元素的位置（PROLOG）,prolog,Prolog,谓词改变位置（E1、E2、Lin、Lout）。 Lin有任意数量的元素，我需要将所有出现的E1更改为E2，反之亦然。然后返回Lout 我在想这样做： change(X, Y, [], []). change(X, Y, [X|L], [Y,L1]):- change(X,Y,L,L1). change(X, Y, [Z|L], [Z,L1]:- X \== Z, change(X,Y,L,L1). 但这种方式并不是刷两个号码的列表你就快到了。您的基本情况（空列表）和第二条规则（将X交换为Y）基
改变位置（E1、E2、Lin、Lout）。LinE1E2Lout我在想这样做：
change(X, Y, [], []).
change(X, Y, [X|L], [Y,L1]):- change(X,Y,L,L1).
change(X, Y, [Z|L], [Z,L1]:- X \== Z, change(X,Y,L,L1).
但这种方式并不是刷两个号码的列表你就快到了。您的基本情况（空列表）和第二条规则（将
XYYXZXYZchange(X, Y, [], []).
change(X, Y, [X|L], [Y|L1]) :-
change(X,Y,L,L1).
change(X, Y, [Y|L], [X|L1]) :- % <- vice versa case
change(X,Y,L,L1).
change(X, Y, [Z|L], [Z|L1]) :-
dif(X,Z), % <- neither X=Z
dif(Y,Z), % <- nor vice versa
change(X,Y,L,L1).
[2,1,3,4]21[2,1,3,4][1,2,3,4]你快到了。您的基本情况（空列表）和第二条规则（将
XYYXZXYZchange(X, Y, [], []).
change(X, Y, [X|L], [Y|L1]) :-
change(X,Y,L,L1).
change(X, Y, [Y|L], [X|L1]) :- % <- vice versa case
change(X,Y,L,L1).
change(X, Y, [Z|L], [Z|L1]) :-
dif(X,Z), % <- neither X=Z
dif(Y,Z), % <- nor vice versa
change(X,Y,L,L1).
[2,1,3,4]21[2,1,3,4][1,2,3,4]我假设，因为这是家庭作业，所以这是一个学习列表处理和递归的练习。但在Prolog中，在列表中依次处理每个术语的常用工具是
maplist% Rule for changing one element
change_element(X, Y, X, Y).
change_element(X, Y, Y, X).
change_element(X, Y, Z, Z) :- dif(X, Z), dif(Y, Z).
% Rule for changing a list
change(X, Y, L1, L2) :-
maplist(change_element(X, Y), L1, L2).
?- change(a, b, [a,b,c,b,a], L).
L = [b, a, c, a, b] ? ;
no
?-
?- change(a, b, [a,b,c,b,a], L).
L = [b, a, c, a, b].
?-
对于测定溶液，您可以使用： 这将产生：
?- change(a, b, [a,b,c,b,a], L).
L = [b, a, c, a, b] ? ;
no
?-
?- change(a, b, [a,b,c,b,a], L).
L = [b, a, c, a, b].
?-
我假设，因为这是家庭作业，所以这是一个学习列表处理和递归的练习。但在Prolog中，在列表中依次处理每个术语的常用工具是
maplist% Rule for changing one element
change_element(X, Y, X, Y).
change_element(X, Y, Y, X).
change_element(X, Y, Z, Z) :- dif(X, Z), dif(Y, Z).
% Rule for changing a list
change(X, Y, L1, L2) :-
maplist(change_element(X, Y), L1, L2).
?- change(a, b, [a,b,c,b,a], L).
L = [b, a, c, a, b] ? ;
no
?-
?- change(a, b, [a,b,c,b,a], L).
L = [b, a, c, a, b].
?-
对于测定溶液，您可以使用： 这将产生：
?- change(a, b, [a,b,c,b,a], L).
L = [b, a, c, a, b] ? ;
no
?-
?- change(a, b, [a,b,c,b,a], L).
L = [b, a, c, a, b].
?-
我在考虑做这样的事情：改变（X，Y，[]，[]）。改变（X，Y，[X | L]，[Y，L1]）：-改变（X，Y，L，L1）。change（X，Y，[Z | L]，[Z，L1]：-X\==Z，change（X，Y，L，L1）。但这种方式并不是刷两个数字list@JessicaSimoes-尝试将
[Y，L1][Y | L1][Z，L1][Z | L1]）：-[Y，L1][Y | L1][Z，L1][Z | L1]）：-；否change（a，a，[a]，[a]）？-change（a，a，[a]，[a]）。重复相同。，重复/0truechange（a，a，[a]，[a]）？-change（a，a，[a]，[a]）。重复相同。，重复/0truechange1/4change1/4