配对

作者：David Romano

在“配对”游戏中，参赛者将获得一系列五张扑克牌，并被要求确定有多少对牌。

比赛场景

这是最简单的比赛之一，无论是解释还是执行。在这场比赛中，我们将使用一副标准的扑克牌。一副标准的扑克牌由四种花色组成：红桃、黑桃、梅花和方块。每种花色都有从 2 到 10 的数字，外加一个 J、一个 Q、一个 K 和一个 A。

给定一组随机的五张牌，你的任务是找出这组牌中有多少对。换句话说，如果你的五张牌是红桃 2、黑桃 4、梅花 4、方块 Q 和黑桃 Q，那么你有 2 对：2 个 4 和 2 个 Q。再举一个例子，你可能有梅花 3、方块 3、红桃 3、黑桃 10 和红桃 A。在这种情况下，你有 3 对：梅花 3 和方块 3；方块 3 和红桃 3；以及梅花 3 和红桃 3。

对于本次比赛，你应该假设你已经拿到了以下五张牌

• 黑桃 7

• 红桃 5

• 方块 7

• 梅花 7

• 梅花 K

使用这组牌，你的脚本应该显示对子的数量。请记住，我们会在测试时查看脚本。一个简单地显示数字 3 的脚本将获得 0 分；你实际上必须根据这些牌进行计算。不仅如此，牌是什么并不重要：如果我们用任何其他五张牌替换，你的脚本仍然应该返回正确数量的对子。

http://web.archive.org/web/20080218182214/http://www.microsoft.com/technet/scriptcenter/funzone/games/games08/bevent1.mspx

源代码：event001-unobe.pl

use v6;

my @x = 6,5,6,6,"K";

say 'Total: ' ~ (([+] @x Xeq @x) - @x.elems)/2;