diff options
| author | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-06 17:30:47 +0100 |
|---|---|---|
| committer | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2012-11-06 17:31:22 +0100 |
| commit | cf338b50e67f487b848a14f1dbad1bb79246cf59 (patch) | |
| tree | d95cc2be90a75b401409d4f66413e2872a158b9c | |
| parent | ff107aa87ef8dd4c6becb7574c3aa4311ceb89b8 (diff) | |
| download | wbs-cf338b50e67f487b848a14f1dbad1bb79246cf59.tar.gz wbs-cf338b50e67f487b848a14f1dbad1bb79246cf59.tar.bz2 wbs-cf338b50e67f487b848a14f1dbad1bb79246cf59.zip | |
prisoners_dilemma.pl: Disable automatic start for now..
| -rw-r--r-- | prisoners_dilemma.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/prisoners_dilemma.pl b/prisoners_dilemma.pl index ac267c2..ffcbfad 100644 --- a/prisoners_dilemma.pl +++ b/prisoners_dilemma.pl @@ -15,7 +15,7 @@ * along with this program. If not, see <http://www.gnu.org/licenses/>. */ -:-initialization(start). + %:-initialization(start). pay(c,d,1). pay(d,d,2). @@ -46,5 +46,5 @@ loop(Module, Hist, PayedA, PayedB) :- do(Choice, Module, Hist, PayedA, PayedB). -start(Module) :- consult(Module), loop(Module, [], [], []), halt. -start :- start(tit4tat). +start(Module) :- consult(Module), loop(Module, [], [], []). +start :- start(tit4tat),halt. |