Perl，414 398 370/458 344/416 字符
换行不重要。
%M=map{$_,$Z++}0..9,T,J,Q,K,A;sub N{/.$/;$M{$`}.$&}
sub B{$s=@p=();
for$m(@_){$m-$_||($s+=2,++$p[$m])for@_}
@_=sort{$p[$b]-$p[$a]||$b-$a}@_;
$s=23 if$s<11&&($_[0]-$_[4]<5||$_[0]-$_[1]>8&&push@_,shift);
"@_"=~/.$/;$s+=14*(4<grep/$&/,@_);
$s=100*$s+$_ for@_;$s}
++$X{B((@c=map{N}split)[0..4])<=>B(@c[5..9])}for<>;
printf"1: %d\n2: %d\nD: %d\n",@X{1,-1,0}
这解决了“10 张牌”问题（发了 10 张牌，玩家 1 有前 5 张牌，玩家 2 有后 5 张牌）。
第一部分定义了一个子程序N，它可以转换每张卡片，使其具有数值。对于非人脸牌，这是一个简单的映射（5H ==> 5H），但它确实转换了人脸牌（KC => 13C，AD => 14D）。
最后一部分将输入的每一行解析为卡片，将卡片转换为包含数值，将卡片分成两个玩家的不同手牌，然后分析和比较这些手牌。每只手都会增加一个哈希元素%X。解析所有输入后，%X包含玩家 1 赢的手数、玩家 2 赢的手数或平局数。
中间部分是一个子程序，它以一组五张牌作为输入并产生一个 12 位数字，其属性是更强的扑克牌将拥有更高价值的数字。以下是它的工作原理：
for$m(@_){$m-$_||($s+=2,++$p[$m])for@_}
这是“对”检测器。如果任意两张卡片具有相同的数值，则为其中一张卡片增加一个哈希元素，并将“score”变量$s增加 2。请注意，我们最终会将每张卡与其自身进行比较，因此$s至少为 10，并且$p[$x]每张卡至少为 1 $x。如果手牌包含三张，那么这三张牌将与另外两张牌匹配——这就像这三张牌中有 9 次匹配，“分数”至少为 18。
@_=sort{$p[$b]-$p[$a]||$b-$a}@_;
按 (1) 该卡是“对”的一部分的次数和 (2) 卡的价值对卡进行排序。因此，在有两个 7 和两个 3 的手牌中，两个 7 将首先出现，然后是两个 3，然后是起脚牌。在有两个 7 和三个 3 的一手牌中，三个 3 将首先出现在两个 7 之后。此排序的目的是区分具有相同分数的两只手 - 一对 8 的手和一对 7 的手都有一对，但我们需要能够分辨出一对 8更好。
$s=23 if$s<11&&($_[0]-$_[4]<5||$_[0]-$_[1]>8&&push@_,shift);
这条线是“直线”检测器。顺子价值 23 点，当手上没有对子时发生（$s<11意味着只找到 5 个“对子”——每张与自己匹配的牌），并且（1）最高牌的价值正好比最低牌的价值 ( $_[0]-$_[4]==4)，或 (2) 最高价值的牌是 A，次高的牌是 5 ( $_[0]-$_[1]==9)，这意味着这手牌有 A-2-3-4-5 顺子。在后一种情况下，A 现在是手中最不值钱的牌，所以我们操纵@_以反映 ( push@_,shift)
"@_"=~/.$/;$s+=14*(4<grep/$&/,@_);
这条线是冲洗检测器。当每张牌的最后一个字符相同时，同花就值 14 点以上。第一个表达式 ( ) 具有设置为手中最后一张牌的最后一个字符（花色）的"@_"=~/.$/副作用。当且仅当 的所有元素具有相同的最后一个字符时$&，最终表达式 ( 4<grep/$&/,@_) 才会为真。@_
$s=100*$s+$_ for@_;$s}
创建并返回一个值，该值以手牌得分开始，然后包含卡片的值，按卡片的重要性排序。不同手牌的分数将是
Hand Score
---------- ------
High card 10 (each card matches itself for two points)
One pair 14 (2 additional matches)
Two pair 18 (4 additional matches)
Three of a kind 22 (6 additional matches)
Straight 23 (no pair, but 23 points for straight)
Flush 24 (no pair, but 14 additional points for the flush)
Full house 26 (8 additional matches)
4 of a kind 34 (12 additional matches)
Straight flush 37 (23 + 14 points)
这符合扑克规则。相同分数的手牌可以通过手牌的价值来区分，按照对手牌的重要性，一直到手牌中最不值钱的牌。
解决 9 张牌问题（玩家 1 两张牌，玩家 2 两张牌，玩家分享接下来的 5 张牌并建立他们最好的 5 张牌手）需要大约 70 次以上的笔画才能从中选出最好的 5 张牌手。 7张牌可供每位玩家使用：
%M=map{$_,$Z++}0..9,T,J,Q,K,A;sub N{/./;$M{$&}.$'}
sub A{my$I;
for$k(0..41){@d=@_;splice@d,$_,1for$k%7,$k/7;$s=@p=();
for$m(grep$_=N,@d){$m-$_||($s+=2,$p[$m]++)for@d}
@d=sort{$p[$b]-$p[$a]||$b-$a}@d;
$s=23 if$s<11&&($d[0]-$d[4]<5||$d[0]-$d[1]>8&&push@d,shift@d);
"@d"=~/.$/;$s+=14*(4<grep/$&/,@d);
$s=100*$s+$_ for@d;
$I=$s if$s>$I}$I}
++$X{A((@c=split)[0,1,4..8])<=>A(@c[2..8])}for<>;
printf"1: %d\n2: %d\nD: %d\n",@X{1,-1,0}