동일한 두 개의 연속 하위 문자열이 포함 된 경우 문자열이 반복됩니다.

예를 들어, 연속으로 두 번 2034384538452포함 된대로 반복합니다 3845.

따라서 문자열에 반복 하위 문자열이 포함되어 있는지 여부를 결정해야합니다. 입력을 문자열 또는 문자 배열로 사용할 수 있습니다.

빈 입력은받지 않으며 하위 문자열의 길이 (있는 경우)는 1 이상이 될 수 있습니다.

내가 사용 1하고 0여기 내 truthy 및 falsy 값으로,하지만 당신은 그들이 당신의 언어 truthy 및 falsy 한, 다른 값을 사용할 수 있습니다.

예 :

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

(마지막 예제는 Thue-Morse 시퀀스에서 각 0 사이의 1의 양에서 생성되었습니다)

레티 나 , 6 바이트

(.+)\1

온라인으로 사용해보십시오!

진실에 대한 긍정적 인 가치; 거짓이면 0입니다.

작동 원리

정규 표현식의 일치 횟수를 반환합니다 /(.+)\1/g.

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.

수학, 32 바이트

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

자바, 27 바이트

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

Retina answer 의 복제본과 거의 비슷 하지만 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

파이썬 , 38 바이트

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

온라인으로 사용해보십시오!

하품, 정규식. .+문자열에 방금 캡처 된 동일한 문자열 다음에 하나 이상의 문자가 포함 된 문자열이 있는지 확인합니다 . 에서 확인할 수 있듯이 일치하는 항목이 하나 이상있는 경우 출력 검색 개체는 Truthy bool입니다.

compile여기를 사용 하면 람다를 쓰지 않아도됩니다.

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

파이썬 , 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)

첫 번째는 in하위 문자열을 검사 하기 위해 Python을 사용하지 않으므로 다른 언어에 맞게 조정할 수 있습니다.

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

체다 , 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);

온라인으로 사용해보십시오!

파이썬 3 , 73 66 바이트

@LeakyNun 덕분에 -7 바이트

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

온라인으로 사용해보십시오!

펄 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, 귀하가 같은 게시물을 올린 것을 눈치 채지 못했습니다 .

비정규 버전, 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합니다.

자바 스크립트 (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

apt, 8 + 1 = 9 8 바이트

f"(.+)%1

온라인으로 사용해보십시오 . 출력null거짓에 대한 및 진실성을 위해 반복되는 모든 문자열을 포함하는 배열.

설명

 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

체다, 16 바이트

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

이것은 기능입니다. 온라인으로 사용해보십시오!