このディレクトリの索引

zip(L1,L2,L3) :-
        L1 = [A|R1],
        L2 = [B|R2],
        L3 = [[A,B]|R3],
        zip(R1,R2,R3).
zip([],[],[]).