このディレクトリの索引

#  問題

'Listの要素が[A,B]であり、A,BはそれぞれList1,List2の要素である'(List,List1,List2,A,B) :-
        append(_,[[A,B]|_],List),
        append(_,[A|_],List1),
        append(_,[B|_],List2).