가장 짧은 사전 식으로 가장 작은 생성 문자열

무한 반복의 하위 문자열 인 경우 문자열 은 문자열을 x 생성 합니다 . 예를 들어 generate 를 생성 합니다.yyxabcbcabcab

입력을 생성 할 가장 짧은 사전 식 문자열을 찾기위한 프로그램을 작성하십시오. 표준 입력에는 한 줄의 텍스트가 제공됩니다. 생성 문자열을 표준 출력으로 인쇄해야합니다. 예를 들면 다음과 같습니다.

입력

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

하스켈, 299 자

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)

편집 : JiminP가 발견 한 버그 수정

루비 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

편집 : Jules Olléon의 의견을 읽은 후 코드를 골프화했습니다. 에서 발생하는 '버그'를 제거 bcdabcdab했습니다 abbc.

EDIT2 : Jules Olléon이 발견 한 버그 ( abaa결과 aaa)가 수정 되었습니다.

나는 파이썬에 대해 잘 모르므 로이 코드는 아마도 '골프되지 않습니다'.

나는이 규칙을 좋아한다 :

입력에 문자 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사전 순으로 정렬 할 때 첫 번째 문자열을 찾습니다.

자바 스크립트 96 문자.

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

작업 플런저