summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--prisoners_dilemma.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/prisoners_dilemma.pl b/prisoners_dilemma.pl
index a8e3a33..ac267c2 100644
--- a/prisoners_dilemma.pl
+++ b/prisoners_dilemma.pl
@@ -34,8 +34,8 @@ do(Choice, Module, Hist, PayedA, PayedB) :-
decide(Module, Hist, ModuleDecision),
pay2(Choice, ModuleDecision, PayA, PayB),
- write('A Pay: '), write(PayA), write('\t'),
- write('B Pay: '), write(PayB), write('\t'),
+ write('A Pay: '), write(Choice), write(': '), write(PayA), write('\t'),
+ write('B Pay: '), write(ModuleDecision), write(': '), write(PayB), write('\t'),
write('A: '), sum([PayA|PayedA], SumA), write(SumA), write('\t'),
write('B: '), sum([PayB|PayedB], SumB), write(SumB), nl,