Skip to main content
deleted 2 characters in body
Source Link
JvdV
  • 3.9k
  • 8
  • 32

Excel ms365, 200198 bytes

=LET(f,REGEXREPLACE,g,SORTBY,s,g(A.:.A,-LEN(A.:.A),-1),d,REDUCE(,s,LAMBDA(x,y,TOCOL(IF(REGEXTEST(x,y),x,f(HSTACK(x&0&y,y&0&x),"(.*)0\1","$1")),3))),REDUCE(@g(d,LEN(d)),s,LAMBDA(a,b,f(a,b,"\u$0",1,1))))

enter image description here

Excel ms365, 200 bytes

=LET(f,REGEXREPLACE,g,SORTBY,s,g(A.:.A,LEN(A.:.A),-1),d,REDUCE(,s,LAMBDA(x,y,TOCOL(IF(REGEXTEST(x,y),x,f(HSTACK(x&0&y,y&0&x),"(.*)0\1","$1")),3))),REDUCE(@g(d,LEN(d)),s,LAMBDA(a,b,f(a,b,"\u$0",1,1))))

enter image description here

Excel ms365, 198 bytes

=LET(f,REGEXREPLACE,g,SORTBY,s,g(A.:.A,-LEN(A.:.A)),d,REDUCE(,s,LAMBDA(x,y,TOCOL(IF(REGEXTEST(x,y),x,f(HSTACK(x&0&y,y&0&x),"(.*)0\1","$1")),3))),REDUCE(@g(d,LEN(d)),s,LAMBDA(a,b,f(a,b,"\u$0",1,1))))

enter image description here

deleted 3 characters in body
Source Link
JvdV
  • 3.9k
  • 8
  • 32

Excel ms365, 203200 bytes

=LET(f,REGEXREPLACE,sg,SORTBY,s,g(A.:.A,LEN(A.:.A),-1),d,REDUCE(@s,s,LAMBDA(x,y,TOCOL(IF(REGEXTEST(x,y),x,f(HSTACK(x&0&y,y&0&x),"(.*)0\1","$1")),3))),REDUCE(@SORTBY@g(d,LEN(d)),s,LAMBDA(a,b,f(a,b,"\u$0",1,1))))

enter image description here

Excel ms365, 203 bytes

=LET(f,REGEXREPLACE,s,SORTBY(A.:.A,LEN(A.:.A),-1),d,REDUCE(@s,s,LAMBDA(x,y,TOCOL(IF(REGEXTEST(x,y),x,f(HSTACK(x&0&y,y&0&x),"(.*)0\1","$1")),3))),REDUCE(@SORTBY(d,LEN(d)),s,LAMBDA(a,b,f(a,b,"\u$0",1,1))))

enter image description here

Excel ms365, 200 bytes

=LET(f,REGEXREPLACE,g,SORTBY,s,g(A.:.A,LEN(A.:.A),-1),d,REDUCE(,s,LAMBDA(x,y,TOCOL(IF(REGEXTEST(x,y),x,f(HSTACK(x&0&y,y&0&x),"(.*)0\1","$1")),3))),REDUCE(@g(d,LEN(d)),s,LAMBDA(a,b,f(a,b,"\u$0",1,1))))

enter image description here

Source Link
JvdV
  • 3.9k
  • 8
  • 32

Excel ms365, 203 bytes

=LET(f,REGEXREPLACE,s,SORTBY(A.:.A,LEN(A.:.A),-1),d,REDUCE(@s,s,LAMBDA(x,y,TOCOL(IF(REGEXTEST(x,y),x,f(HSTACK(x&0&y,y&0&x),"(.*)0\1","$1")),3))),REDUCE(@SORTBY(d,LEN(d)),s,LAMBDA(a,b,f(a,b,"\u$0",1,1))))

enter image description here