From 83b94f13a82d58c845876787321209e271edd2f9 Mon Sep 17 00:00:00 2001
From: Benjamin Franzke <benjaminfranzke@googlemail.com>
Date: Tue, 6 Nov 2012 11:44:31 +0100
Subject: tit4tat.pl: Coding style fixes

---
 tit4tat.pl | 4 ++--
 1 file 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.
-- 
cgit