สิ่งนี้นำมาจากคำถามนี้ (ได้รับอนุญาตจากหลักสูตร) ฉันจะพูด:

สร้างฟังก์ชั่นซึ่งจะใช้เวลาสตริงและมันควรจะกลับจริงหรือเท็จขึ้นอยู่กับว่าการป้อนข้อมูลประกอบด้วยเพียงลำดับตัวอักษรซ้ำแล้วซ้ำอีก ความยาวของสตริงที่กำหนดมีค่ามากกว่า 1 เสมอและลำดับอักขระต้องมีการทำซ้ำอย่างน้อยหนึ่งครั้ง

ตัวอย่างบางส่วน:

'aa' //true
'aaa' //true
'abcabcabc' //true
'aba' //false
'ababa' //false
'weqweqweqweqweqw' // false

โดยเฉพาะอย่างยิ่งการตรวจสอบสตริงที่ประกอบด้วยสตริงย่อยที่ซ้ำกัน ( อัพเดต ) สามารถส่งเอาต์พุตการแสดงใด ๆ ที่เป็นจริงหรือเท็จได้ สตริงตัวอักษรผสมตัวเลขอย่างเคร่งครัด มิฉะนั้นกฎรหัสมาตรฐานกอล์ฟ นี่คือ Code Golf ดังนั้นคำตอบสั้น ๆ เป็นไบต์สำหรับแต่ละภาษาที่ชนะ

Brachylog , 4 3 ไบต์

ġ=Ṁ

ลองออนไลน์!

คำอธิบาย

ġ=Ṁ    Implicit input, say "abcabc"
ġ      Split into chunks of equal lengths (except maybe the last one): ["abc","abc"]
 =     Apply the constraint that all of the chunks are equal,
  Ṁ    and that there are multiple of them.

โปรแกรมจะพิมพ์true.หากข้อ จำกัด นั้นเป็นที่น่าพอใจและfalse.หากไม่เป็นเช่นนั้น

JavaScript (ES6), 22 ไบต์

ส่งคืนค่าบูลีน

s=>/^(.*)\1+$/.test(s)

ลองออนไลน์!

หากไม่มีนิพจน์ทั่วไป 33  29 ไบต์

ส่งคืนnull(เท็จ) หรือวัตถุ (ความจริง)

s=>(s+s).slice(1,-1).match(s)

ลองออนไลน์!

หมายเหตุ: ในทางเทคนิค$s$จะถูกแปลงเป็นนิพจน์ทั่วไปสำหรับการจับคู่ ()ดังนั้นชื่อเรื่องข้างต้นจึงเป็นเรื่องโกหก

grep, 19

grep -qxE '(.+)\1+'

ทดสอบ

while read; do 
  <<<"$REPLY" grep -qxE '(.+)\1+' && t="true" || t="false"
  echo "$REPLY: $t"
done < infile 

เอาท์พุท:

aa: true
aaa: true
abcabcabc: true
aba: false
ababa: false
weqweqweqweqweqw: false

Japtap , 6 ไบต์

²é ¤øU

บันทึกหนึ่งไบต์ด้วย @Shaggy

ลองออนไลน์!

        Implicit input, stored in variable 'U'
²       U+U, "abcabc" -> "abcabcabcabc"
 é      Rotate 1 char to the right "abcabcabcabc" -> "cabcabcabcab"
   ¤    Remove first two chars, "cabcabcabcab" -> "bcabcabcab"
    øU  Check if U is in the above

Java, 25 24 ไบต์

-1 ไบต์ขอบคุณ Olivier Grégoire!
คำตอบ regex น่าเบื่อ

s->s.matches("(.+)\\1+")

ลองออนไลน์!

มันยาวเกิน 1 python มากกว่าคำตอบหลาม aaaaaตอนนี้ฉันผูกแล้ว :)

Excel, 26 ไบต์

=FIND(A1,A1&A1,2)<=LEN(A1)

อินพุตจาก A1 ส่งออกไปยังเซลล์ใด ๆ ที่คุณใส่สูตรนี้

R , 28 ไบต์

grepl("(.+)\\1+$",scan(,''))

ลองออนไลน์!

รุ่น Regex ง่าย ๆ R คือ (บางครั้ง) คล้ายกับ Python ดังนั้นนี่จึงคล้ายกับคำตอบ Pex 2 regex ของ TFeld แม้ว่าจะสั้นกว่า!

คำถาม (ถ้าใครรู้คำตอบ)

ฉันยังคงสับสนว่าทำไมงานนี้เนื่องจากสตริงย่อยอาจมีความยาวเท่าใดก็ได้และจะทำงานตลอดเวลาและยังใช้ได้เมื่อฉันเพิ่มตัวอักษรที่ด้านหน้าของสตริงที่ถูกต้องเช่น "cABABABABAB" ถ้าฉันอ่าน regex เป็นการส่วนตัวฉันจะเห็น(.+)ว่ามันจับกลุ่มใดก็ได้ และจากนั้น\\1+$ซึ่งจะจับกลุ่มที่ถูกจับซ้ำหลาย ๆ ครั้งจนกระทั่งสิ้นสุด

เหตุใดจึงไม่จับเพียง "AB" และพบว่าซ้ำจนกระทั่งสิ้นสุดของสตริงโดยเฉพาะอย่างยิ่งเนื่องจากไม่มีข้อ จำกัด ที่ระบุว่าตำแหน่งย่อยสามารถเริ่มได้อย่างไร

เรติน่า 0.8.2 , 9 ไบต์

^(.+)\1+$

ลองออนไลน์! ลิงค์มีกรณีทดสอบ

เยลลี่ ,  5  4 ไบต์

ผมเห็นว่าตอนนี้วิธีที่ดีที่สุดคือการทำตามวิธีการของ XNOR !

Ḋ;Ṗw

ลิงก์ monadic ที่ยอมรับรายการของอักขระและแสดงผลเป็นจำนวนเต็ม - ความยาวที่สั้นที่สุดที่เป็นไปได้ของส่วนที่ซ้ำหรือศูนย์ถ้าไม่มี โปรดทราบว่าศูนย์เป็นเท็จในขณะที่ตัวเลขที่ไม่ใช่ศูนย์เป็นความจริงในเยลลี่

ลองออนไลน์!

อย่างไร?

Ḋ;Ṗw - Link: list of characters, S   e.g. "abcabcabc"   or "abababa"
Ḋ    - dequeue S                           "bcabcabc"       "bababa"
  Ṗ  - pop from S                         "abcabcab"       "ababab"
 ;   - concatenate                "bcabcabcabcabcab"       "bababaababab"
   w - first index of sublist     3  ^---here!             0  (not found)

Perl 5 -p , 14 ไบต์

$_=/^(.*)\1+$/

ลองออนไลน์!

Python 2 , 24 ไบต์

lambda s:s in(s*2)[1:-1]

ลองออนไลน์!

ขโมยอย่างไร้ยางอายจากคำตอบของ xnorต่อคำถามเดิม

รุ่นที่ใช้งานง่ายขึ้น:

Python 2 , 59 55 53 ไบต์

lambda s:s in[len(s)/i*s[:i]for i in range(1,len(s))]

ลองออนไลน์!

รุ่น regex ที่น่าเบื่อ:

Python 2 , 44 ไบต์

lambda s:re.match(r'(.+)\1+$',s)>0
import re

ลองออนไลน์!

ภาษา Wolfram (Mathematica) , 24 23 ไบต์

StringMatchQ[x__..~~x_]

ลองออนไลน์!

StringMatchQ[           (*a function that checks if its input (string) matches:*)
             x__..      (*a sequence of one or more characters, repeated one or more times*)
                  ~~x_] (*and one more time*)

Pykeขนาด 4 ไบต์

+tO{

ลองที่นี่!

+    -    input+input
 t   -   ^[1:]
  O  -  ^[:-1]
   { - input in ^

J , ^{26 25 15} 14 ไบต์

ใช้วิธี xnor

+./@E.}:@}.@,~

ลองออนไลน์!

ต้นฉบับ (สองวิธีที่ต่างกัน)

J , 25 ไบต์

1<1#.(#%#\)=<\+/@E.&:>"{]

ลองออนไลน์!

J , 26 ไบต์

1<1#.-@#\([:(-:##{.)<\)"{]

ลองออนไลน์!

PowerShell, 23 24 ไบต์

+1 ไบต์เพื่อจับคู่กฎอย่างสมบูรณ์

"$args"-match"^(.+)\1+$"

ลองออนไลน์!

ค่อนข้างน่าเบื่อ. ตามคำตอบ Regex อื่น ๆ โชคดีที่ PowerShell ไม่ได้ใช้\เป็นตัวละครในการหลบหนี!

C # (Visual C # Interactive Compiler) , 70 ไบต์

xnor's shameless adaptation ( 46 bytes )

s=>(s+s).Substring(1,s.Length*2-2).Contains(s)

โซลูชันที่ไม่ใช่ Regex ของฉัน:

s=>s.Select((x,y)=>y).Count(z=>s.Replace(s.Substring(0,z+1),"")=="")>1

คำอธิบาย:

แทนที่สตริงย่อยที่เป็นไปได้ทั้งหมดที่เริ่มต้นที่ดัชนี 0 ด้วยสตริงว่าง ถ้าผลลัพธ์เป็นสตริงว่างสตริงนั้นจะทำจากสตริงย่อยนั้นทั้งหมด เนื่องจากสิ่งนี้รวมถึงการประเมินสตริงทั้งหมดด้วยตัวเองจำนวนผลลัพธ์ที่คาดหวังต้องมากกว่า 1

ตัวอย่าง: abcabc

สตริงย่อยที่เป็นไปได้เริ่มต้นที่ดัชนี 0:

'a', 'ab', 'abc', 'abca', 'abcab', 'abcabc'

ถ้าเราแทนที่มันด้วยสตริงว่าง

Substring          Result

'a'         =>     'bcbc'
'ab'        =>     'cc'
'abc'       =>     ''
'abca'      =>     'bc'
'abcab'     =>     'c'
'abcabc'    =>     ''

เนื่องจากมีสตริงย่อยอื่นที่ไม่ใช่ 'abcabc' ที่ส่งคืนสตริงว่างสตริงจึงทำจากสตริงย่อยอื่นทั้งหมด ('abc')

ลองออนไลน์!

Python 3 , 62 60 56 54 ไบต์

-4 ไบต์ thanx ถึงArBo

lambda s:s in(len(s)//l*s[:l]for l in range(1,len(s)))

1. ทำซ้ำคำนำหน้าทั้งหมดที่เป็นไปได้ในสตริง
2. ลองสร้างสตริงออกจากคำนำหน้า
3. กลับมาว่าสิ่งนี้จะประสบความสำเร็จกับคำนำหน้าใด ๆ เลย

ลองออนไลน์!

Japt , 10 ไบต์

ส่งกลับจำนวนบวกถ้าความจริงและ 0 ถ้าเท็จ หากคุณต้องการเอาต์พุตบูลเพียงเพิ่ม-¡แฟล็ก

å+ k@rXÃÊÉ

å+ k@rXÃÊÉ      Full program. Implicit input U.
                    e.g: U = "abcabcabc"
å+              Take all prefixes 
                         U = ["a","ab","abc","abca","abcab","abcabc","abcabca","abcabcab","abcabcabc"]
   k@           Filter U by:
     rXÃ        Values that return false (empty string)
                when replacing each prefix in U
                e.g: ["bcbcbc","ccc","","bcabc","cabc","abc","bc","c",""]
                                take ↑                             and ↑
                     U = ["abc","abcabcabc"]
         ÊÉ     Get U length and subtract 1. Then return the result

ลองออนไลน์!

Husk , 6 ไบต์

Ṡ€ȯhtD

ลองออนไลน์!

ฉันรู้สึกว่านี่เป็นหนึ่งไบต์ที่ดีที่สุด แต่ฉันไม่สามารถหาข้อตกลงที่ทำให้การจัดองค์ประกอบชัดเจนȯไม่จำเป็น

คำอธิบาย

Ṡ€      Find the argument in the result of applying the following function to the argument
  ȯhtD  Duplicate the argument, then remove the first and last elements.

Mathematica 11.x, 74 ไบต์

{}!=StringCases[#,StartOfString~~x__/;(x!=#&&StringReplace[#,x->""]=="")]&

โดยที่ตลอด#หมายถึงสตริงอินพุตและ

StringCases[#,<pattern>]

ค้นหาสตริงย่อยของอินพุตสตริงที่ตรงกับรูปแบบ

StartOfString~~x__/;(x!=#&&StringReplace[#,x->""]=="") 

รูปแบบนี้ต้องใช้การจับคู่xต้องเริ่มต้นที่จุดเริ่มต้นของสตริงและต้องเป็นไปตามเงื่อนไขที่ (1) การจับคู่ไม่ใช่ทั้งสตริงและ (2) หากเราแทนที่การจับคู่ในสตริงอินพุตด้วยสตริงว่าง เราได้รับสตริงว่าง สุดท้ายเปรียบเทียบรายการที่ตรงกันกับรายการที่ว่างเปล่า

{}!=

คือTrueถ้ารายการการแข่งขันไม่ว่างเปล่าและFalseว่างเปล่าหากรายการการแข่งขันว่างเปล่า

กรณีทดสอบ:

{}!=StringCases[#,StartOfString~~x__/;(x!=#&&StringReplace[#,x->""]=="")]&["aa"]
(*  True  *)
{}!=StringCases[#,StartOfString~~x__/;(x!=#&&StringReplace[#,x->""]=="")]&["aaa"]
(*  True  *)
{}!=StringCases[#,StartOfString~~x__/;(x!=#&&StringReplace[#,x->""]=="")]&["abcabc"]
(*  True  *)

และ

{}!=StringCases[#,StartOfString~~x__/;(x!=#&&StringReplace[#,x->""]=="")]&["aba"]
(*  False  *)
{}!=StringCases[#,StartOfString~~x__/;(x!=#&&StringReplace[#,x->""]=="")]&["ababa"]
(*  False  *)
{}!=StringCases[#,StartOfString~~x__/;(x!=#&&StringReplace[#,x->""]=="")]&["weqweqweqweqweqw"]
(*  False  *)

Python 3, 84 ไบต์

import textwrap
lambda s:any(len(set(textwrap.wrap(s,l)))<2 for l in range(1,len(s)))

ใช้textwrap.wrap(ขอบคุณคำตอบนี้ ) เพื่อแยกสตริงเป็นชิ้นส่วนของความยาวnเพื่อทดสอบความยาวที่เป็นไปได้ของการทำซ้ำสตริงย่อย ชิ้นส่วนที่ถูกแยกจะถูกนำมาเปรียบเทียบกันโดยการเพิ่มลงในชุด หากชิ้นส่วนทั้งหมดเท่ากันและชุดมีความยาว 1 ดังนั้นสตริงต้องเป็นสตริงซ้ำ ฉันใช้<2แทน==1เพราะมันช่วยประหยัดไบต์และความยาวของสตริงอินพุตนั้นรับประกันว่ามากกว่าศูนย์

หากไม่มีnความยาวของสตริงย่อยที่ทำซ้ำรวมnกันเป็นสตริงทั้งหมดให้ส่งคืนค่าเท็จสำหรับฟังก์ชันทั้งหมด

05AB1E , 5 ไบต์

วิธีการของ xnorจากคำถามก่อนหน้านี้ดูเหมือนจะดีที่สุดใน 05AB1E เช่นกัน

«¦¨så

ลองออนไลน์! หรือเป็นชุดทดสอบ

คำอธิบาย

«       # append input to input
 ¦¨     # remove the first and last character of the resulting string
   så   # check if the input is in this string

ทำความสะอาด 73 ไบต์

ไม่ใช้ regex

import StdEnv,Data.List
$s=or[isPrefixOf s(cycle t)\\t<-tl(tails s)|t>[]]

ลองออนไลน์!

$ :: [Char] -> Boolกำหนด
ตรวจสอบว่าสตริงที่กำหนดเป็นคำนำหน้าของการทำซ้ำของสตริงย่อยใด ๆ ที่นำมาจากจุดสิ้นสุด

C ++ (gcc) , 36 ไบต์

#define f(x)(x+x).find(x,1)<x.size()

ลองออนไลน์!

โซลูชันอื่นของ xnor ใช้แมโครเพื่อขยายอาร์กิวเมนต์ไปยังนิพจน์ std::stringอาร์กิวเมนต์จะถือว่าเป็นประเภท

ตัวแปร QlikView ขนาด 27 ไบต์

สิ่งนี้ควรถูกกำหนดเป็นตัวแปรซึ่งอนุญาตให้คุณส่งพารามิเตอร์เช่น$1ค่าอินพุตของคุณ

มันจะส่งกลับ0หรือ-1(เทียบเท่ากับTRUE()ฟังก์ชั่นของ QlikView )

=substringcount($1&$1,$1)>2

Swift, 196 ไบต์

func r(s:String)->Bool{guard let k=s.dropFirst().firstIndex(where:{$0==s.first}) else{return false};let v=s[...k].dropLast();var w=v;while s.hasPrefix(w) && s.count>=(w+v).count{w+=v};return s==w}

ลองออนไลน์!

ไอคอน , 46 ไบต์

procedure f(s);return find(s,(s||s)[2:-1]);end

ลองออนไลน์!

โซลูชันอื่นของ xnor

K (oK) , 29 ไบต์

{0<+/(1=#?:)'(0N,'1_!#x)#\:x}

ลองออนไลน์!

สีแดง 72 ไบต์

func[s][repeat i length? s[parse s[copy t i skip some t end(return 1)]]]

ลองออนไลน์!

ผลตอบแทน 1สำหรับTrue

T-SQL, 47 ไบต์

ใช้วิธีการของ @ Xnor :

DECLARE @ varchar(max)='ababab'

PRINT sign(charindex(@,left(@+@,len(@)*2-1),2))

การรักษาคำตอบเก่าไว้เพราะมันมีการตีกอล์ฟที่ดี (67 ไบต์):

DECLARE @y varchar(max)='abababa'

,@ INT=0WHILE
replace(@y,left(@y,@),'')>''SET
@+=1PRINT @/len(@y)^1

คำอธิบาย:สคริปต์นี้พยายามแทนที่อินพุต '@y' ซ้ำด้วยอักขระ '@' แรกของอินพุต '@y' โดยไม่มีอะไรเลยขณะที่เพิ่ม '@'

หากคุณแทนที่ 'ab' ใน 'ababab' ด้วยสิ่งใดก็ตามคุณจะต้องมีสตริงว่าง

ในที่สุดผลลัพธ์จะว่างเปล่า หากสิ่งนี้เกิดขึ้นเมื่อตัวแปรลูปเท่ากับความยาวของ varchar เกณฑ์เป็นเท็จ / 0 เพราะ '@' = len (@y) (ไม่มี varchar ซ้ำ)

iif(@=len(@y),0,1)

สามารถเล่นกอล์ฟได้

@/len(@y)^1

เนื่องจากความยาวของ '@y' ไม่สามารถเป็น 0 และ '@' จะไม่เกินความยาว @y

ลองออนไลน์