Browse Source

a prolog exercise

Andrea Gus 9 years ago
parent
commit
bb56291abb
1 changed files with 3 additions and 0 deletions
  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).