Andrea Gus 9 rokov pred
rodič
commit
bb56291abb
1 zmenil súbory, kde vykonal 3 pridanie a 0 odobranie
  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).