summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBenjamin Franzke <benjaminfranzke@googlemail.com>2012-11-06 11:32:18 +0100
committerBenjamin Franzke <benjaminfranzke@googlemail.com>2012-11-06 11:32:18 +0100
commit57a675acaa1ed0c1ecff34d5f198745fa3cace36 (patch)
tree626dc758109dcafb27bf9c71a86189d0a21a07ef
parent2e3c0c10659a3d76532e9b85bf479f210f92a4b8 (diff)
downloadwbs-57a675acaa1ed0c1ecff34d5f198745fa3cace36.tar.gz
wbs-57a675acaa1ed0c1ecff34d5f198745fa3cace36.tar.bz2
wbs-57a675acaa1ed0c1ecff34d5f198745fa3cace36.zip
tit4tat.pl: Halt programm after finish
-rw-r--r--tit4tat.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/tit4tat.pl b/tit4tat.pl
index 4614314..528d915 100644
--- a/tit4tat.pl
+++ b/tit4tat.pl
@@ -54,4 +54,4 @@ loop(Hist, PayedA, PayedB) :-
write('Type c,d or e to end: '), read(Choice),
do(Choice, Hist, PayedA, PayedB).
-start :- loop([], [], []).
+start :- loop([], [], []),halt.