Anonymous user
Matrix transposition: Difference between revisions
→{{header|Prolog}}
Line 1,111:
transpose(In, Out) :-
In = [H |
% we use the difference list to make "quick" appends (one inference)
initdl(V, [V | X] - X).
work(Lst, [], Out) :-
Line 1,136 ⟶ 1,134:
dl2l(X-[], X).
</lang>
=={{header|PureBasic}}==
| |||