Eşdeğer iki ardışık alt dize içeriyorsa, bir karakter dizisi tekrarlanır.

Örneğin , art arda iki kez 2034384538452içerdiğinden tekrar eder 3845.

Bu nedenle, zorluğunuz bir dizenin yinelenen bir alt dize içerip içermediğine karar vermektir. Girişi dize veya karakter dizisi olarak alabilirsiniz.

Asla boş bir giriş almazsınız ve alt dizenin uzunluğu (varsa) 1 veya daha fazla olabilir.

Kullandığım 1ve 0burada benim truthy ve falsy değerler olarak, ancak yeter ki kendi dilinizde truthy ve falsy gibi, farklı değerler kullanabilir.

Örnekler:

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

(Son örnek, Thue-Morse dizisindeki her bir sıfır arasındaki miktardan üretildi)

Retina , 6 bayt

(.+)\1

Çevrimiçi deneyin!

Doğruluk için pozitif değer; falsey için sıfır.

Nasıl çalışır

Normal ifadenin eşleşme sayısını döndürür /(.+)\1/g.

Brachylog , 3 bayt

s~j

Çevrimiçi deneyin!

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

Jöle , 6 5 bayt

Ẇµ;"f

Bu tam bir program. TIO, son test senaryosunu kesmeden işleyemez.

Çevrimiçi deneyin! (son test durumu 250 haneye kesildi)

Nasıl çalışır

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

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

Java, 27 bayt

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

Retina cevabının neredeyse bir kopyası , ancak Java'nın kısaltması mümkün değil.

05AB1E , 5 bayt

Œ2×åZ

Çevrimiçi deneyin!

1 doğruluk değeri ve 0 yanlış değer olarak çıktılar

açıklama

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

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

Çevrimiçi deneyin!

Esneme, bir normal ifade. Dizenin, daha fazla karakterden birinin dizesini ve .+ardından yakalanan dizenin tümünü içerip içermediğini kontrol eder . Kontrol edilebileceği gibi en az bir eşleşme varsa çıkış arama nesnesi Doğrudur bool.

compileBurada kullanmak lambda yazmaktan tasarruf sağlar:

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

Python , 54 bayt

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

Çevrimiçi deneyin!

Tarafından kontrol olarak, birleştirilmiş iki veya daha fazla eşit dizeleri oluşan bir alt dize arar s in(s*2)[1:-1]gibi bu cevap . İlk veya son karakteri kesmek seçilerek alt dizeler yinelemeli olarak oluşturulur. Bu üsteldir, bu nedenle büyük test durumunda zaman aşımına uğrar.

Yakından ıska:

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)

Birincisi inalt dizeleri kontrol etmek için Python'ları kullanmaz ve bu nedenle diğer dillere uyarlanabilir.

Pyth - 10 9 8 bayt

f}+TTQ.:

Yinelenen tüm alt dizelerin bir listesini döndürür (yoksa, boş olan boş bir listedir)

Dene

Açıklama:

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

Çedar , 60 bayt

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

Çevrimiçi deneyin!

PHP , 32 bayt

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

Çevrimiçi deneyin!

PHP , 38 bayt

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

Çevrimiçi deneyin!

Python 3 , 73 66 bayt

@LeakyNun sayesinde -7 bayt

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

Çevrimiçi deneyin!

Perl 6 , 11 bayt

{?/(.+)$0/}

Dene

Expanded:

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

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

İle boru olarak çalıştırın -F. Üzgünüm Jörg ben Sen ettim ödediyse -ki aynı gönderildi .

normal olmayan sürüm, 84 82 bayt

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

0bir tekrar için dönüş kodu ile çıkar, hiçbiri için zaman aşımına uğrar (ve hata ile çıkar). İle boru olarak çalıştırın -nr.
yazdırılabilir ASCII girişini varsayar; yerine ~sahip a&herhangi ASCII için.

JavaScript (ES6), 19 bayt

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

Pyth, 15 bayt

.E.nm.bqNYtdd./

Dene!

V , 6 bayt

ø¨.«©±

Çevrimiçi deneyin!

Test odası!

Program 0, falsey değerleri için ve pozitif değerler için pozitif bir tamsayı verir.

(Küçük bir hata olduğunu unutmayın, bu yüzden 1 bayt kazanmak zorunda kaldı. Şimdi bugfix sonra ben yerine mümkün olacak .« olan \x82)

açıklama

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

f"(.+)%1

Çevrimiçi deneyin . çıktılarnullFalsy ve doğruluk için yinelenen tüm dizeleri içeren bir dizi.

açıklama

 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

Çedar, 16 bayt

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

Bu bir işlevdir. Çevrimiçi deneyin!