Baca dua string dari stdin.
Output Yesjika satu string adalah versi yang dirotasi dari string lainnya.
Jika tidak, outputNo

Testcases

Memasukkan

CodeGolf GolfCode

Keluaran

Yes

Memasukkan

stackexchange changestackex

Keluaran

Yes

Memasukkan

stackexchange changestack

Keluaran

No

Memasukkan

Hello World

Keluaran

No

APL (28)

Mengambil input pada dua baris.

'No' 'Yes'[1+(⊂⍞)∊⌽∘A¨⍳⍴A←⍞]

Penjelasan:

• A←⍞: baca sebaris input dan simpan di A
• ⌽∘A¨⍳⍴A: Putar A demi x, untuk setiap x dalam [1..panjang A]. Memberikan daftar, yaituestT stTe tTes Test
• (⊂⍞)∊: baca baris input lain, dan lihat apakah ada dalam daftar ini.
• 1+: tambahkan satu ke ini, berikan 1 jika string tidak diputar dan 2 jika itu
• 'No' 'Yes'[... ]: Pilih elemen pertama atau kedua dari daftar 'No' 'Yes'tergantung pada apakah string diputar atau tidak.
• Nilai ini dikeluarkan secara otomatis.

Ruby 49 41

a,b=$*;puts (a*2).sub(b,'')==a ?:yes: :no

Edit: ganti gets.split dengan $ *

Python, 70 byte

a,b=raw_input().split()
print ['No','Yes'][a in b*2and len(a)==len(b)]

Menguji ...

Python 70 Karakter

a,b=raw_input().split()
print'YNeos'[len(a)<>len(b)or a not in 2*b::2]

Berkat gnibbler untuk trik slice.

J, 47

y=:>2{ARGV
(>1{ARGV e.1|.^:(i.#y)y){'No',:'Yes'

Menurut spec (panjang tali yang sama):

Perl, 42 43 karakter

$.=pop;$_=(pop)x2;print+(qw'yes no')[!/$./]

Jika string ukuran yang berbeda diperbolehkan, solusinya adalah:

Perl, 47 karakter

$.=(pop)x8;$_=(pop)x9;print+(qw'yes no')[!/$./]

rbo

Golfscript, 31

' '/:)~,\,=)~.+\/,(&'Yes''No'if

Yang ini periksa panjangnya dulu, jadi harus bekerja seperti yang diharapkan.

J, 57

{&('No';'Yes')@-:/@:((/:~@(|."0 _~i.&$))&.>)&.(;:&stdin)_

Penggunaan sampel:

$ echo -n CodeGolf GolfCode | jconsole rotate.ijs
Yes
$ echo -n stackexchange changestackex | jconsole rotate.ijs
Yes
$ echo -n stackexchange changestack | jconsole rotate.ijs
No
$ echo -n Hello World | jconsole rotate.ijs
No

Windows PowerShell, 76

$a,$b=-split$input
('No','Yes')[+!($a.length-$b.length)*"$b$b".contains($a)]

JavaScript, 51

function f(a,b)a&&(a+a).replace(b,"")==a?"Yes":"No"

JavaScript tidak memiliki inang kanonik, jadi jawaban ini ditulis sebagai fungsi dari dua argumen. Skor naik hingga 60 jika kita melarang fitur JS 1.7 (penutupan ekspresi).

Dalam shell SpiderMonkey ini akan menjadi (untuk skor 71):

[a,b]=readline().split(" ");print(a&&(a+a).replace(b,"")==a?"Yes":"No")

Python, 66 63

a, b = raw_input (). split ()
print'YNeos '[a! = (2 * a). ganti (b, "") :: 2]

Solusi lain dalam 69 char

a, b = raw_input (). split ()
cetak ['Tidak', 'Ya'] [a dalam b * 2 dan len (a) == len (b)]

J, 84

y=:(>1{ARGV),:(>2{ARGV)
((0{y)e.(y&((]$0{[),(]-~[:}.[:$[)$1{[)/.i.}.$y)){'No',:'Yes'

JavaScript (120 karakter)

function f(a,b) {for (i=0,A=a.split("");A.join("")!=b&&i++<a.length;A.push(A.shift()));return A.join("")==b?'Yes':'No';}

Keluaran:

f('CodeGolf','GolfCode'); //Yes
f('stackexchange','changestackex'); //Yes
f('stackexchange','changestack'); //No
f('Hello','World'); //No
f('nn','nBn'); //No

Ruby, 58 (62) karakter

a,b=gets.split;$><<(a.size==b.size&&/#{a}/=~b*2?:Yes: :No)

Solusi ini mengasumsikan input hanya berisi karakter alfanumerik (sebenarnya semua yang tidak memiliki arti khusus di dalam ekspresi reguler adalah ok).

Solusi yang tidak memiliki batasan ini adalah 4 karakter lebih lama

a,b=gets.split;$><<(a.size==b.size&&(b*2).index(a)?:Yes: :No)

Python, 71

a,b=raw_input().split()
print'Yes'if a in b*2and len(a)==len(b)else'No'

PHP, 61

<?echo preg_match('/^(.+)(.*) \\2\\1$/',fgets(STDIN))?Yes:No;

Ruby, 41

puts gets =~ /^(.+)(.*) \2\1$/ ?:Yes: :No

Haskell ( 98 96 karakter)

g x y@(t:r)(z:w)|x==y="Yes"|1>0=g x(r++[t])w
g _ _[]="No"
f(x:y:_)=g x y y
main=interact$f.words

Q ( 50 43 karakter)

{`No`Yes x in((!)(#)y)rotate\:y}." "vs(0:)0

Scala 78

val b=readLine split " "
print(b(0).size==b(1).size&&(b(0)+b(0)contains b(1)))

Sayang sekali tentang ukuran cek, tanpa itu hitungannya turun menjadi 54

val a=readLine split " "
print(a(0)+a(0)contains a(1))

pesta 56

read a b
[[ $a$a =~ $b&&$b$b =~ $a ]]&&echo Yes||echo No

GolfScript, 25 byte

' '/~.2*@/''+='Yes''No'if

Bagaimana itu bekerja

             # STACK: "CodeGolf GolfCode"
' '/         # Split input string by spaces.
             # STACK: [ "CodeGolf" "GolfCode" ]
~            # Dump the array.
             # STACK: "CodeGolf" "GolfCode"
.            # Duplicate the topmost string.
             # STACK: "CodeGolf" "GolfCode" "GolfCode"
2*           # Repeat the topmost string.
             # STACK: "CodeGolf" "GolfCode" "GolfCodeGolfCode"
@            # Rotate the three topmost strings.
             # STACK: "GolfCode" "GolfCodeGolfCode" "CodeGolf"
/            # Split the second topmost string around the topmost one.
             # STACK: "GolfCode" [ "Golf" "Code" ]
''+          # Flatten the array of strings.
             # STACK: "GolfCode" "GolfCode"
=            # Check for equality.
             # STACK: 1
'Yes''No'if  # Push 'Yes' for 1, 'No' for 0.
             # STACK: "Yes"

CJam, 21 byte

r]r_,,\f{\{(+}*}_@+^!

Cobalah online!

Lua 115 karakter

a,b=io.read():match"(%w+) (%w+)"c=b repeat c=c:sub(2,-1)..c:sub(1,1) s=s or a==c until b==c print(s and"Yes"or"No")

Program C - 146

char b[99],c[99],*p,*q;main(n){q=(p=b+(n=strlen(gets(c))))+n;sprintf(b,"%s%s"
,c,c);for(gets(c);p>b&&strcmp(p,c);--p,*--q=0);puts(p>b?"Yes":"No");}

PHP, 82 karakter

<?$s=split(" ",fgets(STDIN));echo str_replace($s[1],"",$s[0].$s[0])==$s[0]?Yes:No;

perl, 123 karakter

@s1=split(//,shift);
$s2=shift;
$i=0;
while($i<=@s1){
    if(join("",@s1) eq $s2){die "yes";}
    unshift @s1,pop @s1;
    $i++;
}
die "no";

Ruby, 30 37

gets
puts~/^(.+)(.*) \2\1$/?:Yes: :No

Versi yang mencetak "benar" dan "salah" alih-alih "ya" dan "tidak":

gets
p !! ~/^(.+)(.*) \2\1$/

Keduanya bekerja dengan string dengan panjang berbeda (tidak seperti yang lama)

Python 2, 86 Karakter

a,b=raw_input().split()
print"Yes"if any(a==b[n:]+b[:n]for n in range(len(a)))else"No"

Perl (hanya perbaikan cepat)

Solusi untuk memperbaiki sepatu bot karet, menjadi pengguna baru yang saya belum bisa berkomentar, jadi saya hanya akan mengirim jawaban baru.

Karena metode yang disebutkan menggunakan ekspresi reguler yang dibangun dari input pengguna, dimungkinkan untuk melakukan injeksi regex kecil, sebagai berikut:

> perl -le '$. = pop; $ _ = (pop) x2; cetak + (qw / ya tidak /)[!/$./]' apa saja '. *'
Iya

Cara mengatasinya adalah dengan menggunakan \ Q (dikenal juga sebagai quotemeta):

> perl -le '$. = pop; $ _ = (pop) x2; cetak + (qw / ya tidak /) [! / \ Q $. /]' apapun '. *'
tidak

Kode itu sendiri dapat dipersingkat lebih lanjut menggunakan 'katakan' tetapi ini dibiarkan sebagai latihan untuk pembaca :)