Perl 每周挑战 262：正负数最大值
原文英文，约500词，阅读约需2分钟。
📝
内容提要
本文是关于Perl Weekly Challenge第262周任务1的一些解答。任务要求找出给定数组中正数和负数的最大数量。作者给出了使用Raku和Perl编写的解决方案。
🔎
延伸解读
零值处理：一个未明说的关键假设
题目未明确说明零值如何处理，但作者在解答中主动指出将忽略零值，只统计严格正数和严格负数。这一假设直接影响输出结果：若数组包含零，零既不计入正数也不计入负数，因此不会影响最大值。读者在实现时需注意，若题目要求不同，可能需要调整逻辑。
Raku 与 Perl 实现思路对比
Raku 方案利用内置的 grep、elems 和 max 方法，以一行代码完成统计和取最大值，体现了函数式风格。Perl 方案则用 grep 配合 scalar 统计数量，并用三元运算符替代 max，更接近传统过程式写法。两者核心逻辑一致，但 Raku 的链式调用更简洁，Perl 的写法在旧版本中兼容性更好。
从示例看边界情况
三个示例覆盖了正负数数量接近、负数占优、以及全为正数的情况。示例1中正数4个、负数3个，输出4；示例2中负数3个、正数1个，输出3；示例3全为正数，输出2。这些例子说明算法只需分别计数并取较大值，无需考虑顺序或绝对值大小。
❓
Q&A
Perl Weekly Challenge第262周的任务是什么？
任务要求找出给定数组中正数和负数的最大数量。
如何在Raku中解决这个任务？
使用Raku的grep、elems和max方法，可以编写一行代码来解决。
在Perl中如何实现这个任务？
在Perl中使用三元运算符替代max来实现正负数的计数。
给定数组(-3, 1, 2, -1, 3, -2, 4)的输出是什么？
输出为4，因为正数有4个，负数有3个。
如何计算数组中正数和负数的数量？
可以使用grep函数分别计算正数和负数的数量，然后取最大值。
下周的Perl Weekly Challenge截止日期是什么时候？
截止日期是2024年4月7日23:59 BST。
🏷️
