Andrea Gus 9 лет назад
Родитель
Сommit
bb56291abb
1 измененных файлов с 3 добавлено и 0 удалено
  1. 3 0
      prolog/prolog2.pl

+ 3 - 0
prolog/prolog2.pl

@@ -0,0 +1,3 @@
+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).