diff options
Diffstat (limited to 'tit4tat.pl')
| -rw-r--r-- | tit4tat.pl | 34 |
1 files changed, 34 insertions, 0 deletions
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 <benjaminfranzke@googlemail.com> + * + * 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 <http://www.gnu.org/licenses/>. + */ + +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). |