diff options
| author | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-06 11:31:11 +0100 |
|---|---|---|
| committer | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-06 11:31:11 +0100 |
| commit | 99a16b0ac78c3e33ec3f1c31e1fe1f5a6d38b5f0 (patch) | |
| tree | ff2925822b4e5934d2ba40681e92de32676c6add | |
| parent | 2699d094d6afe132fd1398f0de35201d918d6d7f (diff) | |
| download | wbs-99a16b0ac78c3e33ec3f1c31e1fe1f5a6d38b5f0.tar.gz wbs-99a16b0ac78c3e33ec3f1c31e1fe1f5a6d38b5f0.tar.bz2 wbs-99a16b0ac78c3e33ec3f1c31e1fe1f5a6d38b5f0.zip | |
tit4tat.pl: Coding style fixes in sum()
| -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, |