最短の辞書編集上最小の生成文字列

文字列は、の無限の繰り返しの部分文字列である場合に文字列をx 生成します。たとえば、を生成します。yyxabcbcabcab

プログラムを作成して、入力を生成する最短の辞書編集上最小の文字列を見つけます。標準入力には1行のテキストが与えられます。生成文字列を標準出力に出力する必要があります。例えば：

入力

bcabcabca

出力

abc

最短のコードが優先されます。入力には文字a〜z（および必要に応じて末尾の改行）のみが含まれると想定できます。

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の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、299128文字

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

jloyに感謝します！現在、バージョンはどちらもはるかに短く、正しいと思います。

Python、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が発見したバグを修正

Ruby 1.9、36

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

Venteroのソリューションと同じアプローチを使用します。

Python、 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

編集：ジュール・オレオンのコメントを読んだ後、コードをゴルフ。bcdabcdab結果として生じる「バグ」を削除しましたabbc。

EDIT2：JulesOlléonが発見したバグ（のabaa結果aaa）を修正しました。

私はPythonについてよく知らないので、このコードはおそらく「ゴルフではない」でしょう。

私はこのルールが大好きです：

入力にはa〜zの文字のみが含まれると仮定できます。

入力と出力

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コマンドはそのピリオドの2つのコピーを連結し、その長さのすべての部分文字列を取得し（基本的にすべての循環順列を取得し）、First@Sort辞書式順序でそれらの最初の1つを見つけます。

javascript 96文字。

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

ワーキングプランカー