diff options
| author | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-06 17:05:16 +0100 |
|---|---|---|
| committer | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-06 17:05:16 +0100 |
| commit | 5a3337ec17d6bb39b0d43793c454ab199e4d9b0e (patch) | |
| tree | 3dc818a8abf1e038573ac55828af6a184e083fb7 | |
| parent | 7042741c556899fa1bebfea57603b28c366343a4 (diff) | |
| download | wbs-5a3337ec17d6bb39b0d43793c454ab199e4d9b0e.tar.gz wbs-5a3337ec17d6bb39b0d43793c454ab199e4d9b0e.tar.bz2 wbs-5a3337ec17d6bb39b0d43793c454ab199e4d9b0e.zip | |
prisoners_dilemma: Output player decisions
| -rw-r--r-- | prisoners_dilemma.pl | 4 |
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, |