diff options
| author | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-09 10:14:05 +0100 |
|---|---|---|
| committer | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-09 10:14:05 +0100 |
| commit | 320f3b89263b9c775fd9bfa649b1cb8ad3c0f8b2 (patch) | |
| tree | 0892d81699e09c4ffad1f67f168a60025fe92c42 | |
| parent | f231e6db05ac4b09fa6aad0d17216f6ac21380d4 (diff) | |
| download | wbs-320f3b89263b9c775fd9bfa649b1cb8ad3c0f8b2.tar.gz wbs-320f3b89263b9c775fd9bfa649b1cb8ad3c0f8b2.tar.bz2 wbs-320f3b89263b9c775fd9bfa649b1cb8ad3c0f8b2.zip | |
pd_client: Add some informative output
| -rw-r--r-- | pd_client.pl | 3 |
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 |