String penghasil yang terpendek, terkecil secara leksikografis

Sebuah string x menghasilkan sebuah string yjika ymerupakan sebuah substring dari pengulangan tak terbatas x. Misalnya abcmenghasilkan bcabcab.

Tulis sebuah program untuk menemukan string terpendek, leksikografis terkecil yang akan menghasilkan input. Anda diberi input standar satu baris teks. Anda harus mencetak string penghasil ke output standar. Sebagai contoh:

memasukkan

bcabcabca

keluaran

abc

Kode terpendek menang. Anda dapat berasumsi bahwa input hanya berisi karakter az (dan baris baru tambahan jika Anda mau).

Ruby 1.9, 40 karakter

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

Mengasumsikan input tidak diakhiri oleh baris baru. Juga mungkin sangat lambat untuk hasil yang lebih besar.

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

Keluaran:

bcabcabca
abc

aaa
a

abc
abc

cccbbcccbbcccbb
bbccc

barfoofoobarfoofoo
arfoofoob

bacabac
abacbac

Haskell, 299 128 karakter

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

Terima kasih kepada jloy! Sekarang versi keduanya jauh lebih pendek dan saya percaya benar.

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: memperbaiki bug yang ditemukan oleh JiminP

Ruby 1.9, 36

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

Menggunakan pendekatan yang sama dengan solusi Ventero.

Python, 161 159 166 140 141 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 : Memutar kode setelah membaca komentar Jules Olléon. Menghapus 'bug' yang bcdabcdabmenghasilkan abbc.

EDIT2 : Memperbaiki bug ( abaahasil dalam aaa) yang terlihat oleh Jules Olléon.

Saya tidak tahu tentang Python dengan baik, jadi kode ini mungkin 'tidak golf'.

Saya suka aturan ini:

Anda dapat menganggap input hanya berisi karakter ...

Input & Output

bcdabcd
abcd

bcabcabca
abc


abcdabcd
abcd

bcdabcdab
abcd

barfoofoobarfoofoobar
arfoofoob

cccbbcccbbcccbb
bbccc

aaaaaaaaaaaaaaaa
a

thequickbrownfox
brownfoxthequick

ababa
ab

abaa
aab

Mathematica 124 byte

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

Spasi dan baris baru (dengan adanya titik koma di ujung garis) tidak memiliki arti dalam Mathematica dan disertakan di sini untuk keterbacaan.

Input masuk di antara tanda kutip di baris pertama. Jika disusun kembali sebagai fungsi, itu membutuhkan input string seperti:

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

maka itu 128 byte.

The ForLoop mengambil pertama ikarakter input dan mengulangi mereka setidaknya sampai panjang input, kemudian memeriksa apakah input adalah substring dari hasilnya. Setelah menemukan panjang periode string, StringPartitionperintah merangkai dua salinan periode itu dan mengambil semua substring dari panjangnya (pada dasarnya mendapatkan semua permutasi siklik), kemudian First@Sortmenemukan yang pertama dari mereka ketika dipesan secara leksikografis.

javascript 96 Karakter.

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

Plunkr bekerja