Найкоротший, лексикографічно найменший породжувальний рядок

Рядок x генерує рядок, yякщо yє підрядком нескінченного повторення x. Наприклад abcгенерує bcabcab.

Напишіть програму, щоб знайти найкоротший, лексикографічно найменший рядок, який генерує вхід. На стандартному введенні вам надається один рядок тексту. Ви повинні надрукувати генераційний рядок до стандартного виводу. Наприклад:

вхід

bcabcabca

вихід

abc

Найкоротший код виграє. Ви можете припустити, що вхід містить лише символи az (і новий край, якщо ви хочете).

Рубін 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)

Завдяки jloy! Зараз версія і набагато коротша, і я вважаю правильною.

Пітон, 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)

EDIT: виправлено помилку, яку помітив JiminP

Рубін 1,9, 36

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

Використовується той же підхід, що і рішення Вентеро.

Пітон, 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

Математика 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знаходить першу з них, коли лексикографічно впорядковано.

javas 96 символів.

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

Робочий Plunkr