Строка символов повторяется, если она содержит две последовательные подстроки, которые эквивалентны.

Например, 2034384538452повторяется, поскольку он содержит 3845дважды, последовательно.

Поэтому ваша задача - решить, содержит ли строка повторяющуюся подстроку. Вы можете принять ввод как строку или массив символов.

Вы никогда не получите пустой ввод, и длина подстроки (если она существует) может быть 1 или больше.

Я использую 1и 0здесь в качестве моих истинных и ложных ценностей, но вы можете использовать разные значения, если они правдивы и ложны в вашем языке.

Примеры:

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

(Последний пример был сгенерирован из числа единиц между каждым нулем в последовательности Туэ-Морса)

Сетчатка , 6 байт

(.+)\1

Попробуйте онлайн!

Положительное значение для правды; ноль для фальси.

Как это устроено

Возвращает количество совпадений регулярного выражения /(.+)\1/g.

Брахилог , 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

Попробуйте онлайн!

Зевок, регулярное выражение Проверяет, содержит ли строка один или несколько символов, .+за которыми следует та же строка, которая была только что захвачена. Выходной объект поиска - Truthy, если есть хотя бы одно совпадение, что может быть проверено с помощью 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

Чеддер , 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/}

Проверь это

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 байта

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

Беги как труба с -F. Извини, Йорг, я не заметил, что ты написал то же самое .

версия без регулярных выражений, 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для значений Falsey и положительное целое для положительных значений.

(Обратите внимание, что была небольшая ошибка, поэтому мне пришлось набрать 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для ложных данных и массив, содержащий все повторяющиеся строки для правдивых.

объяснение

 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/)

Это функция. Попробуйте онлайн!