Perl 每周挑战 267：行数计算
内容提要
本文是关于Perl Weekly Challenge第267周任务2的答案，要求计算给定字符串在每行最多能容纳100个宽度单位的情况下，需要多少行以及最后一行的宽度。提供了Raku和Perl两种编程语言的解决方案和示例输入输出。
延伸解读
贪心换行策略的合理性
文章中的解决方案采用贪心策略：按顺序逐个添加字符，只要当前行宽度不超过100就继续添加，否则换行。这种策略在字符宽度均为正数且顺序固定的情况下，能保证使用的行数最少。因为任何换行点提前都会导致后续字符需要更多行，而贪心不会浪费当前行的剩余空间。
Raku与Perl实现的对比
Raku和Perl的解决方案逻辑完全一致，都是先构建字母到宽度的哈希映射，再遍历字符串累加宽度。主要区别在于语法：Raku使用`comb`方法拆分字符串，Perl使用`split //`；Raku的`for 'a'..'z' -> $let`更简洁，Perl则用`for my $let ('a'..'z')`。两者输出相同，体现了Perl家族语言的相似性。
边界情况与潜在陷阱
文章示例展示了两种典型情况：所有字符宽度相同（示例1）和首字符宽度较小（示例2）。但未讨论字符宽度为0或超过100的极端情况。若某字符宽度大于100，贪心算法会将其单独放在一行，但该行宽度仍会超过限制，这在实际排版中可能不符合预期。此外，输入字符串为空时，行数应为0还是1？文章未涉及。
Q&A
Perl Weekly Challenge第267周的任务是什么？
任务是计算给定字符串在每行最多容纳100个宽度单位的情况下需要多少行以及最后一行的宽度。
如何使用Raku解决这个行数计算问题？
Raku解决方案通过构建字母宽度的哈希表并迭代输入字符串来计算行数和最后一行宽度。
给定字符串'bbbcccdddaaa'和字符宽度数组，输出结果是什么？
(2, 4)
Perl的解决方案与Raku的解决方案有什么相似之处？
Perl解决方案是Raku程序的移植，逻辑相同，使用哈希表映射字母宽度并迭代输入字符串。
如何计算字符串在给定宽度下的行数和最后一行宽度？
通过迭代字符串，累加字符宽度，若超过100则换行，并记录行数和最后一行的宽度。
下周的Perl Weekly Challenge何时截止？
截止日期是2024年5月12日23:59 BST。
