Самая короткая, лексикографически наименьшая генерирующая строка

Строка x генерирует строку, yесли yявляется подстрокой бесконечного повторения x. Например abcгенерирует bcabcab.

Напишите программу, чтобы найти самую короткую, лексикографически самую маленькую строку, которая будет генерировать ввод. Вам дают на стандартный ввод одну строку текста. Вы должны напечатать генерирующую строку в стандартный вывод. Например:

вход

bcabcabca

выход

abc

Самый короткий код выигрывает. Вы можете предположить, что ввод содержит только символы az (и завершающий перевод строки, если хотите).

Ruby 1.9, 40 знаков

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

Предполагается, что ввод не заканчивается новой строкой. Также это, вероятно, смехотворно медленно для больших результатов.

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

Питон 88 185 символов

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])

Выход:

bcabcabca
abc

aaa
a

abc
abc

cccbbcccbbcccbb
bbccc

barfoofoobarfoofoo
arfoofoob

bacabac
abacbac

Haskell, 299 128 символов

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

Спасибо Джлой! Теперь версия намного короче, и я считаю, что это правильно.

Питон, 121 137 129 символов

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)

РЕДАКТИРОВАТЬ: исправлена ​​ошибка, замеченная JiminP

Руби 1.9, 36

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

Использует тот же подход, что и решение Ventero.

Python, 161 159 166 140 141 134 132 символа

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

РЕДАКТИРОВАТЬ : Гольф-код после прочтения комментария Жюля Оллеона. Удален «ошибка» , что bcdabcdabприводит к abbc.

EDIT2 : Исправлена ​​ошибка ( abaaрезультаты aaa), замеченная Жюлем Оллеоном.

Я не очень хорошо знаю Python, поэтому этот код, вероятно, «не в гольфе».

Я люблю это правило:

Вы можете предположить, что вход содержит только символы az ...

Входы и выходы

bcdabcd
abcd

bcabcabca
abc


abcdabcd
abcd

bcdabcdab
abcd

barfoofoobarfoofoobar
arfoofoob

cccbbcccbbcccbb
bbccc

aaaaaaaaaaaaaaaa
a

thequickbrownfox
brownfoxthequick

ababa
ab

abaa
aab

Mathematica 124 байта

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

Пробелы и символы новой строки (при наличии точек с запятой на концах строк) не имеют смысла в Mathematica и включены сюда для удобства чтения.

Ввод идет между кавычками в первой строке. Если преобразовать как функцию, она принимает строковый ввод примерно так:

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" *)

тогда это 128 байтов.

ForЦикл занимает первые iсимволы на входе и повторяет их , по крайней мере вплоть до длины входа, а затем проверяет , является ли входная подстрока результата. Найдя длину периода строки, StringPartitionкоманда объединяет две копии этого периода и берет из нее все подстроки этой длины (в основном получает все циклические перестановки), а затем First@Sortнаходит первую из них при лексикографическом порядке.

javascript 96 символов

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

Рабочий планкр