AKTUALIZACJA : Zgłoszenie Pyth isaacga jest zwycięzcą!

Wielu z was musiało usłyszeć, że w mieście jest fajniejsza wersja JavaScript (czytaj ES6), która ma metodę, String.prototype.repeatdzięki której można to zrobić

"Hello, World!".repeat(3)

i dostać

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

jako wynik.

Twoim zadaniem jest napisanie funkcji lub programu w wybranym języku, który wykrywa, czy łańcuch nie został poddany takiej transformacji.

tzn. Łańcuch wejściowy może być reprezentowany jako dokładne npowtórzenie razy mniejszego łańcucha. Wyjście (jako instrukcja return funkcji lub STDOUT) powinno być zgodne z prawdą, jeśli łańcuch może być, lub fałszem, jeśli łańcucha nie można przedstawić jako powtórzenia mniejszego łańcucha.

Niektóre przykładowe dane wejściowe:

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

Zauważ, że ostatnie wejście jest fałszywe, dlatego npowinno być większe niż1

Kompletne zasady

• Napisz funkcję / program w dowolnym języku, aby wprowadzić (za pomocą argumentu funkcji / argumentu wiersza poleceń / STDIN) ciąg znaków
• Zwróć / Drukuj prawdziwą wartość, jeśli dany ciąg powstaje przez dokładne powtórzenie mniejszego ciągu, co najmniej dwa razy.
• Maksymalny rozmiar ciągu wejściowego to idealnie Nieskończoność
• Ciąg może mieć wszystkie możliwe znaki ASCII
• To jest golf golfowy, więc wygrywa najmniejszy kod w postaci.

Pyth , 9

/:+zz1_1z

Lub

}z:+zz1_1

Są to zarówno bliskie tłumaczenia odpowiedzi python @ xnor, z tym wyjątkiem, że pobierają dane wejściowe ze STDIN i je drukują. Pierwszy jest równoważny z:

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

0 dla False, 1 dla True.

Druga linia odpowiada:

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

Fałsz za fałsz, prawda za prawda.

Oficjalny kompilator Pytha miał błąd związany z drugim, który właśnie załatałem, więc pierwszy to moje oficjalne zgłoszenie.

Python (24)

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

Sprawdza, czy łańcuch jest podciągiem dwukrotnie połączonym, eliminując pierwszy i ostatni znak, aby uniknąć trywialnych dopasowań. Jeśli tak jest, musi to być niebanalna cykliczna permutacja samego siebie, a zatem suma powtarzających się segmentów.

Regex (smak ECMAScript), 11 bajtów

Brzmi jak praca dla wyrażeń regularnych!

^([^]+)\1+$

Sprawdź to tutaj.

Wybrałem ECMAScript, ponieważ jest to jedyny smak (wiem), w którym [^]pasuje dowolny znak. We wszystkich innych albo potrzebuję flagi, aby zmienić zachowanie .lub użycie, [\s\S]która jest o trzy znaki dłuższa.

W zależności od tego, jak liczymy flagę, może to oczywiście być bajt krótszy. Np. Jeśli liczymy wzorzec + flagi (np. Ignorując ograniczniki), odpowiednikiem PCRE / Perla byłoby

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

Co oznacza 10 bajtów, ignorując ograniczniki.

Sprawdź to tutaj.

Dopasowuje tylko ciągi, które składają się z co najmniej dwóch powtórzeń niektórych podciągów.

Oto pełna 26-bajtowa funkcja ES6, ale uważam, że przesyłanie wyrażeń regularnych jest ogólnie poprawne:

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

CJam, 9

q__+)@+#)

Podobne do pomysłu Xnora.

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←⍞

Objaśnienie
⍞ pobiera ciąg znaków z
x←przypisań ekranowych do zmiennej x
,⍨łączącej ciąg, który sam
x⍷szuka xw ciągu wynikowym. Zwraca tablicę składającą się z 1 w początkowej pozycji meczu i 0 w innym miejscu.
+/sumuje
2<sprawdzenie tablicy, czy suma jest większa niż 2 (ponieważ będą 2 trywialne dopasowania)

CJam, 10 bajtów

Złapałem błąd CJam. Moja pierwsza odpowiedź, więc prawdopodobnie można jeszcze zagrać w golfa:

q__+(;);\#

Wyjścia -1 dla FAŁSZ i liczba> = 0 dla PRAWDA

GolfScript, 10 bajtów

..+(;);\?)

Kolejna implementacja sprytnego pomysłu xnor.

Python - 59 57

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

Pure Bash, 30 bajtów

Prosty port sprytnej odpowiedzi @ xnor :

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

Kod zakończenia to 0 dla PRAWDA i 1 dla FAŁSZ:

$ 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
$ 

Uwaga: =~w wyrażeniu bash[[ ... ]] znajduje się operator wyrażenia regularnego . Jednak „można zacytować dowolną część wzorca, aby wymusić dopasowanie go jako łańcucha” . Tak więc, jak to często bywa w przypadku bash, poprawne cytowanie jest bardzo ważne - tutaj chcemy po prostu sprawdzić przesłanie ciągu, a nie dopasowanie wyrażenia regularnego.

TI-BASIC - 32

Myślałem, że spróbuję tokenizowanego języka. Uruchom z ciągiem w Ans, zwraca 0, jeśli false, a długość powtarzanego ciągu, jeśli true.

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

Niesamowite, jak to jest jedna linijka.

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

Czy to jedyne prawidłowe rozwiązanie? Na przykład słowo (ciąg) nananiekoniecznie jest tworzone z"na".repeat(2)

ECMAScript 6 (34 36 )

Kolejna odpowiedź ES6, ale bez używania repeati korzystania sztuczkę XNOR za :

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

Musi być uruchomiony w konsoli przeglądarki obsługującej ES6, takiej jak 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;}

Okazało się, że jest dość długi, ale funkcje zewnętrzne są zawsze takie. Przyszło mi do głowy, że mogę przepisać każdą funkcję łańcuchową, zastępując je pętlą lub funkcją rekurencyjną. Ale z mojego doświadczenia wynika, że ​​okaże się to dłuższe i szczerze mówiąc nie chcę tego wypróbowywać.

Po kilku badaniach zobaczyłem rozwiązania o wysokiej wydajności, ale nie tak sprytne (i krótkie) jak xnor. żeby być oryginalnym ... przepisałem ten sam pomysł w ok.

wyjaśnienie:

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 )

Nie jest zwycięzcą, ale wydaje się, że w ES6 powinna być przynajmniej jedna odpowiedź na to pytanie, które faktycznie korzysta z repeatfunkcji:

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

Musi być uruchomiony w konsoli przeglądarki obsługującej ES6, takiej jak Firefox.

Robi wiele niepotrzebnych iteracji, ale po co wydłużać czas, aby tego uniknąć, prawda?

• Edycja nr 1: Zapisano kilka bajtów, przekształcając je w funkcję. Dzięki Optimizer!
• Edytuj # 2: Dzięki hsl za sztuczkę operatora rozprzestrzeniania, aby zaoszczędzić więcej bajtów!
• Edycja nr 3: I dzięki Robowi W. za kolejne 3 bajty!

Galaretka , 3 bajty

ṙJċ

Wypróbuj online!

Taki sam jak ta odpowiedź (może późniejsze wyzwanie jest uogólnieniem tego?).

Java 8, 28 bajtów

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

Wypróbuj online.

Wyjaśnienie:

Sprawdza, czy ciąg wejściowy pasuje do wyrażenia regularnego, gdzie String#matchesniejawnie dodaje się, ^...$aby dopasować cały ciąg.
Objaśnienie samego wyrażenia regularnego:

^(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

Więc w zasadzie sprawdza, czy podciąg jest powtarzany dwa lub więcej razy (obsługując nowe wiersze).