如何实现字符串的全有序拆分？以abcd为例（Raku语言）

要生成像abcd这样单词的所有不打乱字母顺序的拆分组合，你可以用以下两种方法实现：

方法一：利用.combinations手动实现 #

拆分的核心逻辑是：字符串的每个字母间隙都可以选择“拆分”或“不拆分”。比如abcd有3个间隙（a/b、b/c、c/d之间），所有间隙的子集组合就对应了所有拆分方式。

具体代码如下：

my $word = 'abcd';
# 获取所有可能的拆分位置（字符索引后的位置，比如a之后是位置1）
my @gaps = 1..^$word.chars;

# 生成所有间隙的子集（包括空子集，对应不拆分的情况）
for @gaps.combinations(0..@gaps.elems) -> @split-points {
    # 构建完整的分割点：从0开始，加上选择的拆分位置，最后到字符串末尾
    my @split-positions = 0, |@split-points, $word.chars;
    # 按分割点截取字符串片段
    my @parts = (0..^@split-positions.end).map: -> $i {
        $word.substr(@split-positions[$i], @split-positions[$i+1] - @split-positions[$i])
    };
    # 输出当前拆分结果
    say @parts.perl;
}

运行后会输出所有8种拆分结果，完全符合需求：

["abcd"]
["a", "bcd"]
["ab", "cd"]
["abc", "d"]
["a", "b", "cd"]
["a", "bc", "d"]
["ab", "c", "d"]
["a", "b", "c", "d"]

方法二：使用Snip模块快速实现 #

Raku的Snip模块专门提供了生成所有字符串拆分组合的功能，无需手动处理间隙逻辑。

步骤如下：

1. 先安装模块：

zef install Snip

2. 调用snip函数获取结果：

use Snip;

my $word = 'abcd';
# 直接生成所有拆分组合
say snip($word).perl;

snip函数会返回所有保持原顺序的非空连续子序列组合，输出结果和手动实现的完全一致，代码更简洁。

内容的提问来源于stack exchange，提问作者Jim Bollinger