index
:
wbs
master
Prisoners Dilemma implemented in Prolog
root
summary
refs
log
tree
commit
diff
log msg
author
committer
range
path:
root
/
hard_tit4tat.pl
blob: 5bff4472c5c751f2d11f6295d8f011503e9a059c (
plain
)
1
2
hard_tit4tat
([
A
,
B
|
_
],
d
,
_
,
_
):-(
A
=
d
;
B
=
d
),!.
hard_tit4tat
(
_
,
c
,
_
,
_
).