AI_LAB2_TASK7

/*  Задание 7. Просуммировать значения во всех подсписках вложенного списка    */

%!  Сумма элементов списка
%
sum_list([], 0).
sum_list([H|T], Sum):-
    sum_list(T, Sum1),
    Sum is Sum1 + H.
msum(L1, L2):- msum(L1, [], L2).
msum([], RES, L2):-
    invert(RES, L2),
    !.
msum([H|T], Acc, L2):-
    sum_list(H, S),
    msum(T, [S|Acc], L2).