สตริงการสร้างที่สั้นที่สุด

สตริงx สร้างสตริงyถ้าyเป็น substring xของซ้ำไม่มีที่สิ้นสุดของ ยกตัวอย่างเช่นสร้างabcbcabcab

เขียนโปรแกรมเพื่อค้นหาสตริงที่สั้นและสั้นที่สุดที่จะสร้างอินพุต คุณจะได้รับข้อความเดียวบรรทัดเดียวในอินพุตมาตรฐาน คุณควรพิมพ์สตริงการสร้างไปยังเอาต์พุตมาตรฐาน ตัวอย่างเช่น:

อินพุต

bcabcabca

เอาท์พุต

abc

รหัสที่สั้นที่สุดชนะ คุณอาจสันนิษฐานว่าการป้อนข้อมูลมีเพียงตัวอักษร az (และขึ้นบรรทัดใหม่ต่อท้ายหากคุณต้องการ)

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, 299 128 ตัวอักษร

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

ทับทิม 1.9, 36

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

ใช้วิธีการเดียวกับโซลูชันของ Ventero

งูหลาม 161 159 166 140 141 134 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

แก้ไข : Golfed รหัสหลังจากอ่านความคิดเห็นของ Jules Olléon ลบ 'บั๊ก' ที่ให้bcdabcdabผลลัพธ์abbcออก

EDIT2 : แก้ไขข้อผิดพลาด ( abaaผลลัพธ์ในaaa) เห็นจูลส์Olléon

ฉันไม่รู้เกี่ยวกับ Python ดังนั้นรหัสนี้น่าจะเป็น 'ไม่เล่นกอล์ฟ'

ฉันรักกฎนี้

คุณอาจจะสมมติว่าการป้อนข้อมูลมีเพียงตัวอักษร 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จะพบหนึ่งในพวกเขาเมื่อสั่ง

javascript 96 Chars

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

ทำงาน Plunkr