Prolog four of a kind扑克

Question

我正在尝试用Prolog编写一个扑克游戏。我知道如何编写皇家同花顺的代码，但我的四个一类的代码不工作。

我有以下代码：

four_of_a_kind(R):-
member(card(V, T1), R),
member(card(V, T2), R),
member(card(V, T3), R),
member(card(V, T4), R).

其中V是我想要保持相同的排名，T1，T2，T3，T4是套装。R是我的卡片列表。

谁能解释一下如何在prolog中编写这四种类型的代码，并解释一下我做错了什么？

Answer 1

你的问题是，你一直在搜索整个手部 T1，T2..都是自由变量，所以

member(card(V, T1), R),
...

与同一张卡合并4次，four_of_a_kind总是返回true。

解决方案:只需锁住西装。

代码：

is_card(X,Y) :-
    number(X), between(1,13,X),
    member(Y, [c,d,h,s]). /* clubs, diamonds, hearts and spades */

four_of_a_kind(R) :-
    member(card(V,c), R),
    member(card(V,d), R),
    member(card(V,h), R),
    member(card(V,s), R), !.

一些疑问：

?- four_of_a_kind([card(7,c), card(7,d), card(7,h), card(9,s), card(7,s)]).
true.

?- four_of_a_kind([card(7,c), card(7,d), card(9,h), card(9,s), card(7,s)]).
false.