En kısa, sözlükbilimsel olarak en küçük üretim dizesi

Bir dize , sonsuz tekrarının alt dizesi ise dize x oluşturur . Örneğin üretir .yyxabcbcabcab

Girdiyi oluşturacak en kısa, sözlüksel olarak en küçük dizeyi bulmak için bir program yazın. Standart girişte tek bir metin satırı verilir. Oluşturma dizesini standart çıktıya yazdırmalısınız. Örneğin:

giriş

bcabcabca

çıktı

abc

En kısa kod kazanır. Girdinin yalnızca az karakterlerini (ve isterseniz bir satırsonu satırını) içerdiğini varsayabilirsiniz.

Yakut 1.9, 40 karakter

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

Girdinin bir satırsonu tarafından sonlandırılmadığını varsayar. Ayrıca büyük sonuçlar için muhtemelen gülünç derecede yavaştır.

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

Python 88 185 karakter

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

Çıktı:

bcabcabca
abc

aaa
a

abc
abc

cccbbcccbbcccbb
bbccc

barfoofoobarfoofoo
arfoofoob

bacabac
abacbac

Haskell, 299128 karakter

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

Jloy'a teşekkürler! Şimdi sürüm hem çok daha kısa hem de doğru olduğuna inanıyorum.

Python, 121 137 129 karakter

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 tarafından tespit edilen hata düzeltildi

Yakut 1.9, 36

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

Ventero'nun çözümü ile aynı yaklaşımı kullanır.

Python, 16115616616140140 134 132 karakter

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 : Jules Olléon yorum okuduktan sonra kodu golf. bcdabcdabSonuç olarak ortaya çıkan bir 'hata' kaldırıldı abbc.

EDIT2 : Hata düzeltildi (abaaaaa Jules Olléon tarafından tespit edilen sonuç ) düzeltildi.

Python hakkında iyi bilmiyorum, bu yüzden bu kod muhtemelen 'golf değil'.

Bu kuralı seviyorum:

Girdinin yalnızca az karakter içerdiğini varsayabilirsiniz ...

Girişler ve Çıkışlar

bcdabcd
abcd

bcabcabca
abc


abcdabcd
abcd

bcdabcdab
abcd

barfoofoobarfoofoobar
arfoofoob

cccbbcccbbcccbb
bbccc

aaaaaaaaaaaaaaaa
a

thequickbrownfox
brownfoxthequick

ababa
ab

abaa
aab

Mathematica 124 bayt

x = StringLength@(y = "");
For[i = 1, ! (s = y~StringTake~i)~StringRepeat~x~StringContainsQ~y,i++];
First@Sort@StringPartition[s <> s, i, 1]

Beyaz alan ve satırsonlarının (satır sonlarında noktalı virgül varsa) Mathematica'da bir anlamı yoktur ve okunabilirlik için buraya dahil edilmiştir.

Giriş, ilk satırdaki tırnak işaretleri arasına girer. İşlev olarak yeniden ayarlarsa, dize girdisi şöyle olur:

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

o zaman 128 bayt.

ForHalkası, birinci alan igiriş karakterleri ve en azından yukarı giriş uzunluğu bunları tekrar, daha sonra, giriş sonucu de bir alt etmediğini kontrol eder. Dizenin süresinin uzunluğunu bulduktan sonra, StringPartitionkomut o dönemin iki kopyasını birleştirir ve o uzunluktaki tüm alt dizeleri ondan alır (temelde tüm döngüsel permütasyonları alır), sonra First@Sortsözlükbilimsel olarak sipariş edildiğinde ilkini bulur.

javascript 96 Karakterler.

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

Çalışma Plunkr