Рядок символів повторюється, якщо він містить дві послідовні підрядки, які є рівнозначними.

Наприклад, 2034384538452повтори, оскільки вони містяться 3845двічі, послідовно.

Тому ваше завдання полягає в тому, щоб визначити, чи містить рядок, що повторюється. Ви можете приймати введення як рядок або масив символів.

Ви ніколи не отримаєте порожній вхід, а довжина підрядки (якщо вона існує) може становити 1 або більше.

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

Приклади:

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

(Останній приклад був згенерований із кількості одиниць між кожним нулем у послідовності Thue-Morse)

Сітківка , 6 байт

(.+)\1

Спробуйте в Інтернеті!

Позитивне значення для truthy; нуль для фальси.

Як це працює

Повертає кількість збігів регулярного вираження /(.+)\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.

Математика, 32 байти

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

Java, 27 байт

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

Дуже багато дублікату відповіді Сітківки , але немає можливості скоротити 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)

Перший не використовує Python's 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/}

Перевірте це

Розширено:

{        # 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значення фальси, а додатне ціле число для позитивних значень.

(Зверніть увагу , що там була невелика помилка, так що я повинен був отримати 1 байт. Тепер після Bugfix, я зможу замінити .«з \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для помилки та масив, що містить усі повторювані рядки для truthy.

Пояснення

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

Це функція. Спробуйте в Інтернеті!