maxsum([X], [Y], M) :- !, M is X+Y. maxsum([X|Xs], [Y|Ys], V) :- V is X+Y, maxsum(Xs, Ys, M), V > M, !. maxsum([X|Xs], [Y|Ys], M) :- maxsum(Xs, Ys, M).