rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

resolve calls to tranpose_ and same_length in lists.pl (#790)

Browse Source
This commit is contained in:
Mark Thom
2021-02-03 16:38:44 -07:00
parent a8a82e45a0
commit 2fe55e4715
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/lib/lists.pl
View File

@@ -160,8 +160,8 @@ transpose(Ls, Ts) :-
lists_transpose([], []). lists_transpose([], []).
lists_transpose([L|Ls], Ts) :- lists_transpose([L|Ls], Ts) :-
maplist(same_length(L), Ls), maplist(lists:same_length(L), Ls),
foldl(transpose_, L, Ts, [L|Ls], _). foldl(lists:transpose_, L, Ts, [L|Ls], _).
transpose_(_, Fs, Lists0, Lists) :- transpose_(_, Fs, Lists0, Lists) :-
maplist(lists:list_first_rest, Lists0, Fs, Lists). maplist(lists:list_first_rest, Lists0, Fs, Lists).