Commit a4423b01 authored by HEMERY Mathieu's avatar HEMERY Mathieu
Browse files

Merge branch 'develop' into feature/Hybrid

parents 583f9519 cbb987b7
......@@ -168,11 +168,8 @@ list(List) :-
%
% Add two lists term at term
add_list([],[],[]).
add_list([Head1|Tail1],[Head2|Tail2],[HeadSum|TailSum]) :-
HeadSum is Head1 + Head2,
add_list(Tail1,Tail2,TailSum).
add_list(L1, L2, L12) :-
maplist(plus, L1, L2, L12).
%! multiply_list(+List, +A, -Alist)
%
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment