From 37d9f943bcb59e7c8523e318ad9849e5743e294a Mon Sep 17 00:00:00 2001 From: Benjamin Franzke Date: Tue, 6 Nov 2012 11:49:17 +0100 Subject: tit4tat.pl: Remove debug output --- tit4tat.pl | 1 - 1 file changed, 1 deletion(-) diff --git a/tit4tat.pl b/tit4tat.pl index 6f801be..d6600e7 100644 --- a/tit4tat.pl +++ b/tit4tat.pl @@ -46,7 +46,6 @@ do(Choice, Hist, PayedA, PayedB) :- write('B Pay: '), write(PayB), write('\t'), write('A: '), sum([PayA|PayedA], SumA), write(SumA), write('\t'), write('B: '), sum([PayB|PayedB], SumB), write(SumB), nl, - write(Choice),nl, loop([Choice|Hist], [PayA|PayedA], [PayB|PayedB]). -- cgit