Perl每周挑战284：相对排序
内容提要
本文讨论了Perl每周挑战的第二个任务：相对排序。给定两个整数列表@list1和@list2，要求根据@list2的顺序对@list1进行排序，@list2中缺失的元素按升序放在@list1末尾。提供了Raku和Perl的解决方案示例及其输出结果。
延伸解读
相对排序的核心思路
文章指出，相对排序的关键是保持@list1中元素在@list2中出现的相对顺序，同时将@list2中未出现的元素按升序追加到末尾。这要求先统计@list1中每个元素的出现次数，再按照@list2的顺序依次输出，最后处理剩余元素。
Raku与Perl实现的差异
Raku使用可变的BagHash来记录频率，并在使用元素后将其频率置零以自动移除；Perl则用普通哈希实现相同逻辑，通过grep筛选剩余元素。两者输出一致，但Raku的BagHash提供了更简洁的自动管理机制。
边界情况与注意事项
文章提到，虽然题目保证@list2的元素都在@list1中，但Raku代码仍检查元素是否存在以避免异常，不过未定义处理方式。此外，输出仅打印@list2和结果，以节省空间，这提醒读者注意输入假设和输出格式。
Q&A
什么是相对排序任务？
相对排序任务要求根据@list2的顺序对@list1进行排序，缺失的元素按升序放在@list1末尾。
如何实现Perl中的相对排序？
在Perl中，通过使用常规哈希来跟踪@list1中的元素频率，并根据@list2的顺序构建结果列表。
Raku和Perl的相对排序有什么不同？
Raku使用BagHash来跟踪元素频率，而Perl使用常规哈希，二者在逻辑上相似但实现方式不同。
给出一个相对排序的示例及其输出。
输入@list1 = (2, 3, 9, 3, 1, 4, 6, 7, 2, 8, 5)，@list2 = (2, 1, 4, 3, 5, 6)，输出为(2, 2, 1, 4, 3, 3, 5, 6, 7, 8, 9)。
相对排序中缺失元素如何处理？
缺失的元素会按升序放在@list1的末尾。
如何在Raku中实现相对排序？
在Raku中，通过创建@list1的频率直方图，并根据@list2的顺序构建结果列表，最后将未使用的元素按升序添加。
