Ciąg znaków powtarza się, jeśli zawiera dwa kolejne podciągi, które są równoważne.

Na przykład 2034384538452powtarza się, ponieważ zawiera 3845dwa razy po kolei.

Dlatego Twoim wyzwaniem jest zdecydowanie, czy łańcuch zawiera powtarzający się podciąg. Możesz wziąć dane wejściowe jako ciąg znaków lub tablicę znaków.

Nigdy nie otrzymasz pustego wejścia, a długość podłańcucha (jeśli istnieje) może wynosić 1 lub więcej.

Używam 1i 0tutaj jako moich prawdomównych i fałszywych wartości, ale możesz używać różnych wartości, o ile są one prawdziwe i fałszywe w twoim języku.

Przykłady:

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

(Ostatni przykład został wygenerowany z liczby jedynek między każdym zerem w sekwencji Thue-Morse)

Siatkówka , 6 bajtów

(.+)\1

Wypróbuj online!

Pozytywna wartość dla prawdy; zero dla falsey.

Jak to działa

Zwraca liczbę dopasowań wyrażenia regularnego /(.+)\1/g.

Brachylog , 3 bajty

s~j

Wypróbuj online!

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

Galaretka , 6 5 bajtów

Ẇµ;"f

To jest pełny program. TIO nie może obsłużyć ostatniego przypadku testowego bez jego obcięcia.

Wypróbuj online! (ostatni przypadek testowy obcięty do 250 cyfr)

Jak to działa

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

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

Java, 27 bajtów

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

Prawie duplikat odpowiedzi Retina , ale nie ma mowy, żeby Java była krótsza.

05AB1E , 5 bajtów

Œ2×åZ

Wypróbuj online!

Wyprowadza 1 jako wartość prawdy i 0 jako wartość fałszu

Wyjaśnienie

Œ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 bajtów

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

Wypróbuj online!

Ziew, regex. Sprawdza, czy ciąg zawiera ciąg jednego lub więcej znaków, .+a następnie ten sam, który właśnie został przechwycony. Wyjściowym obiektem wyszukiwania jest Prawda, jeśli istnieje co najmniej jedno dopasowanie, co można sprawdzić za pomocą bool.

Użycie compiletutaj pozwala zaoszczędzić na pisaniu lambdy:

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

Python , 54 bajty

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

Wypróbuj online!

Wyszukuje podciąg składający się z dwóch lub więcej równych ciągów połączonych, sprawdzonych przez s in(s*2)[1:-1]jak w tej odpowiedzi . Podciągi są generowane rekurencyjnie poprzez wybranie odcięcia pierwszego lub ostatniego znaku. Jest to wykładnicze, więc przekracza limit czasu dla dużego przypadku testowego.

Niedaleko:

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)

Pierwszy nie używa Pythona indo sprawdzania podciągów i dlatego może być dostosowany do innych języków.

Pyth - 10 9 8 bajtów

f}+TTQ.:

Zwraca listę wszystkich powtarzających się podciągów (która, jeśli ich nie ma, jest pustą listą, co jest fałszem)

Spróbuj

Wyjaśnienie:

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 bajtów

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

Wypróbuj online!

PHP , 32 bajty

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

Wypróbuj online!

PHP , 38 bajtów

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

Wypróbuj online!

Python 3 , 73 66 bajtów

-7 bajtów dzięki @LeakyNun

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

Wypróbuj online!

Perl 6 , 11 bajtów

{?/(.+)$0/}

Sprawdź to

Rozszerzony:

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

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

Uruchom jako potok z -F. Przepraszam, Jörg, nie zauważyłem, że opublikowałeś to samo .

wersja bez wyrażenia regularnego, 84 82 bajtów

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

kończy z kodem powrotu 0dla powtórzenia, kończy się (i kończy się z błędem) dla braku. Uruchom jako potok z -nr.
zakłada wejście ASCII do wydruku; wymienić ~z a&jakiegokolwiek ASCII.

JavaScript (ES6), 19 bajtów

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

Pyth, 15 bajtów

.E.nm.bqNYtdd./

Spróbuj!

V. , 6 bajtów

ø¨.«©±

Wypróbuj online!

Pakiet testowy!

Program generuje 0wartości falsey i dodatnią liczbę całkowitą dla wartości dodatnich.

(Zauważ, że był mały błąd, więc musiałem zyskać 1 bajt. Teraz po poprawce będę mógł zastąpić .« go \x82)

Wyjaśnienie

ø                     " 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 bajtów

f"(.+)%1

Wypróbuj online . Wyjścia nulldo falsy i tablica zawierająca wszystkie powtarzające się łańcuchy na truthy.

Wyjaśnienie

 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 bajtów

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

To jest funkcja. Wypróbuj online!