Dada uma sequência, sua tarefa é recolhê-la em uma estrutura em zigue-zague, conforme descrito abaixo.

Dobrando em ziguezague

Tomaremos a string "Mississippi"como exemplo:

1. Primeiro, imprima o prefixo mais longo, composto apenas por caracteres únicos:

   Mis
   

2. Quando você alcança o primeiro caractere duplicado C , ignore-o e gere o prefixo mais longo que consiste em caracteres únicos da string restante ( issippi) verticalmente, abaixo da primeira ocorrência de C :

   Mis
     i
     s
   

3. Repita o processo, alternando entre a continuação horizontal e vertical. Mas agora tenha cuidado (na etapa 1) para continuar produzindo horizontalmente a partir da ocorrência mais recente do caractere duplicado, que não é necessariamente o último, como neste caso:

   Mis
     i
     sip
   -----
   Mis
     i
     sip
       i
   

Regras

• A sequência conterá apenas caracteres ASCII imprimíveis, mas não conterá nenhum tipo de espaço em branco.
• Você pode competir em qualquer linguagem de programação e pode receber e fornecer saída por qualquer método padrão e em qualquer formato razoável ¹ , observando que essas brechas são proibidas por padrão. Isso é código-golfe , então a submissão mais curta (em bytes) para todos os idiomas vence.
• ¹ Entrada: String / Lista de caracteres / qualquer outra coisa que seu idioma use para representar strings. Saída: sequência de linhas múltiplas, lista de sequências que representam linhas ou lista de listas de caracteres / sequências de comprimento 1, mas inclua uma versão bonita do seu código na sua resposta, se possível.
• Em relação a espaços adicionais, a saída pode conter:
  • Novas linhas iniciais / finais
  • Espaços finais em cada linha / no final
  • Um número consistente de espaços à esquerda em cada linha
• Você deve começar a produzir horizontalmente, talvez não seja iniciado verticalmente.

Casos de teste

Entradas:

"Perfeito"
"Mississippi"
"Extravagâncias"
"Trivialidades"
"Cthulhu"
"PPCG"
"pOpOpOpOpOpOp"
"ABCCCE"
"ABCCCECCEEEEC"
"abcdcebffg"
"abca"
"AAAAAAAA"

Saídas correspondentes:

Perf
 c
 t

Mis
  Eu
  trago
    Eu

Od
 ies
 t

Triv
  uma
  eu
  ies
  t

Cthul
  você

P
C
G

pO 
OpO
pOp
 p

abc
  C
  E

abc
  CCE
  E CE

abcd
  e
  b
  fg

abc

UMA
AA
 UMA

Wolfram Language (Mathematica) , 143 bytes

{#}//.{q___,a_,r___,a_,Longest@s___}:>{q}~f@{a,r}~{{s}}//.{q_~f@a_~s_}/;s~FreeQ~f:>(PadLeft@{q~Join~#,##2}&)@@PadRight@Join[{a},s]/. 0->" "&

Experimente online!

Contém 0xF8FF, o que corresponde ao \[Transpose]operador.

Ufa, foi difícil transformar o resultado em uma sequência. Obter cada ramo não é tão difícil:#//.{q___,a_,r___,a_,Longest@s___}:>{q,a,{r},{s}}&

Python 2 , 131 bytes

X=Y=y=0
s=input()
o=()
l={}
for i in s:o+=[' ']*len(s),;exec('l[i]=X,Y','y^=1;X,Y=l[i];l={}')[i in l];o[Y][X]=i;X+=y<1;Y+=y
print o

Experimente online!

-1 graças a Lynn .

Imprime como uma tupla de listas de cadeias de comprimento 1. Saída bonita impressa .

Python 2 , 184 176 175 168 bytes

^{-5 bytes graças ao Sr. Xcoder}

def f(x):i,k=[p for p in enumerate(map(x.find,x+"z"))if cmp(*p)][0];return[x[:i]+' '*len(x)]+[' '*k+''.join(d)+i*' 'for d in zip(*f(x[i+1:]))]if x[len(set(x)):]else[x,]

Experimente online!

CJam , 81 bytes

{_,_S*a*a\+{__L#){V!:V;L#)LM:L;=~:U;:T}{[TU]a+L+:L}?;U@_U=T4$tt\;TV!+:T;UV+:U;}*}

Experimente online!