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).