summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBenjamin Franzke <benjaminfranzke@googlemail.com>2012-11-09 10:14:05 +0100
committerBenjamin Franzke <benjaminfranzke@googlemail.com>2012-11-09 10:14:05 +0100
commit320f3b89263b9c775fd9bfa649b1cb8ad3c0f8b2 (patch)
tree0892d81699e09c4ffad1f67f168a60025fe92c42
parentf231e6db05ac4b09fa6aad0d17216f6ac21380d4 (diff)
downloadwbs-320f3b89263b9c775fd9bfa649b1cb8ad3c0f8b2.tar.gz
wbs-320f3b89263b9c775fd9bfa649b1cb8ad3c0f8b2.tar.bz2
wbs-320f3b89263b9c775fd9bfa649b1cb8ad3c0f8b2.zip
pd_client: Add some informative output
-rw-r--r--pd_client.pl3
1 files changed, 2 insertions, 1 deletions
diff --git a/pd_client.pl b/pd_client.pl
index 7b32e3a..a484370 100644
--- a/pd_client.pl
+++ b/pd_client.pl
@@ -17,11 +17,12 @@ do(_, _, _, _, [e|_]) :- !.
do(StreamIn, StreamOut, Module, ModuleState, Hist) :-
call(Module, Hist, ModuleDecision, ModuleState, NewModuleState),
write(StreamOut, ModuleDecision), flush_output(StreamOut),
+ format('Own choose:\t~w\n', [ModuleDecision]),
loop(StreamIn, StreamOut, Module, NewModuleState, Hist).
loop(StreamIn, StreamOut, Module, ModuleState, Hist) :-
get_code(StreamIn, ChoiceCode), byte_to_atom(ChoiceCode, Choice),
- write(Choice),
+ format('Opponent chose:\t~w\n', [Choice]),
do(StreamIn, StreamOut, Module, ModuleState, [Choice|Hist]).
% -1 = EOF