最短，字典上最小的生成字符串

如果是的无限重复的子字符串，则字符串会x 生成一个字符串。例如产生。yyxabcbcabcab

编写程序以查找将生成输入的最短，字典最小的字符串。在标准输入上会为您提供单行文本。您应该将生成的字符串打印到标准输出。例如：

输入

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

Python 88185个字符

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，299128个字符

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

感谢jloy！现在版本都短得多了，我相信是正确的。

Python，121137129 个字符

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发现的错误

Ruby 1.9、36

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

使用与Ventero解决方案相同的方法。

蟒蛇， 161159166140141134 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

编辑：阅读JulesOlléon的评论后，仔细研究了代码。删除了bcdabcdab导致的“错误” abbc。

EDIT2：修复了JulesOlléon发现的错误（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(""); 

工作朋克