Perl 每周挑战 268：魔术数字
内容提要
这篇文章是关于Perl Weekly Challenge的第268周任务1的答案。任务要求找到一个魔术数字，将其加到一个数组的每个元素上得到另一个数组。通过排序数组并比较元素的差异，可以找到解决方案。文章提供了Raku和Perl的实现代码，并给出了示例输出。下一周的Perl Weekly Challenge将很快开始，参与者需要在2024年5月19日23:59之前完成挑战。
延伸解读
排序是解题关键
题目说明元素顺序不重要，但任何解法都依赖于两个数组采用相同的排序顺序。文章中的Raku和Perl实现都先对输入数组进行升序排序，然后逐对比较元素差值。只有排序后，才能通过检查所有对应位置的差值是否一致来判断是否存在魔术数字。
无解情况需处理
文章特别指出，随机输入下很可能没有解，因此实现中必须考虑无解情况。Raku版本通过[==]归约操作符检查所有差值是否相等，若不等则返回Nil；Perl版本则在发现第一个不匹配时立即返回undef。两者都在示例中加入了无解测试用例，验证了处理逻辑。
两种实现的效率差异
Perl实现比Raku版本更高效：它先计算第一个差值作为基准，然后遍历剩余元素，一旦发现差值不等于基准就立即返回undef，无需计算所有差值。而Raku版本会先构建完整的差值数组，再用归约操作符判断。在失败情况下，Perl的提前退出能节省计算。
Q&A
什么是魔术数字？
魔术数字是一个可以加到一个数组的每个元素上，使得得到的数组与另一个数组相等的数字。
如何找到魔术数字？
通过将两个数组排序，比较对应元素的差异，如果差异相同，则该差异即为魔术数字。
在什么情况下可能没有魔术数字？
在随机输入的情况下，可能没有解决方案，概率较高。
这篇文章提供了哪些编程语言的实现？
文章提供了Raku和Perl的实现代码。
Perl Weekly Challenge的截止日期是什么时候？
下一周的Perl Weekly Challenge截止日期是2024年5月19日23:59。
文章中给出了哪些示例输出？
示例输出包括：对于输入(3, 7, 5)和(9, 5, 7)，输出为2；对于(1, 2, 1)和(5, 4, 4)，输出为3。
