K距离间隔重排字符串（奖励已发放）

alan57

1. =LET(a,LEN(A2),b,SORT(MID(A2,SEQUENCE(a),1)),c,MAP(b,LAMBDA(x,SUM(N(b=x)))),f,MAX(c),d,FILTER(b,c=f),g,WRAPCOLS(d,f),e,TOCOL(TEXTSPLIT(SORTBY(b,c),,d,1),3),IF((f-1)*B2+COLUMNS(g)<=a,CONCAT(IFNA(HSTACK(g,IFERROR(WRAPCOLS(e,MAX(f-1,1)),"")),"")),""))

复制代码

剑指E 发表于 2023-12-25 08:41
dohprdqp        8
oydmkabwqrvfqolhsnqlgeauvzfcibahd        15

象山海鲜

超长超卡的来一个，未验证，如有不是最小 则需要排序

1. =LET(n,LEN(A2),m,SEQUENCE(n),j,SORT(MID(A2,m,1)),k,UNIQUE(j),p,MAP(k,LAMBDA(x,TEXTJOIN(REPT("?",B2-1),,REPT(0,j=x)))),TAKE(TAKE(REDUCE(REPT(0,n),SEQUENCE(ROWS(k)),LAMBDA(x,y,REDUCE("",x,LAMBDA(a,b,LET(ww,INDEX(p,y),TOCOL(VSTACK(a,MAP(m,LAMBDA(c,IF(SEARCH(ww,b,c)=c,CONCAT(IF(ISERR(-MID(ww,m-c+1,1)),MID(b,m,1),INDEX(k,y))),\)))),2)))))),2),-1))

复制代码

wdx223

1. =LET(a,LEN(A2),x,SEQUENCE(a),b,MID(A2,x,1),c,GROUPBY(b,b,COUNTA,0,0,-2),d,TAKE(c,,-1),e,TAKE(c,,1),IF(ROWS(c)=a,A2,IF(@d-1>a/B2,"",CONCAT(WRAPCOLS(MID(CONCAT(REPT(e,d-(d=@d))),x,1),@d-1,""),FILTER(e,d=@d)))))

复制代码

shaowu459

结贴。本题参与朋友不算多，主要统计自己、剑指E、alan的公式（都是完成基础题目要求的公式）。11楼公式对随机数据验证卡，比较难验证，能达到基础题目要求，但没有达到字典序最小。9楼、12楼公式在某些情况下有bug，未统计在内。



参与者均发放50财富值，剑指E发放1技术分。

shaowu459

简单说明一下我的公式思路，有兴趣的朋友可以继续就细节探讨。

解决这个问题有两个核心点：1）假设字符串按k可以分成n组，如果有某个字母重复次数超过n是不可能重排后满足要求的；2）如果以一个空数组存储重排后的字母时，每次应优先放入剩余字母中出现次数最多的，这样才能保证字母尽可能分散在不同的组中，否则即使原字符串可以重排为满足要求的字符串也可能出现将相同的字母挤压到某一个分组中的情况。重排的时候，如果字母没有在结果数组中出现过，就可以尽量往前摆放，如果字母已经出现过，则可放在该字母最后出现位置+k的位置。

公式简要说明如下：
=LET(
    h, LEN(A2),    获取字符串长度
    r, SEQUENCE(h),    生成1~字符串长度的序列
    s, MID(A2, r, 1),    提取字符串中的每个字符
    IFERROR(          如果公式返回错误值，也就是在摆放某个字母时，对应位置已经超过原字符串长度的时候
        CONCAT(
            REDUCE(
                r * 0,    生成一个全是0的数组，行数和字符串长度一样，用于存储结果
                SORTBY(s, -MAP(s, r, LAMBDA(m, n, SUM(N(TAKE(s, n) = m))))),    按每个字母从上到下出现的次数排列，上面字母的数量要大于等于下面字母的数量
                LAMBDA(x, y,
                    LET(
                        p, MATCH(, x, ),     获取结果数组中第一个0的位置
                        k, XMATCH(y, x, , -1) + B2,   获取当前遍历的字符在x中的位置然后加上k，作为当前字符可以存放的位置（假设在结果数组中已经出现过当前字符）
                        IF(
                            r =      判断位置，更新结果数组中的值
                                IFS(
                                    ISNA(k),   如果当前字符在结果数组x中没有出现过，
                                    p,         则将当前字符插入在x中第一个0出现的位置
                                    k > h,     如果要插入的字符位置y已经超过了字符串的长度（无法保证无重的放入）
                                    \,         则返回错误值
                                    INDEX(x, k) > 0,     如果要插入的位置已经有字母填充了
                                    p,         则仍插入在结果数组x中第一个0的位置
                                    1,         其他情况，
                                    k          将当前遍历字母插入在字母上次出现位置+k的位置
                                ),
                            y,    如果1~n的序列等于上述位置，则将结果数组中的对应位置更新为当前遍历的字母
                            x     否则仍然保留x不变
                        )
                    )
                )
            )
        ),
        ""    出现错误值时返回空，也即当前字母已经无法无重的插入结果数组的时候
    )
)

shaowu459

另外一个公式简要说明如下：

=LET(
    s, MID(A2, ROW($1:200), 1),     提取字符串中的每个字符，并获取多个空文本
    t, @REDUCE(
        UNIQUE(HSTACK(s, MAP(s, LAMBDA(x, SUM(N(s = x)))))),    统计s中的每个字符出现次数并和字符合并成一个数组后去重，作为x的初始值
        s,    循环足够多的次数
        LAMBDA(x, y,
            LET(
                d, SORT(x, 2, -1),    按x第二列排序，此时空字符串次数最多，每次循环时都在第一行。剩余字符数量多的位置更高。
                p, DROP(d, 1, -1),    获取当前循环时剩余尚未使用的字母（不重复值列表）
                r, ROWS(p),           获取尚未使用字母的个数
                v, DROP(d, 1, 1) - (SEQUENCE(r) <= B2),   每次提取出前k个字母填充入结果数组，也就是使用了一次，因此对应次数-1，但只有前k个-1，其余字母次数保持不变
                IF(
                    OR(x = 0),        类似设定退出条件，当x中有0的时候，保持x不变。
                    x,
                    VSTACK(
                        TAKE(d, 1) & CONCAT(TAKE(p, B2)),   用第一行合并当前提取的前k个可以使用的字母
                        FILTER(HSTACK(p, v), v * (r >= B2), {0, 0})   筛选剩余次数大于0的字母，如果筛选不到结果就返回{0,0}的数组。注意，如果剩余可使用的字母小于k个，则一次性合并进结果，次数清0。因为下次再提取合并进结果字符串的话，已经无法保证相同字母之间距离不小于k了。
                    )
                )
            )
        )
    ),
    REPT(t, LEN(t) = LEN(A2))    如果结果字符串等于源字符串长度则返回结果字符串，否则返回空值。
)