我开发了一个谓词来替换索引的值Index
一个列表的List
with Value
并创建一个新的更新列表NewList
.
%replace(List,Index,Value,NewList)
replace([_|T], 0, X, [X|T]).
replace([H|T], I, X, [H|R]):-
I > -1,
NI is I-1,
replace(T, NI, X, R), !.
replace(L, _, _, L).
该谓词在常规列表上工作得很好,但我想让它在列表列表上工作,但我有点陷入了一小步。
subs([]).
subs([Head|Tail], Index) :-
replace((Head), Index, 'r', Board2),
printRow(Board2),
subs(Tail).
原名单:
[ [ 0 , 1 , 2 , 3 , 4 ] ,
[ 5 , 6 , 7 , 8 , 9 ] ,
[ 10 , 11 , 12 , 13 , 14 ] ,
[ 15 , 16 , 17 , 18 , 19 ] ,
[ 20 , 21 , 22 , 23 , 23 ]
]
Output:
[ [ 0 , r , 2 , 3 , 4 ] ,
[ 5 , r , 7 , 8 , 9 ] ,
[ 10 , r , 12 , 13 , 14 ] ,
[ 15 , r , 17 , 18 , 19 ] ,
[ 20 , r , 22 , 23 , 23 ]
]
值得注意的是为什么会发生这种情况,因为它将值替换为Index = 1
在每个子列表上。
为了解决这个问题,我考虑实施一个计数器。通过每次迭代将索引增加 5(每个子列表的大小),谓词现在应该输出以下(所需的)列表:
期望的输出:
[ [ 0 , r , 2 , 3 , 4 ] ,
[ 5 , 6 , 7 , 8 , 9 ] ,
[ 10 , 11 , 12 , 13 , 14 ] ,
[ 15 , 16 , 17 , 18 , 19 ] ,
[ 20 , 21 , 22 , 23 , 23 ]
]
问题在于如何实现该计数器。代码应该如下所示,但我遗漏了一些东西:
subs([]).
subs([Head|Tail], Index) :-
replace((Head), Index, 'r', Board2),
printRow(Board2),
Index is Index + 5
subs(Tail, Index).
Output: subs(<Original List>, 7).
0 1 2 3 4
谁能给我一些关于如何实施它的帮助?