diff options
-rw-r--r-- | tit4tat.pl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -36,7 +36,7 @@ tit4tat(A, Hist, PayA, PayB) :- pay2(A, Old, PayA, PayB). sum([], 0). -sum([H|T], S):-sum(T, TMP), S is TMP + H. +sum([H|T], S) :- sum(T, TMP), S is TMP + H. loop(end, _). loop(End, Hist, PayedA, PayedB):- End\=end, |