summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBenjamin Franzke <benjaminfranzke@googlemail.com>2012-11-06 11:54:05 +0100
committerBenjamin Franzke <benjaminfranzke@googlemail.com>2012-11-06 11:54:05 +0100
commit99d6a28c24f515ef492b50c6eba3af70177b4cbc (patch)
treef2f231ef0452b64e4bf51cd6778f301a2ded8ea2
parent37d9f943bcb59e7c8523e318ad9849e5743e294a (diff)
downloadwbs-99d6a28c24f515ef492b50c6eba3af70177b4cbc.tar.gz
wbs-99d6a28c24f515ef492b50c6eba3af70177b4cbc.tar.bz2
wbs-99d6a28c24f515ef492b50c6eba3af70177b4cbc.zip
tit4tat.pl: Coding style
-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|_]).