Andrea Gus преди 9 години
родител
ревизия
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).