diff options
-rw-r--r-- | tit4tat.pl | 1 |
1 files changed, 0 insertions, 1 deletions
@@ -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]). |