Một chuỗi các ký tự lặp lại nếu nó chứa hai chuỗi con liên tiếp tương đương nhau.

Ví dụ, 2034384538452lặp đi lặp lại vì nó chứa 3845hai lần, liên tiếp.

Do đó, thách thức của bạn là quyết định xem một chuỗi có chứa một chuỗi con lặp lại hay không. Bạn có thể lấy đầu vào là một chuỗi hoặc một mảng các ký tự.

Bạn sẽ không bao giờ nhận được đầu vào trống và độ dài của chuỗi con (nếu nó tồn tại) có thể là 1 hoặc nhiều hơn.

Tôi sử dụng 1và 0ở đây là giá trị trung thực và giả của tôi, nhưng bạn có thể sử dụng các giá trị khác nhau, miễn là chúng trung thực và giả trong ngôn ngữ của bạn.

Ví dụ:

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

(Ví dụ cuối cùng được tạo ra từ số lượng giữa mỗi số 0 trong chuỗi Thue-Morse)

Võng mạc , 6 byte

(.+)\1

Hãy thử trực tuyến!

Giá trị tích cực cho sự thật; không cho chim ưng.

Làm thế nào nó hoạt động

Trả về số lượng trận đấu của regex /(.+)\1/g.

Brachylog , 3 byte

s~j

Hãy thử trực tuyến!

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

Thạch , 6 5 byte

Ẇµ;"f

Đây là một chương trình đầy đủ. TIO không thể xử lý trường hợp thử nghiệm cuối cùng mà không cắt ngắn nó.

Hãy thử trực tuyến! (trường hợp thử nghiệm cuối cùng được rút ngắn thành 250 chữ số)

Làm thế nào nó hoạt động

Ẇµ;"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.

Toán học, 32 byte

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

Java, 27 byte

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

Khá nhiều bản sao của câu trả lời Retina , nhưng không có cách nào Java trở nên ngắn hơn.

05AB1E , 5 byte

Œ2×åZ

Hãy thử trực tuyến!

Đầu ra 1 là giá trị trung thực và 0 là giá trị giả

Giải trình

Œ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 byte

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

Hãy thử trực tuyến!

Ngáp, một regex. Kiểm tra xem chuỗi có chứa một chuỗi gồm một trong số các ký tự được .+theo sau bởi cùng chuỗi đó vừa được bắt hay không. Đối tượng tìm kiếm đầu ra là Truthy nếu có ít nhất một kết quả khớp, như có thể được kiểm tra bởi bool.

Sử dụng compileở đây tiết kiệm hơn viết lambda:

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

Python , 54 byte

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

Hãy thử trực tuyến!

Tìm kiếm một chuỗi con bao gồm hai hoặc nhiều chuỗi bằng nhau được nối, như được kiểm tra s in(s*2)[1:-1]như trong câu trả lời này . Substrings được tạo đệ quy bằng cách chọn cắt ký tự đầu tiên hoặc cuối cùng. Điều này là theo cấp số nhân, vì vậy nó lần ra khỏi trường hợp thử nghiệm lớn.

Gần bỏ lỡ:

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)

Cái đầu tiên không sử dụng Python inđể kiểm tra các chuỗi con và do đó có thể được điều chỉnh theo các ngôn ngữ khác.

Pyth - 10 9 8 byte

f}+TTQ.:

Trả về một danh sách tất cả các chuỗi con lặp lại (nếu không có, là một danh sách trống, đó là giả mạo)

Thử nó

Giải trình:

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 byte

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

Hãy thử trực tuyến!

PHP , 32 byte

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

Hãy thử trực tuyến!

PHP , 38 byte

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

Hãy thử trực tuyến!

Python 3 , 73 66 byte

-7 byte nhờ @LeakyNun

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

Hãy thử trực tuyến!

Perl 6 , 11 byte

{?/(.+)$0/}

Kiểm tra nó

Mở rộng:

{        # 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 byte

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

Chạy như ống với -F. Xin lỗi Jörg, tôi đã nhận thấy Bạn đã đăng cùng .

phiên bản không regex, 84 82 byte

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

thoát với mã trả lại 0cho một lần lặp lại, hết thời gian (và thoát với lỗi) cho không có. Chạy như ống với -nr.
giả định đầu vào ASCII có thể in được; thay thế ~với a&bất cứ ASCII.

JavaScript (ES6), 19 byte

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

Bình thường, 15 byte

.E.nm.bqNYtdd./

Thử nó!

V , 6 byte

ø¨.«©±

Hãy thử trực tuyến!

Phòng thử nghiệm!

Chương trình đầu ra 0 các giá trị falsey và một số nguyên dương cho các giá trị dương.

(Lưu ý rằng có một lỗi nhỏ, vì vậy tôi phải đạt được 1 byte. Bây giờ sau khi sửa lỗi, tôi sẽ có thể thay thế .« bằng\x82 )

Giải trình

ø                     " 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 byte

f"(.+)%1

Hãy thử trực tuyến . Đầu ra nullcho sai lệch và một mảng chứa tất cả các chuỗi lặp lại cho sự thật.

Giải trình

 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 byte

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

Đây là một chức năng. Hãy thử trực tuyến!