Perl 每周挑战 251：幸运数字
内容提要
这篇文章是关于Perl Weekly Challenge第251周任务2的答案，要求找出矩阵中的幸运数字。文章提供了Raku和Perl两种语言的解决方案和示例代码。
延伸解读
为什么要求矩阵元素互不相同
文章强调输入矩阵必须包含互不相同的正整数。这是因为幸运数字的定义依赖于行最小值和列最大值的唯一性：如果存在重复的最小值或最大值，一个元素可能在其行中是最小值之一，但并非唯一最小，导致判断逻辑复杂化。此外，限制为正整数是为了避免返回值-1与幸运数字本身为-1的歧义，确保-1明确表示未找到。
Raku 与 Perl 实现的差异
Raku 版本利用内置的 min 函数和 :by 命名参数，简洁地找到行中最小值的索引，代码更声明式。Perl 版本则需要手动实现 min 子程序来返回索引，并且由于嵌套数组使用引用，访问元素时需多次解引用，代码稍显繁琐。两者核心算法一致：遍历每一行，找到最小值，再检查该值是否为其列的最大值。
算法效率与适用场景
该解法对每个行最小值检查其列，最坏情况下需遍历所有行和列，时间复杂度为 O(m*n)，其中 m 为行数，n 为列数。由于只需找到第一个幸运数字，平均情况下可能提前返回。适用于中小规模矩阵，且依赖元素互异的假设，若矩阵包含重复值，则需调整算法以处理多个候选。
Q&A
什么是矩阵中的幸运数字？
幸运数字是矩阵中的一个元素，它在其所在行中是最小值，在其所在列中是最大值。
为什么题目要求矩阵中的数字必须是不同的正整数？
因为如果矩阵包含不同的数字，那么每行有唯一的最小值，每列有唯一的最大值，这样可以避免多个最小值或最大值的歧义。此外，限制为正整数可以避免返回-1时与幸运数字-1混淆。
在Raku中如何找到矩阵的幸运数字？
Raku解决方案通过遍历每一行，使用min函数和:by参数找到最小值的索引，然后检查该值是否是其列的最大值。如果是，则返回该值；否则继续下一行。如果遍历完所有行仍未找到，则返回-1。
Perl中实现幸运数字查找与Raku有何不同？
Perl实现与Raku思路相同，但处理嵌套数组更复杂，因为需要使用数组引用。此外，Perl需要自定义min子程序来找到最小值的索引，而Raku可以使用内置的min函数。
如果矩阵中没有幸运数字，函数返回什么？
如果矩阵中没有幸运数字，函数返回-1。
能否给出一个幸运数字的例子？
例如矩阵[ [3,7,8], [9,11,13], [15,16,17] ]中，15是幸运数字，因为它在第三行中是最小值（15<16<17），在第三列中是最大值（8<13<17）。
