Perl每周挑战284：幸运整数
原文英文，约600词，阅读约需2分钟。
📝
内容提要
本文讨论了Perl每周挑战第284周的任务1：寻找幸运整数。幸运整数是指其在数组中出现的频率等于其值的整数。如果存在多个幸运整数，则返回最大的一个；如果没有，返回-1。示例输入包括(2, 2, 3, 4)和(1, 2, 2, 3, 3, 3)，输出分别为2和3。
🔎
延伸解读
频率与值相等的判定逻辑
幸运整数的核心是“出现次数等于自身数值”。这意味着数值越大，需要的出现次数越多，因此大数值很难成为幸运整数。例如在(1,2,2,3,3,3)中，3出现3次符合条件，而2出现2次也符合，但题目要求返回最大的，所以输出3。理解这一点有助于快速判断数组中有无幸运整数。
Raku与Perl实现差异
Raku使用Bag直接生成频率直方图，再通过grep筛选出键值等于计数的元素，最后用max取最大。Perl则用哈希%count手动累加频率，筛选后还需循环比较找出最大值。两者逻辑一致，但Raku的Bag和max让代码更简洁，Perl更接近传统写法。
边界情况与假设
文章假设输入数组只包含严格正整数，因为负数的频率不可能为负，没有意义。示例3中(1,1,1,3)没有幸运整数，返回-1。注意Perl代码中判断@lucky为空时用了$#lucky == 0，这实际上在数组只有一个元素时也会返回-1，存在潜在错误，但文章未讨论此问题。
❓
Q&A
什么是幸运整数？
幸运整数是指其在数组中出现的频率等于其值的整数。
如何找到数组中的幸运整数？
可以使用哈希或Bag统计频率，然后过滤出频率等于值的整数，最后返回最大的幸运整数或-1。
如果数组中没有幸运整数，应该返回什么？
-1。
给出一个示例，如何找到幸运整数？
例如，对于输入(1, 2, 2, 3, 3, 3)，输出是3，因为2出现2次，3出现3次。
在Raku和Perl中，寻找幸运整数的实现有什么不同？
在Raku中使用Bag来统计频率，而在Perl中使用哈希来实现。
如何处理多个幸运整数的情况？
如果存在多个幸运整数，返回最大的一个。
🏷️
