在列表序言列表中反向列表

Question

我想從列表列表中反轉每個列表。 我有一些看起來像：

[[a,b],[],[c,d,e],[],[],[f,g]]

我想要的是通讀列表列表並反轉每個列表並得到以下結果：

[[b,a],[],[e,d,c],[],[],[g,f]]

我已經有一個反向功能：

reverse(L, R) :- reverse(L, [], R).
reverse([], R, R).
reverse([H|T], A, R) :- reverse(T, [H|A], R).

我如何設法通讀清單？

這樣的遞歸函數會起作用嗎？

reverseLL([H|T], L) :-
   reverse(H,NH),
   reverseLL([T],[NH|L]).

reverseLL([],L).

Answer 1

reverseInList([],[]).
reverseInList([H|Ts],[H1|R]):-
    reverse(H,H1),
    reverseInList(Ts,R).

這可以通過遍歷列表並使用庫函數“ reverse / 2”來反轉每個子列表來實現。