สตริงอักขระซ้ำหากมีสตริงย่อยสองรายการติดต่อกันที่เทียบเท่า

ตัวอย่างเช่น2034384538452ทำซ้ำเนื่องจากมี3845สองครั้งติดต่อกัน

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

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

ฉันใช้1และ0นี่เป็นค่าความจริงและเป็นเท็จของฉัน แต่คุณอาจใช้ค่าที่แตกต่างกันตราบใดที่พวกเขามีความจริงและเป็นเท็จในภาษาของคุณ

ตัวอย่าง:

abcab -> 0
bdefdefg -> 1
Hello, World! -> 1
pp.pp/pp -> 1
q -> 0
21020121012021020120210121020121012021012102012021020121012021020120210121020120210201210120210121020121012021020120210121020121012021012102012021020121012021012102012101202102012021012102012021020121012021020120210121020121012021012102012021020121012021020120210121020120210201210120210121020121012021020120210121020120210201210120210201202101210201210120210121020120210201210120210121020121012021020120210121020121012021012102012021020121012021020120210121020120210201210120210121020121012021020120 -> 0

(ตัวอย่างสุดท้ายถูกสร้างขึ้นจากจำนวนของแต่ละศูนย์ในลำดับ Thue-Morse)

เรติน่า 6 ไบต์

(.+)\1

ลองออนไลน์!

ค่าบวกสำหรับความจริง; ศูนย์สำหรับความเท็จ

มันทำงานอย่างไร

ส่งกลับจำนวนของการแข่งขันของ /(.+)\1/gregex

Brachylogขนาด 3 ไบต์

s~j

ลองออนไลน์!

s~j
s    exists a sublist of input
 ~j  which is the result of a juxtaposition of something

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

Ẇµ;"f

นี่เป็นโปรแกรมเต็ม TIO ไม่สามารถจัดการกับกรณีทดสอบล่าสุดได้โดยไม่ต้องตัดทอน

ลองออนไลน์! (กรณีทดสอบล่าสุดถูกตัดเหลือ 250 หลัก)

มันทำงานอย่างไร

Ẇµ;"f  Main link. Argument: s (string)

Ẇ      Words; generate all substrings of s.
 µ     New chain. Argument: A (substring array)
  ;"   Vectorized concatenation; concatenate each substring with itself.
    f  Filter; keep "doubled" substrings that are also substrings.
       This keeps non-empty string iff the output should be truthy, producing
       non-empty output (truthy) in this case and empty output (falsy) otherwise.

Mathematica ขนาด 32 ไบต์

StringMatchQ[___~~x__~~x__~~___]

Java, 27 ไบต์

a->a.matches(".*(.+)\\1.*")

เป็นคำตอบที่เหมือนกันกับRetinaมาก แต่ไม่มีทางที่ Java จะสั้นลงได้

05AB1E , 5 ไบต์

Œ2×åZ

ลองออนไลน์!

เอาต์พุต 1 เป็นค่าจริงและ 0 เป็นค่าเท็จ

คำอธิบาย

Œ2×åZ
Π    # Substrings of input
 2×   # duplicate them (vectorized)
   å  # Is the element in the input? (vectorized)
    Z # Maximum value from list of elements

Pythonขนาด 38 ไบต์

import re
re.compile(r'(.+)\1').search

ลองออนไลน์!

หาว, regex ตรวจสอบว่าสตริงมีสตริงของอักขระอย่างน้อยหนึ่งตัว.+ตามด้วยสตริงเดียวกันกับที่เพิ่งถูกดักจับ วัตถุค้นหาผลลัพธ์เป็นความจริงหากมีอย่างน้อยหนึ่งรายการที่ตรงกันซึ่งสามารถตรวจสอบboolได้

การใช้compileที่นี่จะช่วยประหยัดมากกว่าการเขียนแลมบ์ดา:

lambda s:re.search(r'(.+)\1',s)

Pythonขนาด 54 ไบต์

f=lambda s:s>''and(s in(s*2)[1:-1])|f(s[1:])|f(s[:-1])

ลองออนไลน์!

ค้นหาสตริงย่อยที่ประกอบกันอย่างน้อยสองสตริงที่ต่อกันตามที่ตรวจสอบโดยs in(s*2)[1:-1]ในคำตอบนี้ สตริงย่อยถูกสร้างขึ้นซ้ำโดยเลือกที่จะตัดอักขระตัวแรกหรืออักขระสุดท้าย นี่เป็นเลขยกกำลังจึงหมดเวลาในกรณีทดสอบขนาดใหญ่

ใกล้คิดถึง:

f=lambda s,p='':s and(s==p)*s+f(s[1:],p+s[0])+f(s[:-1])
f=lambda s,i=1:s[i:]and(2*s[:i]in s)*s+f(s[1:])+f(s,i+1)

คนแรกไม่ได้ใช้ Python inเพื่อตรวจสอบสตริงย่อยและสามารถปรับใช้กับภาษาอื่นได้

Pyth - 10 9 8 ไบต์

f}+TTQ.:

ส่งคืนรายการของสตริงย่อยที่ทำซ้ำทั้งหมด (ซึ่งหากไม่มี) จะเป็นรายการว่างเปล่าซึ่งเป็นเท็จ

ลองมัน

คำอธิบาย:

f}+TTQ.:
      .:    # All substrings of the input (implicit):
f           # filter the list of substrings T by whether...
  +TT       # ...the concatenation of the substring with itself...
 }   Q      # ...is a substring of the input

Cheddar , 60 ไบต์

n->(|>n.len).any(i->(|>i).any(j->n.index(n.slice(j,i)*2)+1))

ลองออนไลน์!

PHP , 32 ไบต์

<?=preg_match('#(.+)\1#',$argn);

ลองออนไลน์!

PHP , 38 ไบต์

<?=preg_match('#(.+)(?(1)\1)#',$argn);

ลองออนไลน์!

Python 3 , 73 66 ไบต์

-7 ไบต์ขอบคุณ @LeakyNun

lambda s:any(2*s[j:i]in s for i in range(len(s))for j in range(i))

ลองออนไลน์!

Perl 6 , 11 ไบต์

{?/(.+)$0/}

ทดสอบมัน

ขยาย:

{        # bare block lambda with implicit parameter ｢$_｣

  ?      # Boolify the following
         # (need something here so it runs the regex instead of returning it)

  /      # a regex that implicitly matches against ｢$_｣
    (.+) # one or more characters stored in $0
     $0  # that string of characters again
  /
}

PHP, 32 ไบต์

<?=preg_match('#(.+)\1#',$argn);

-Fทำงานเป็นท่อด้วย ขออภัยJörgผม hadn't สังเกตเห็นคุณได้โพสต์เดียวกัน

รุ่นที่ไม่ใช่ regex, 84 82 ไบต์

    for($s=$argn;++$e;)for($i=0;~$s[$i];)substr($s,$i,$e)==substr($s,$e+$i++,$e)&&die

ออกด้วยรหัสส่งคืน0สำหรับการทำซ้ำหมดเวลา (และออกโดยมีข้อผิดพลาด) สำหรับไม่มี -nrทำงานเป็นท่อด้วย
ถือว่าอินพุต ASCII ที่พิมพ์ได้; แทนที่~ด้วยa&สำหรับ ASCII ใด ๆ

JavaScript (ES6), 19 ไบต์

s=>/(.+)\1/.test(s)

Pyth, 15 ไบต์

.E.nm.bqNYtdd./

ลองมัน!

V , 6 ไบต์

ø¨.«©±

ลองออนไลน์!

ชุดทดสอบ!

โปรแกรมแสดงผล0สำหรับค่าความผิดพลาดและจำนวนเต็มบวกสำหรับค่าบวก

(โปรดทราบว่ามีข้อผิดพลาดเล็ก ๆ ดังนั้นฉันต้องได้รับ 1 ไบต์ตอนนี้หลังจากแก้ไขข้อผิดพลาดฉันจะสามารถแทนที่.«ด้วย\x82)

คำอธิบาย

ø                     " This is a recent addition to V. This command takes in a regex
                      " and replaces the line with the number of matches of the regex
 ¨.«©±                " The compressed regex. This decompresses to \(.\+\)\1

Japt, 8 + 1 = 9 8 ไบต์

f"(.+)%1

ลองมันออนไลน์ เอาท์พุทnullสำหรับ falsy และอาร์เรย์ที่มีสตริงการทำซ้ำทั้งหมดสำหรับความจริง

คำอธิบาย

 f"(.+)%1
Uf"(.+)%1" # Implicit input and string termination
Uf         # Find in the input
  "(.+)%1" #   a sequence followed by itself
 f         # and return the matched substring
           # output the return value

Cheddar, 16 ไบต์

@.test(/(.+)\1/)

นี่คือฟังก์ชั่น ลองออนไลน์!