summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tit4tat.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/tit4tat.pl b/tit4tat.pl
index 528d915..6f801be 100644
--- a/tit4tat.pl
+++ b/tit4tat.pl
@@ -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.