Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- transpose([], []).
- transpose([F|Fs], Ts) :-
- transpose(F, [F|Fs], Ts).
- transpose([], _, []).
- transpose([_|Rs], Ms, [Ts|Tss]) :-
- lists_firsts_rests(Ms, Ts, Ms1),
- transpose(Rs, Ms1, Tss).
- lists_firsts_rests([], [], []).
- lists_firsts_rests([[F|Os]|Rest], [F|Fs], [Os|Oss]) :-
- lists_firsts_rests(Rest, Fs, Oss).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement