From 744d5016677878ee3e2af5c2fd84768456f6ac5e Mon Sep 17 00:00:00 2001 From: Benjamin Franzke Date: Mon, 5 Nov 2012 14:12:16 +0100 Subject: Add tit4tat.pl --- tit4tat.pl | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 tit4tat.pl diff --git a/tit4tat.pl b/tit4tat.pl new file mode 100644 index 0000000..33abcb9 --- /dev/null +++ b/tit4tat.pl @@ -0,0 +1,34 @@ +/* + * Copyright (c) 2012 Benjamin Franzke + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see . + */ + +pay(c,d,1). +pay(d,d,2). +pay(c,c,3). +pay(d,c,4). + +step(A, B, PAY_A, PAY_B) :- + pay(A, B, PAY_A), + pay(B, A, PAY_B). + +loop(end). +loop(OLD):- OLD\=end, + write('Type c,d or end to end: '), read(Word), + step(Word, OLD, PAY_A, PAY_B), + write('A Pay: '),write(PAY_A),nl, write('B Pay: '),write(PAY_B),nl, + loop(Word). + +start:-loop(c). -- cgit