Ini diambil dari pertanyaan ini (dengan izin ofcourse). Saya akan mengutip:

Buat fungsi yang mengambil string, dan itu harus mengembalikan benar atau salah berdasarkan apakah input hanya terdiri dari urutan karakter yang diulang. Panjang string yang diberikan selalu lebih besar dari 1 dan urutan karakter harus memiliki setidaknya satu pengulangan.

Beberapa contoh:

'aa' //true
'aaa' //true
'abcabcabc' //true
'aba' //false
'ababa' //false
'weqweqweqweqweqw' // false

Secara khusus, pemeriksaan untuk string yang secara ketat terdiri dari substring berulang ( Pembaruan ) dapat menampilkan representasi benar atau salah, tetapi tidak ada output kesalahan. String alfanumerik yang ketat. Kalau tidak, aturan standar kode golf. Ini adalah Golf Code, jadi jawaban terpendek dalam byte untuk setiap bahasa menang.

Brachylog , 4 3 byte

ġ=Ṁ

Cobalah online!

Penjelasan

ġ=Ṁ    Implicit input, say "abcabc"
ġ      Split into chunks of equal lengths (except maybe the last one): ["abc","abc"]
 =     Apply the constraint that all of the chunks are equal,
  Ṁ    and that there are multiple of them.

Program mencetak true.jika kendala dapat dipenuhi, dan false.jika tidak.

JavaScript (ES6), 22 byte

Mengembalikan nilai Boolean.

s=>/^(.*)\1+$/.test(s)

Cobalah online!

Tanpa ekspresi reguler,  33  29 byte

Mengembalikan salah null(falsy) atau objek (benar).

s=>(s+s).slice(1,-1).match(s)

Cobalah online!

NB: Secara teknis, $s$ dikonversi menjadi ekspresi reguler untuk pertandingan () , jadi judul di atas adalah bohong.

grep, 19

grep -qxE '(.+)\1+'

Uji

while read; do 
  <<<"$REPLY" grep -qxE '(.+)\1+' && t="true" || t="false"
  echo "$REPLY: $t"
done < infile 

Keluaran:

aa: true
aaa: true
abcabcabc: true
aba: false
ababa: false
weqweqweqweqweqw: false

Japt , 6 byte

²é ¤øU

Disimpan satu byte berkat @Shaggy

Cobalah online!

        Implicit input, stored in variable 'U'
²       U+U, "abcabc" -> "abcabcabcabc"
 é      Rotate 1 char to the right "abcabcabcabc" -> "cabcabcabcab"
   ¤    Remove first two chars, "cabcabcabcab" -> "bcabcabcab"
    øU  Check if U is in the above

Java, 25 24 byte

-1 byte terima kasih kepada Olivier Grégoire!
Jawaban regex membosankan

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

Cobalah online!

Ini hanya 1 byte lebih lama dari jawaban python aaaaa saya terikat sekarang :)

Excel, 26 byte

=FIND(A1,A1&A1,2)<=LEN(A1)

Input dari A1, output ke sel apa pun yang Anda masukkan rumus ini.

R , 28 byte

grepl("(.+)\\1+$",scan(,''))

Cobalah online!

Versi Regex sederhana. R (kadang-kadang) sangat mirip dengan Python, jadi ini mirip dengan jawaban regex Python 2 TFeld, meskipun lebih pendek!

Pertanyaan (jika ada yang tahu jawabannya)

Saya masih bingung mengapa ini bekerja, karena substring dapat panjang dan akan selalu bekerja, dan masih berfungsi ketika saya menambahkan surat ke bagian depan string yang valid, seperti "cABABABABAB". Jika saya secara pribadi membaca regex, saya tahu (.+), yang menangkap grup apa pun dengan panjang apa pun. Dan kemudian \\1+$yang mengulangi kelompok yang ditangkap beberapa kali sampai akhir.

Jadi mengapa tidak menangkap hanya "AB" dan menemukan bahwa itu diulangi sampai akhir string, terutama karena tidak ada batasan yang ditentukan di mana substring dapat mulai?

Retina 0.8.2 , 9 byte

^(.+)\1+$

Cobalah online! Tautan termasuk kasus uji.

Jelly ,  5  4 byte

Saya melihat sekarang bahwa cara optimal adalah mengikuti metode xnor !

Ḋ;Ṗw

Tautan monadik yang menerima daftar karakter dan menghasilkan bilangan bulat - panjang sesingkat mungkin dari irisan berulang atau nol jika tidak ada. Perhatikan bahwa nol adalah falsey sedangkan angka bukan nol adalah benar di Jelly.

Cobalah online!

Bagaimana?

Ḋ;Ṗw - Link: list of characters, S   e.g. "abcabcabc"   or "abababa"
Ḋ    - dequeue S                           "bcabcabc"       "bababa"
  Ṗ  - pop from S                         "abcabcab"       "ababab"
 ;   - concatenate                "bcabcabcabcabcab"       "bababaababab"
   w - first index of sublist     3  ^---here!             0  (not found)

Perl 5 -p , 14 byte

$_=/^(.*)\1+$/

Cobalah online!

Python 2 , 24 byte

lambda s:s in(s*2)[1:-1]

Cobalah online!

Tanpa malu-malu dicuri dari jawaban xnor terhadap pertanyaan awal.

Versi yang lebih intuitif:

Python 2 , 59 55 53 byte

lambda s:s in[len(s)/i*s[:i]for i in range(1,len(s))]

Cobalah online!

Versi regex membosankan:

Python 2 , 44 byte

lambda s:re.match(r'(.+)\1+$',s)>0
import re

Cobalah online!

Bahasa Wolfram (Mathematica) , 24 23 byte

StringMatchQ[x__..~~x_]

Cobalah online!

StringMatchQ[           (*a function that checks if its input (string) matches:*)
             x__..      (*a sequence of one or more characters, repeated one or more times*)
                  ~~x_] (*and one more time*)

Pyke , 4 byte

+tO{

Coba di sini!

+    -    input+input
 t   -   ^[1:]
  O  -  ^[:-1]
   { - input in ^

J , ^{26 25 15} 14 byte

Menggunakan metode xnor

+./@E.}:@}.@,~

Cobalah online!

asli (dua pendekatan berbeda)

J , 25 byte

1<1#.(#%#\)=<\+/@E.&:>"{]

Cobalah online!

J , 26 byte

1<1#.-@#\([:(-:##{.)<\)"{]

Cobalah online!

PowerShell, 23 24 byte

+1 byte untuk sepenuhnya cocok dengan aturan

"$args"-match"^(.+)\1+$"

Cobalah online!

Membosankan. Berdasarkan jawaban Regex lainnya. Untungnya PowerShell tidak digunakan \sebagai karakter pelarian!

C # (Visual C # Interactive Compiler) , 70 byte

Adaptasi shameless xnor ( 46 byte )

s=>(s+s).Substring(1,s.Length*2-2).Contains(s)

Solusi non Regex saya:

s=>s.Select((x,y)=>y).Count(z=>s.Replace(s.Substring(0,z+1),"")=="")>1

Penjelasan:

Ganti setiap substring yang mungkin yang dimulai pada indeks 0 dengan string kosong. Jika hasilnya adalah string kosong, string seluruhnya terbuat dari substring itu. Karena ini termasuk mengevaluasi seluruh string dengan sendirinya, jumlah hasil yang diharapkan harus lebih besar dari 1.

Contoh: abcabc

Substring yang mungkin dimulai dari indeks 0:

'a', 'ab', 'abc', 'abca', 'abcab', 'abcabc'

Jika kita menggantinya dengan string kosong

Substring          Result

'a'         =>     'bcbc'
'ab'        =>     'cc'
'abc'       =>     ''
'abca'      =>     'bc'
'abcab'     =>     'c'
'abcabc'    =>     ''

Karena ada substring selain 'abcabc' yang mengembalikan string kosong, string seluruhnya terbuat dari substring lain ('abc')

Cobalah online!

Python 3 , 62 60 56 54 byte

-4 bytes thanx ke ArBo

lambda s:s in(len(s)//l*s[:l]for l in range(1,len(s)))

1. Ulangi semua kemungkinan awalan dalam string.
2. Cobalah untuk membangun string dari awalan.
3. Kembalikan apakah ini berhasil dengan awalan sama sekali.

Cobalah online!

Japt , 10 byte

Mengembalikan angka positif jika benar dan 0 jika palsu. Jika Anda ingin hasil bool, tambahkan saja -¡flag

å+ k@rXÃÊÉ

å+ k@rXÃÊÉ      Full program. Implicit input U.
                    e.g: U = "abcabcabc"
å+              Take all prefixes 
                         U = ["a","ab","abc","abca","abcab","abcabc","abcabca","abcabcab","abcabcabc"]
   k@           Filter U by:
     rXÃ        Values that return false (empty string)
                when replacing each prefix in U
                e.g: ["bcbcbc","ccc","","bcabc","cabc","abc","bc","c",""]
                                take ↑                             and ↑
                     U = ["abc","abcabcabc"]
         ÊÉ     Get U length and subtract 1. Then return the result

Cobalah online!

Sekam , 6 byte

Ṡ€ȯhtD

Cobalah online!

Saya merasa ini adalah satu byte lebih dari optimal, tetapi saya tidak dapat menemukan pengaturan yang membuat komposisi eksplisit ȯ tidak perlu.

Penjelasan

Ṡ€      Find the argument in the result of applying the following function to the argument
  ȯhtD  Duplicate the argument, then remove the first and last elements.

Mathematica 11.x, 74 bytes

{}!=StringCases[#,StartOfString~~x__/;(x!=#&&StringReplace[#,x->""]=="")]&

di mana, sepanjang, #mewakili string input, dan

StringCases[#,<pattern>]

menemukan substring dari string input yang cocok dengan pola

StartOfString~~x__/;(x!=#&&StringReplace[#,x->""]=="") 

Pola ini memerlukan kecocokan,, xharus dimulai pada awal string dan harus memenuhi ketentuan bahwa (1) kecocokan bukan keseluruhan string input dan (2) jika kita mengganti kemunculan kecocokan dalam string input dengan string kosong kami mendapatkan string kosong. Akhirnya, membandingkan daftar kecocokan dengan daftar kosong,

{}!=

aku s True jika daftar kecocokan adalah kosong dan Falsejika daftar kecocokan kosong.

Kasus uji:

{}!=StringCases[#,StartOfString~~x__/;(x!=#&&StringReplace[#,x->""]=="")]&["aa"]
(*  True  *)
{}!=StringCases[#,StartOfString~~x__/;(x!=#&&StringReplace[#,x->""]=="")]&["aaa"]
(*  True  *)
{}!=StringCases[#,StartOfString~~x__/;(x!=#&&StringReplace[#,x->""]=="")]&["abcabc"]
(*  True  *)

dan

{}!=StringCases[#,StartOfString~~x__/;(x!=#&&StringReplace[#,x->""]=="")]&["aba"]
(*  False  *)
{}!=StringCases[#,StartOfString~~x__/;(x!=#&&StringReplace[#,x->""]=="")]&["ababa"]
(*  False  *)
{}!=StringCases[#,StartOfString~~x__/;(x!=#&&StringReplace[#,x->""]=="")]&["weqweqweqweqweqw"]
(*  False  *)

Python 3, 84 byte

import textwrap
lambda s:any(len(set(textwrap.wrap(s,l)))<2 for l in range(1,len(s)))

Menggunakan textwrap.wrap(terima kasih atas jawaban ini ) untuk membagi string menjadi potongan-potongan panjang nuntuk menguji setiap kemungkinan panjang pengulangan substring. Potongan dibagi kemudian dibandingkan satu sama lain dengan menambahkannya ke set. Jika semua bagiannya sama, dan himpunannya memiliki panjang 1, maka string harus berupa string yang berulang. Saya menggunakan <2alih-alih ==1karena menghemat byte, dan panjang string input dijamin lebih besar dari nol.

Jika tidak ada nyang panjang substring berulang nmembentuk seluruh string, maka kembalikan false untuk seluruh fungsi.

05AB1E , 5 byte

Metode xnor dari pertanyaan sebelumnya tampaknya juga optimal di 05AB1E.

«¦¨så

Cobalah online! atau sebagai Test Suite

Penjelasan

«       # append input to input
 ¦¨     # remove the first and last character of the resulting string
   så   # check if the input is in this string

Bersih , 73 byte

Tidak menggunakan regex.

import StdEnv,Data.List
$s=or[isPrefixOf s(cycle t)\\t<-tl(tails s)|t>[]]

Cobalah online!

Mendefinisikan $ :: [Char] -> Bool.
Cek apakah string yang diberikan adalah awalan dari pengulangan sub-string yang diambil dari bagian akhir.

C ++ (gcc) , 36 byte

#define f(x)(x+x).find(x,1)<x.size()

Cobalah online!

Port lain dari solusi xnor. Menggunakan makro untuk memperluas argumen ke ekspresi. Argumen tersebut dianggap bertipe std::string.

Variabel QlikView, 27 byte

Ini harus didefinisikan sebagai variabel, yang kemudian memungkinkan Anda untuk melewati parameter, misalnya $1sebagai nilai input Anda.

Ia mengembalikan 0atau -1(setara dengan TRUE()fungsi QlikView ).

=substringcount($1&$1,$1)>2

Swift, 196 byte

func r(s:String)->Bool{guard let k=s.dropFirst().firstIndex(where:{$0==s.first}) else{return false};let v=s[...k].dropLast();var w=v;while s.hasPrefix(w) && s.count>=(w+v).count{w+=v};return s==w}

Cobalah online!

Ikon , 46 byte

procedure f(s);return find(s,(s||s)[2:-1]);end

Cobalah online!

Port lain dari solusi xnor.

K (oK) , 29 byte

{0<+/(1=#?:)'(0N,'1_!#x)#\:x}

Cobalah online!

Merah , 72 byte

func[s][repeat i length? s[parse s[copy t i skip some t end(return 1)]]]

Cobalah online!

Pengembalian 1untukTrue

T-SQL, 47 byte

Menggunakan metode @ Xnor :

DECLARE @ varchar(max)='ababab'

PRINT sign(charindex(@,left(@+@,len(@)*2-1),2))

Menjaga jawaban lama karena berisi golf yang bagus (67 byte):

DECLARE @y varchar(max)='abababa'

,@ INT=0WHILE
replace(@y,left(@y,@),'')>''SET
@+=1PRINT @/len(@y)^1

Penjelasan: Skrip ini berulang kali mencoba mengganti input '@y' dengan karakter '@' pertama dari input '@y' tanpa apa-apa, sambil meningkatkan '@'.

jika Anda mengganti 'ab' di 'ababab' dengan tidak ada yang Anda miliki string kosong

Akhirnya hasilnya akan kosong. Jika ini terjadi ketika variabel loop sama dengan panjang varchar, kriterianya salah / 0 karena '@' = len (@y) (tidak ada varchar berulang).

iif(@=len(@y),0,1)

bisa bermain golf dalam hal ini

@/len(@y)^1

karena panjang '@ y' tidak boleh 0 dan '@' tidak akan pernah melebihi panjang @ y.

Cobalah online