Chuỗi tạo ngắn nhất, từ vựng nhỏ nhất

Một chuỗi x tạo ra một chuỗi ynếu ylà một chuỗi con lặp lại vô hạn x. Ví dụ abctạo ra bcabcab.

Viết chương trình tìm chuỗi ngắn nhất, từ vựng nhỏ nhất sẽ tạo đầu vào. Bạn được cung cấp trên đầu vào tiêu chuẩn một dòng văn bản. Bạn nên in chuỗi tạo ra đầu ra tiêu chuẩn. Ví dụ:

đầu vào

bcabcabca

đầu ra

abc

Mã ngắn nhất sẽ thắng. Bạn có thể giả sử đầu vào chỉ chứa các ký tự az (và một dòng mới theo sau nếu bạn muốn).

Ruby 1.9, 40 ký tự

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

Giả sử đầu vào không bị chấm dứt bởi một dòng mới. Ngoài ra, nó có thể chậm một cách lố bịch cho kết quả lớn hơn.

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

Python 88 185 ký tự

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

Đầu ra:

bcabcabca
abc

aaa
a

abc
abc

cccbbcccbbcccbb
bbccc

barfoofoobarfoofoo
arfoofoob

bacabac
abacbac

Haskell, 299 128 ký tự

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

Cảm ơn jloy! Bây giờ phiên bản ngắn hơn nhiều và tôi tin là chính xác.

Python, 121 137 129 ký tự

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: đã sửa lỗi phát hiện bởi JiminP

Hồng ngọc 1.9, 36

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

Sử dụng phương pháp tương tự như giải pháp của Ventero.

Con trăn 161 159 166 140 141 134 132 ký tự

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 : Đánh gôn mã sau khi đọc bình luận của Jules Olléon. Đã xóa một 'lỗi' bcdabcdabdẫn đến abbc.

EDIT2 : Đã sửa lỗi ( abaakết quả aaa) được phát hiện bởi Jules Olléon.

Tôi không biết rõ về Python, vì vậy mã này có thể là 'không được đánh gôn'.

Tôi yêu quy tắc này:

Bạn có thể giả sử đầu vào chỉ chứa các ký tự az ...

Đầu vào và đầu ra

bcdabcd
abcd

bcabcabca
abc


abcdabcd
abcd

bcdabcdab
abcd

barfoofoobarfoofoobar
arfoofoob

cccbbcccbbcccbb
bbccc

aaaaaaaaaaaaaaaa
a

thequickbrownfox
brownfoxthequick

ababa
ab

abaa
aab

Toán học 124 byte

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

Khoảng trắng và dòng mới (với sự hiện diện của dấu chấm phẩy ở cuối dòng) không có ý nghĩa gì trong Mathicala và được đưa vào đây để dễ đọc.

Đầu vào đi vào giữa các dấu ngoặc kép trong dòng đầu tiên. Nếu recast là một hàm, có chuỗi đầu vào như vậy:

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

sau đó là 128 byte.

Các Forvòng lặp sẽ là người đầu tiên inhân vật của đầu vào và lặp lại chúng ít nhất lên đến chiều dài của đầu vào, sau đó kiểm tra nếu đầu vào là một chuỗi của kết quả. Đã tìm thấy độ dài của chu kỳ của chuỗi, StringPartitionlệnh ghép hai bản sao của khoảng thời gian đó và lấy tất cả các chuỗi con có độ dài đó (về cơ bản nhận được tất cả các hoán vị theo chu kỳ), sau đó First@Sorttìm thấy một trong số chúng khi được sắp xếp theo từ vựng.

javascript 96 Chars.

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

Làm việc Plunkr