diff options
| author | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-06 11:44:31 +0100 |
|---|---|---|
| committer | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-06 11:47:10 +0100 |
| commit | 83b94f13a82d58c845876787321209e271edd2f9 (patch) | |
| tree | 325953313fe9de5992f96fe05be674b7e07cf51d | |
| parent | 8dde09d79e2e9317ecee48b95f715670f30e6103 (diff) | |
| download | wbs-83b94f13a82d58c845876787321209e271edd2f9.tar.gz wbs-83b94f13a82d58c845876787321209e271edd2f9.tar.bz2 wbs-83b94f13a82d58c845876787321209e271edd2f9.zip | |
tit4tat.pl: Coding style fixes
| -rw-r--r-- | tit4tat.pl | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -38,7 +38,7 @@ tit4tat(A, Hist, PayA, PayB) :- sum([], 0). sum([H|T], S) :- sum(T, TMP), S is TMP + H. -do(e, _, _, _):-!. +do(e, _, _, _) :- !. do(Choice, Hist, PayedA, PayedB) :- tit4tat(Choice, Hist, PayA, PayB), @@ -54,4 +54,4 @@ loop(Hist, PayedA, PayedB) :- write('Type c,d or e to end: '), read(Choice), do(Choice, Hist, PayedA, PayedB). -start :- loop([], [], []),halt. +start :- loop([], [], []), halt. |