Kürzeste, lexikographisch kleinste generierende Saite

Ein String x erzeugt einen String, ywenn yes sich um einen Teilstring einer unendlichen Wiederholung von handelt x. Zum Beispiel abcerzeugt bcabcab.

Schreiben Sie ein Programm, um die kürzeste, lexikografisch kleinste Zeichenfolge zu finden, die die Eingabe generiert. Sie erhalten bei der Standardeingabe eine einzelne Textzeile. Sie sollten den generierenden String auf die Standardausgabe drucken. Beispielsweise:

Eingang

bcabcabca

Ausgabe

abc

Kürzester Code gewinnt. Sie können davon ausgehen, dass die Eingabe nur die Zeichen az enthält (und, wenn Sie möchten, eine nachgestellte Zeile).

Ruby 1.9, 40 Zeichen

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

Angenommen, die Eingabe wird nicht durch einen Zeilenumbruch beendet. Außerdem ist es für größere Ergebnisse wahrscheinlich lächerlich langsam.

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

Python 88 185 Zeichen

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

Ausgabe:

bcabcabca
abc

aaa
a

abc
abc

cccbbcccbbcccbb
bbccc

barfoofoobarfoofoo
arfoofoob

bacabac
abacbac

Haskell, 299 128 Zeichen

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

Danke an jloy! Jetzt ist die Version beide viel kürzer und ich glaube richtig.

Python, 121 137 129 Zeichen

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)

BEARBEITEN: Der von JiminP entdeckte Fehler wurde behoben

Ruby 1.9, 36

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

Verwendet den gleichen Ansatz wie die Lösung von Ventero.

Python, 161 159 166 140 141 134 132 Zeichen

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

EDIT : Golfed den Code nach dem Lesen von Jules Olléon Kommentar. Ein Fehler, der dazu führte, wurde bcdabcdabbehoben abbc.

EDIT2 : Der von Jules Olléon entdeckte Fehler ( abaaresultiert in aaa) wurde behoben.

Ich weiß nicht gut über Python Bescheid, daher ist dieser Code wahrscheinlich "nicht golfen".

Ich liebe diese Regel:

Sie können davon ausgehen, dass die Eingabe nur die Zeichen az enthält ...

Eingänge Ausgänge

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]

Leerzeichen und Zeilenumbrüche (bei Vorhandensein von Semikolons am Zeilenende) haben in Mathematica keine Bedeutung und werden hier zur besseren Lesbarkeit angegeben.

Die Eingabe erfolgt zwischen den Anführungszeichen in der ersten Zeile. Wenn Recast als Funktion ausgeführt wird, werden Zeichenfolgen wie folgt eingegeben:

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

dann sind es 128 Bytes.

Die ForSchleife nimmt die ersten iZeichen der Eingabe und wiederholt sie mindestens bis zur Länge der Eingabe. Anschließend prüft sie, ob die Eingabe eine Teilzeichenfolge des Ergebnisses ist. Nachdem der StringPartitionBefehl die Länge des Zeitraums der Zeichenfolge ermittelt hat, verknüpft er zwei Kopien dieses Zeitraums und entnimmt ihm alle Teilzeichenfolgen dieser Länge (im Grunde genommen erhält er alle zyklischen Permutationen) und First@Sortfindet dann die erste von ihnen, wenn sie lexikografisch geordnet ist.

Javascript 96 Zeichen.

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

Working Plunkr