From 99d6a28c24f515ef492b50c6eba3af70177b4cbc Mon Sep 17 00:00:00 2001 From: Benjamin Franzke Date: Tue, 6 Nov 2012 11:54:05 +0100 Subject: tit4tat.pl: Coding style --- tit4tat.pl | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/tit4tat.pl b/tit4tat.pl index d6600e7..a4e7664 100644 --- a/tit4tat.pl +++ b/tit4tat.pl @@ -22,9 +22,7 @@ pay(d,d,2). pay(c,c,3). pay(d,c,4). -pay2(A, B, PayA, PayB) :- - pay(A, B, PayA), - pay(B, A, PayB). +pay2(A, B, PayA, PayB) :- pay(A, B, PayA), pay(B, A, PayB). % Use opponents last decision tit4tat_select(H,[H|_]). -- cgit