prolog - Prolog のリストから連続するすべての要素を取得するにはどうすればよいですか?

Question

リストがあるとしましょう [[a,b,c],[d,e,f],[g,h,i]]

連続するすべての要素を取得して、別の述語に入れたい。

func(a,b).
func(b,c).

func(d,e).
func(e,f).

func(g,h).
func(h,i).

入れたい述語は既に書いたのですが、リストのリストから2つの要素を取得するのに苦労しています。

Answer 1

あなたが試すことができます ：

consecutive(L, R) :-
    maplist(create_func, L, RT),
    flatten(RT, R).

create_func([A,B], [func(A,B)]) :- !.

create_func([A,B | T], [func(A,B) | R]) :-
    create_func([B | T], R).