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

shaowu459

注意：

附件中的验证公式仅供参考，并不完善，只是一种最基础的错误情况判断，任意连续的k个里都不能有重复字符。如果可以返回满足条件的重排，重排字符串中字符数量、各个字符的数量应和源字符串相同。

alan57

支持支持。

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),IF(f*B2-1>a,"",CONCAT(IFNA(WRAPCOLS(SORTBY(b,c,-1),MAX(INT(a/B2),f)),""))))

复制代码

大佬们帮手验证下。

剑指E

230:

1. =LET(a,LEN(A2),b,SEQUENCE(a),c,MID(A2,b,1),d,MMULT(N(c=TOROW(c)),b^0),e,MAX(d),f,SUM(N(d=e))/e,IF(a>=B2*e-B2+f,CONCAT(IFERROR(INDEX(SORTBY(c,d+1/CODE(c),-1),TRANSPOSE(VSTACK(SEQUENCE(f,e),SEQUENCE(26,MAX(e-1,1),e*f+1)))),"")),""))

复制代码

剑指E

alan57 发表于 2023-12-24 08:56
大佬们帮手验证下。

alan57

剑指E 发表于 2023-12-24 18:42

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,f*TAKE(SEQUENCE(B2-1),a-f*B2)+f,e,REDUCE(CONCAT(b),d,LAMBDA(x,y,REPLACE(x,y,,0))),g,WRAPCOLS(SORTBY(b,c,-1),f),IF((f-1)*B2>a,"",CONCAT(IFNA(IF(OR(@ISERR(d),COLUMNS(g)>=B2),g,SUBSTITUTE(WRAPCOLS(MID(e,SEQUENCE(f*B2),1),f),0,)),""))))

复制代码

大佬再帮手测试下

剑指E

alan57 发表于 2023-12-24 21:47
大佬再帮手测试下

dohprdqp        8
oydmkabwqrvfqolhsnqlgeauvzfcibahd        15

shaowu459

开始写的有bug，越写越长，看看是否能再缩短些（基础问题公式，最小字典序没写出来）：


方法一：288

1. =LET(s,MID(A2,ROW($1:200),1),t,@REDUCE(UNIQUE(HSTACK(s,MAP(s,LAMBDA(x,SUM(N(s=x)))))),s,LAMBDA(x,y,LET(d,SORT(x,2,-1),p,DROP(d,1,-1),r,ROWS(p),v,DROP(d,1,1)-(SEQUENCE(r)<=B2),IF(OR(x=0),x,VSTACK(TAKE(d,1)&CONCAT(TAKE(p,B2)),FILTER(HSTACK(p,v),v*(r>=B2),{0,0})))))),REPT(t,LEN(t)=LEN(A2)))
   

复制代码

方法二：228

1. =LET(h,LEN(A2),r,SEQUENCE(h),s,MID(A2,r,1),IFERROR(CONCAT(REDUCE(r*0,SORTBY(s,-MAP(s,r,LAMBDA(m,n,SUM(N(TAKE(s,n)=m))))),LAMBDA(x,y,LET(p,MATCH(,x,),k,XMATCH(y,x,,-1)+B2,IF(r=IFS(ISNA(k),p,k>h,\,INDEX(x,k)>0,p,1,k),y,x))))),""))
   

复制代码

tchh666

1. =LET(S,LAMBDA(M,N,LEN(M)-LEN(SUBSTITUTE(M,N,))),A,MID(A2,SEQUENCE(LEN(A2)),1),B,SORTBY(A,-S(A2,A)),IFNA(REDUCE("",A,LAMBDA(X,Y,XLOOKUP(1,ISERR(FIND(B,RIGHT(X,B2-1)))*(S(A2,B)>S(X,B)),X&B))),""))

复制代码

  有BUG，，

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