summaryrefslogtreecommitdiff
path: root/tit4tat.pl
diff options
context:
space:
mode:
Diffstat (limited to 'tit4tat.pl')
-rw-r--r--tit4tat.pl4
1 files changed, 1 insertions, 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|_]).