Cadeia geradora mais curta e lexicograficamente menor

Uma string x gera uma string yse yfor uma substring de uma repetição infinita de x. Por exemplo abcgera bcabcab.

Escreva um programa para encontrar a string mais curta e lexicograficamente menor que irá gerar a entrada. Você recebe na entrada padrão uma única linha de texto. Você deve imprimir a sequência geradora na saída padrão. Por exemplo:

entrada

bcabcabca

resultado

abc

O menor código vence. Você pode assumir que a entrada contém apenas os caracteres az (e uma nova linha à direita, se desejar).

Ruby 1.9, 40 caracteres

gets;a=?a;a.next!until(a*~/$/)[$_];$><<a

Supõe que a entrada não seja finalizada por uma nova linha. Também é provavelmente ridiculamente lento para obter resultados maiores.

$ echo -n "bcabcabca" | ruby genlex.rb 
abc
$ echo -n "barfoobarfoobarfoo" | ruby1.9 genlex.rb 
arfoob

Python 88 185 caracteres

import re
s=raw_input()
m=s.index(min(s))
s=s[m:]+s[:m]
i=0
while s.replace(s[:i],''):i+=1
m=min(s[:i])
s=re.findall('%s[\w]*?(?=%s|$)'%(m,m),s[:i])
m=s.index(min(s))
print ''.join(s[m:]+s[:m])

Resultado:

bcabcabca
abc

aaa
a

abc
abc

cccbbcccbbcccbb
bbccc

barfoofoobarfoofoo
arfoofoob

bacabac
abacbac

Haskell, 299 128 caracteres

import Data.List
main=interact(\z->minimum$filter(\w->isInfixOf z$concat$replicate(length z)w) $filter((/=)"")$inits=<<tails z)

Graças a jloy! Agora a versão é muito mais curta e acredito correta.

Python, 121 137 129 caracteres

s=raw_input()
n=len(s)
l=[(s+s)[i/n:i/n+i%n+1]for i in range(n*n)]
print min(filter(lambda x:(x*len(s)).find(s)+1,sorted(l)),key=len)

EDIT: corrigido o erro detectado pelo JiminP

Ruby 1.9, 36

$><<(?a..gets).find{|s|(s*~/$/)[$_]}

Usa a mesma abordagem que a solução da Ventero.

Pitão, 161 159 166 140 141 134 132 caracteres

y=raw_input();i=n=l=len(y)
while i:
 if (y[:i]*l)[:l]==y:n=i
 i-=1
x=y[:n];y=x*2
while i<n:
 x=min(x,y[i:i+n])
 i+=1
print x

Edição : Golfed o código depois de ler o comentário de Jules Olléon. Foi removido um 'bug' que bcdabcdabresulta em abbc.

EDIT2 : Corrigido o erro ( abaaresulta em aaa) detectado por Jules Olléon.

Eu não conheço bem o Python, portanto esse código provavelmente não é 'jogado'.

Eu amo essa regra:

Você pode assumir que a entrada contém apenas os caracteres az ...

Entradas saídas

bcdabcd
abcd

bcabcabca
abc


abcdabcd
abcd

bcdabcdab
abcd

barfoofoobarfoofoobar
arfoofoob

cccbbcccbbcccbb
bbccc

aaaaaaaaaaaaaaaa
a

thequickbrownfox
brownfoxthequick

ababa
ab

abaa
aab

Mathematica 124 bytes

x = StringLength@(y = "");
For[i = 1, ! (s = y~StringTake~i)~StringRepeat~x~StringContainsQ~y,i++];
First@Sort@StringPartition[s <> s, i, 1]

Espaço em branco e novas linhas (na presença de ponto e vírgula no final das linhas) não têm significado no Mathematica e estão incluídos aqui para facilitar a leitura.

A entrada entra entre aspas na primeira linha. Se reformulado como uma função, isso leva a entrada de string da seguinte maneira:

f=(x=StringLength@(y=#);For[i=1,!(s=y~StringTake~i)~StringRepeat~x~StringContainsQ~y,i++];First@Sort@StringPartition[s<>s,i,1])&

f@"bca"

(* "abc" *)

f@"abaa"

(* "aab" *)

então são 128 bytes.

O Forloop pega os primeiros icaracteres da entrada e os repete pelo menos até o comprimento da entrada, depois verifica se a entrada é uma substring do resultado. Tendo encontrado a duração do período da string, o StringPartitioncomando concatena duas cópias desse período e tira todas as subseqüências desse comprimento (basicamente obtém todas as permutações cíclicas) e, em seguida, First@Sortencontra a primeira delas quando ordenada lexicograficamente.

javascript 96 caracteres.

var temp = {},len = str.length;
for(i in str) 
temp[str[i]] = true;
Object.keys(temp).join(""); 

Plunkr de trabalho