CẬP NHẬT : đệ trình Pyth của isaacg là người chiến thắng!

Nhiều người trong số các bạn hẳn đã nghe nói rằng có một phiên bản JavaScript thú vị hơn trong thị trấn (đọc ES6) có một phương pháp String.prototype.repeatđể bạn có thể làm

"Hello, World!".repeat(3)

và lấy

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

là đầu ra.

Công việc của bạn là viết một hàm hoặc một chương trình bằng ngôn ngữ bạn chọn để phát hiện xem một chuỗi đã bị biến đổi như vậy chưa.

tức là chuỗi đầu vào có thể được biểu diễn dưới dạng nlặp lại thời gian chính xác của chuỗi nhỏ hơn. Đầu ra (như câu lệnh trả về của hàm hoặc STDOUT) phải là sự thật nếu chuỗi có thể hoặc sai nếu chuỗi không thể được biểu diễn dưới dạng lặp lại của chuỗi nhỏ hơn.

Một số mẫu đầu vào:

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

Lưu ý rằng đầu vào cuối cùng là sai, do đó nnên lớn hơn1

Hoàn thành quy tắc

• Viết hàm / chương trình bằng bất kỳ ngôn ngữ nào để nhập (thông qua đối số hàm / dòng lệnh args / STDIN) một chuỗi
• Trả về / In giá trị trung thực nếu chuỗi đã cho được hình thành thông qua sự lặp lại chính xác của chuỗi nhỏ hơn, lặp lại ít nhất hai lần.
• Kích thước tối đa của chuỗi đầu vào là lý tưởng Infinity
• Chuỗi có thể có tất cả các ký tự ASCII có thể
• Đây là một mã golf để mã nhỏ nhất trong các ký tự thắng.

Bình thường , 9

/:+zz1_1z

Hoặc là

}z:+zz1_1

Đây đều là những bản dịch gần gũi với câu trả lời python của @ xnor, ngoại trừ việc họ lấy đầu vào từ STDIN và in nó. Đầu tiên là tương đương với:

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

0 cho Sai, 1 cho Đúng.

Dòng thứ hai tương đương với:

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

Sai cho Sai, Đúng cho Đúng.

Trình biên dịch chính thức của Pyth có một lỗi liên quan đến cái thứ hai mà tôi vừa vá, vì vậy cái đầu tiên là bản chính thức của tôi.

Con trăn (24)

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

Kiểm tra xem chuỗi có phải là chuỗi con của chính nó được nối hai lần hay không, loại bỏ các ký tự đầu tiên và cuối cùng để tránh các kết quả tầm thường. Nếu có, nó phải là một hoán vị tuần hoàn không cần thiết của chính nó, và do đó tổng của các phân đoạn lặp lại.

Regex (hương vị ECMAScript), 11 byte

Âm thanh như một công việc cho regex!

^([^]+)\1+$

Kiểm tra nó ở đây.

Tôi đã chọn ECMAScript, vì đó là hương vị duy nhất (tôi biết) [^]phù hợp với bất kỳ nhân vật nào. Trong tất cả những người khác, tôi cần một lá cờ để thay đổi hành vi .hoặc sử dụng [\s\S]dài hơn ba ký tự.

Tùy thuộc vào cách chúng ta đang đếm lá cờ, mà có thể tất nhiên là một byte ngắn hơn. Ví dụ: nếu chúng ta đang đếm mẫu + cờ (ví dụ: bỏ qua dấu phân cách), tương đương PCRE / Perl sẽ là

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

Đó là 10 byte, bỏ qua các dấu phân cách.

Kiểm tra nó ở đây.

Điều này chỉ khớp với các chuỗi bao gồm ít nhất hai lần lặp lại của một số chuỗi con.

Đây là một hàm ES6 26 byte đầy đủ, nhưng tôi duy trì rằng các lần gửi biểu thức chính quy thường có hiệu lực:

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

CJam, 9

q__+)@+#)

Tương tự như ý tưởng của 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←⍞

Giải thích
⍞ lấy đầu vào chuỗi từ màn hình
x←gán cho biến x
,⍨nối chuỗi với chính
x⍷tìm kiếm xtrong chuỗi kết quả. Trả về một mảng bao gồm 1 'ở vị trí bắt đầu của trận đấu và 0 ở nơi khác.
+/tính tổng
2<kiểm tra mảng nếu tổng lớn hơn 2 (vì sẽ có 2 kết quả không quan trọng)

CJam, 10 byte

Tôi bắt gặp lỗi của CJam. Câu trả lời đầu tiên của tôi, vì vậy có lẽ có thể được đánh gôn thêm:

q__+(;);\#

Đầu ra -1 cho FALSE và số> = 0 cho TRUE

GolfScript, 10 byte

..+(;);\?)

Một cách thực hiện ý tưởng thông minh khác của xnor.

Con trăn - 59 57

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

Bash tinh khiết, 30 byte

Cổng đơn giản của câu trả lời thông minh của @ xnor :

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

Mã thoát là 0 cho TRUE và 1 cho 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
$ 

Lưu ý =~bên trong [[ ... ]]là toán tử regex trong bash . Tuy nhiên "Bất kỳ phần nào của mẫu có thể được trích dẫn để buộc nó phải khớp với dạng chuỗi" . Vì vậy, như mọi người thường gặp với bash, việc trích dẫn đúng là rất quan trọng - ở đây chúng tôi chỉ muốn kiểm tra một chuỗi con và không phải là một kết hợp regex.

TI-CƠ BẢN - 32

Tôi nghĩ tôi sẽ thử một ngôn ngữ tokenized. Chạy với chuỗi trong Ans, trả về 0 nếu sai và độ dài của chuỗi lặp lại nếu đúng.

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

Thật ngạc nhiên khi nó là một lớp lót.

Bản thảo 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

Chắc chắn đây là giải pháp hợp lệ duy nhất? Ví dụ: từ (chuỗi) nanakhông nhất thiết phải được tạo từ"na".repeat(2)

Bản thảo 6 (34 36 )

Một câu trả lời ES6 khác, nhưng không sử dụng repeatvà sử dụng thủ thuật của xnor :

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

Phải được chạy trong bảng điều khiển của trình duyệt có khả năng ES6 như 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;}

Hóa ra nó khá dài nhưng các chức năng bên ngoài luôn như vậy. Tôi nghĩ rằng tôi có thể viết lại mọi hàm chuỗi thay thế chúng bằng một vòng lặp hoặc một đệ quy. Nhưng theo kinh nghiệm của tôi, nó sẽ dài ra và thật lòng tôi không muốn thử.

Sau một số nghiên cứu, tôi thấy các giải pháp về hiệu suất cao nhưng không thông minh (và ngắn) như của xnor. chỉ để là bản gốc ... tôi viết lại cùng một ý tưởng trong c.

giải trình:

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;
}

Bản thảo 6 (59 62 67 73 )

Không phải là người chiến thắng, nhưng có vẻ như ít nhất phải có một câu trả lời thực sự trong ES6 cho câu hỏi này thực sự sử dụng repeatchức năng:

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

Phải được chạy trong bảng điều khiển của trình duyệt có khả năng ES6 như Firefox.

Nó thực hiện rất nhiều lần lặp lại không cần thiết, nhưng tại sao làm cho nó dài hơn chỉ để tránh điều đó, phải không?

• Chỉnh sửa # 1: Đã lưu một vài byte bằng cách chuyển đổi nó thành một hàm. Cảm ơn Trình tối ưu hóa!
• Chỉnh sửa # 2: Nhờ hsl cho thủ thuật toán tử trải rộng để tiết kiệm nhiều byte hơn!
• Chỉnh sửa # 3: Và cảm ơn Rob W. cho 3 byte khác!

Thạch , 3 byte

ṙJċ

Hãy thử trực tuyến!

Giống như câu trả lời này (có thể thử thách sau này là một khái quát của cái này?).

Java 8, 28 byte

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

Hãy thử trực tuyến.

Giải trình:

Kiểm tra xem Chuỗi đầu vào có khớp với biểu thức chính quy hay không, trong đó String#matchesthêm vào ^...$để khớp với toàn bộ Chuỗi.
Giải thích về chính regex:

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

Vì vậy, về cơ bản nó sẽ kiểm tra nếu một chuỗi con được lặp lại hai lần trở lên (hỗ trợ các dòng mới).