ОНОВЛЕННЯ : подання isaacg Pyth є переможцем!

Багато з вас, напевно, чули, що в місті є більш крута версія JavaScript (читайте ES6), яка має метод, String.prototype.repeatщоб ви могли це робити

"Hello, World!".repeat(3)

і дістати

"Hello, World!Hello, World!Hello, World!"

як вихід.

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

тобто рядок введення може бути представлений у вигляді точного nповторення меншої строки в часі. Вихід (як оператор повернення функції або STDOUT) повинен бути правдивим, якщо рядок може бути фальшивим, якщо рядок не може бути представлена ​​як повторення меншого рядка.

Деякі приклади введення:

"asdfasdfasdf"  // true
"asdfasdfa"     // false
"ĴĴĴĴĴĴĴĴĴ"     // true
"ĴĴĴ123ĴĴĴ123"  // true
"abcdefgh"      // false

Зауважте, що останній ввід помилковий, тому nмає бути більше, ніж1

Повні правила

• Напишіть функцію / програму будь-якою мовою, щоб ввести рядок (через аргумент функції / аргументи командного рядка / STDIN)
• Повернення / друк тритидної величини, якщо заданий рядок формується за допомогою точного повторення меншого рядка, повторюючи принаймні двічі.
• Максимальний розмір вхідного рядка в ідеалі - Нескінченність
• Рядок може містити всі можливі символи ASCII
• Це код-гольф, тому найменший код в символах виграє.

Піта , 9

/:+zz1_1z

Або

}z:+zz1_1

Це обидва тісні переклади відповіді python @ xnor, за винятком того, що вони беруть вхід зі STDIN і друкують його. Перший еквівалентний:

z = input()
print((z+z)[1:-1].count(z))

0 - Неправдиво, 1 - Правда.

Другий рядок еквівалентний:

z = input()
print(z in (z+z)[1:-1])

Неправдивий за хибний, правдивий для правдивого.

Офіційний компілятор Pyth мав помилку, пов’язану з другою, яку я просто виправляв, тому перше - це моє офіційне подання.

Пітон (24)

lambda s:s in(s+s)[1:-1]

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

Регекс (аромат ECMAScript), 11 байт

Здається, що робота для регулярного виразу!

^([^]+)\1+$

Тестуйте це тут.

Я вибрав ECMAScript, тому що це єдиний аромат (я знаю), в якому [^]відповідає будь-який символ. У всіх інших, мені або потрібен прапор, щоб змінити поведінку, .або використовувати [\s\S]його на три символи довше.

В залежності від того, як ми розраховуємо прапор, який міг би , звичайно , бути байт коротше. Наприклад, якщо ми рахуємо шаблон + прапорці (наприклад, ігнорування роздільників), еквівалент PCRE / Perl був би

/^(.+)\1+$/s

Що становить 10 байт, ігноруючи роздільники.

Тестуйте це тут.

Це відповідає лише рядкам, що складаються з щонайменше двох повторень деякої підрядки.

Ось повна 26-байтна функція ES6, але я стверджую, що регулярні подання виразів, як правило, дійсні:

f=s->/^([^]+)\1+$/.test(s)

CJam, 9

q__+)@+#)

Схожа на ідею xnor.

q      " Read input. ";
__+    " Duplicate twice and concatenate them together. ";
)      " Remove the last character of the longer string. ";
@+     " Insert that character at the beginning of the shorter string. ";
#)     " Find the shorter string in the longer string, and increase by one. ";

APL, 11

2<+/x⍷,⍨x←⍞

Пояснення
⍞ вимагає введення рядка з екрана,
x←присвоює змінній x
,⍨конкатенацію рядка з самим
x⍷пошуком xв отриманій рядку. Повертає масив, що складається з знаків "1" у вихідному положенні відповідності та 0 - в іншому місці.
+/підсумовує
2<перевірку масиву, якщо сума більша за 2 (оскільки буде 2 тривіальних збігу)

CJam, 10 байт

Я спіймав помилку CJam. Моя перша відповідь, тому, ймовірно, можна пограти ще трохи:

q__+(;);\#

Виходи -1 для FALSE і число> = 0 для TRUE

GolfScript, 10 байт

..+(;);\?)

Ще одна реалізація розумної ідеї xnor.

Пітон - 59 57

lambda s:any([s*n==s[:n]*len(s)for n in range(2,len(s))])

Чистий баш, 30 байт

Простий порт розумної відповіді @ xnor :

[[ ${1:1}${1:0: -1} =~ "$1" ]]

Вихідний код 0 для TRUE і 1 для FALSE:

$ for s in 'Hello, World!Hello, World!Hello, World!' 'asdfasdfasdf' 'asdfasdfa' 'ĴĴĴĴĴĴĴĴĴ' 'ĴĴĴ123ĴĴĴ123' 'abcdefgh'; do echo "./isrepeated.sh "\"$s\"" returns $(./isrepeated.sh "$s"; echo $?)"; done
./isrepeated.sh "Hello, World!Hello, World!Hello, World!" returns 0
./isrepeated.sh "asdfasdfasdf" returns 0
./isrepeated.sh "asdfasdfa" returns 1
./isrepeated.sh "ĴĴĴĴĴĴĴĴĴ" returns 0
./isrepeated.sh "ĴĴĴ123ĴĴĴ123" returns 0
./isrepeated.sh "abcdefgh" returns 1
$ 

Примітка =~в [[ ... ]]це регулярний вираз оператора в Баш . Однак "Будь-яка частина шаблону може бути процитована, щоб змусити його відповідати як рядок" . Отже, як це часто буває з bash, правильне цитування є дуже важливим - тут ми просто хочемо перевірити наявність рядкового підматчу, а не збігу регулярних виразів.

TI-BASIC - 32

Я думав, що спробую токенізовану мову. Виконати з рядком в Ans, повертає 0 якщо false, а довжину повторюваного рядка - якщо це правда.

inString(sub(Ans+Ans,1,2length(Ans)-1),sub(Ans,length(Ans),1)+Ans

Дивно, як це однолінійний.

ECMAScript 6 (189)

(function(){var S=String.prototype,r=S.repeat;S.isRepeated=function(){return!1};S.repeat=function(c){var s=new String(r.call(this,c));if(c>1)s.isRepeated=function(){return!0};return s}}());

< console.log("abc".isRepeated(),"abc".repeat(10).isRepeated());
> false true

Напевно, це єдино вірне рішення? Наприклад, слово (рядок) nanaне обов'язково створюється з"na".repeat(2)

ECMAScript 6 (34 36 )

Інший ES6 відповідь, але без використання repeatі з використанням трюку XNOR в :

f=i=>(i+i).slice(1,-1).contains(i)

Потрібно запустити в консолі браузера з підтримкою ES6, такого як Firefox.

C 85

l,d;f(s){return l=strlen(s),strstr(d,strcpy(strcpy(d=alloca(l*2+1),s)+l,s)-1)-d-l+1;}

Це виявилося досить довгим, але зовнішні функції завжди такі. Мені прийшло в голову, що я можу переписати кожну струнну функцію, замінивши її циклом або рекурсивною. Але на моєму досвіді це виявиться довше, і відверто кажучи, я не хочу це намагатися.

Після деяких досліджень я побачив рішення з високою продуктивністю, але не настільки розумними (і короткими), як у xnor. просто щоб бути оригінальним ... я переписав ту саму ідею в c.

пояснення:

int length, 
    duplicate;
int is_repetition(char *input)
{
    // length = "abc" -> 3
    length = strlen(input);
    // alloca because the function name is as long as "malloc" 
    // but you don't have to call free() because it uses the stack
    // to allocate memory
    // duplicate = x x x x x x + x
    duplicate = alloca(length*2 + 1);
    // duplicate = a b c 0 x x + x
    strcpy(duplicate, input);
    // duplicate = a b c a b c + 0
    strcpy(duplicate + length, input);
    if (strstr(duplicate,duplicate + length - 1) != duplicate + length - 1)
        // repetition
        // e.g. abab -> abababab -> aba[babab]
        // -> first occurence of [babab] is not aba[babab]
        // but a[babab]ab -> this is a repetition
        return 1;
    else
        // not repetition
        // e.g. abc -> abcabc -> ab[cabc]
        // -> first occurence of [cabc] is ab[cabc]
        // it matches the last "cabc"
        return 0;
}

ECMAScript 6 (59 62 67 73 )

Не є переможцем, але здається, що у ES6 на це запитання, яке фактично використовує repeatфункцію, має бути принаймні одна відповідь :

f=i=>[...i].some((_,j)=>i.slice(0,j).repeat(i.length/j)==i)

Потрібно запустити в консолі браузера з підтримкою ES6, такого як Firefox.

Це робить багато непотрібних ітерацій, але навіщо робити це довше, щоб уникнути цього, правда?

• Редагувати №1: збережено кілька байт, перетворивши його у функцію. Дякуємо Оптимізатору!
• Редагувати №2: Завдяки hsl за хитрість оператора розповсюдження, щоб заощадити більше байтів!
• Редагувати №3: І завдяки Робу В. за ще 3 байти!

Желе , 3 байти

ṙJċ

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

Це ж відповідь (можливо, пізніший виклик є узагальненням цієї?).

Java 8, 28 байт

s->s.matches("(?s)(.+)\\1+")

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

Пояснення:

Перевіряє, чи відповідає input-String регексу, де String#matchesнеявно додається, ^...$щоб відповідати всій String.
Пояснення самого регулярного виразу:

^(s?)(.+)\1+$
^                Begin of the string
 (s?)            Enable DOTALL-mode, where `.` also matches new-lines
     (           Open capture group 1
      .+          One or more characters
        )        Close capture group 1
         \1+     Plus the match of the capture group 1, one or more times
            $    End of the string

Таким чином, він в основному перевіряє, чи повторюється підрядок два чи більше разів (підтримуючи нові рядки).