stdinอ่านสองสายจาก
เอาต์พุตYesถ้าสตริงหนึ่งเป็นเวอร์ชันที่หมุนได้ของอีกสตริง
มิฉะนั้นเอาท์พุทNo

Testcases

อินพุต

CodeGolf GolfCode

เอาท์พุต

Yes

อินพุต

stackexchange changestackex

เอาท์พุต

Yes

อินพุต

stackexchange changestack

เอาท์พุต

No

อินพุต

Hello World

เอาท์พุต

No

APL (28)

รับอินพุตเป็นสองบรรทัด

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

คำอธิบาย:

• A←⍞: อ่านบรรทัดอินพุตและเก็บไว้ใน A
• ⌽∘A¨⍳⍴A: หมุน A ตาม x สำหรับแต่ละ x ใน [1..length A] ให้รายการคือestT stTe tTes Test
• (⊂⍞)∊: อ่านบรรทัดอินพุตอื่นและดูว่าอยู่ในรายการนี้หรือไม่
• 1+: เพิ่มหนึ่งในนี้โดยให้ 1 ถ้าสตริงไม่หมุนและ 2 ถ้าพวกเขา
• 'No' 'Yes'[... ]: เลือกองค์ประกอบแรกหรือองค์ประกอบที่สองจากรายการ'No' 'Yes'ขึ้นอยู่กับว่าสตริงถูกหมุนหรือไม่
• ค่านี้จะถูกส่งออกโดยอัตโนมัติ

ทับทิม49 41

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

แก้ไข: แทนที่ gets.split โดย $ *

Python ขนาด 70 ไบต์

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

ทดสอบ ...

Python 70 ตัวอักษร

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

ขอบคุณ gnibbler สำหรับเคล็ดลับการหั่น

J, 47

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

ตามสเป็ค (ความยาวสตริงเดียวกัน):

Perl, 42 43 ตัวอักษร

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

หากอนุญาตให้ใช้สตริงขนาดต่างกันโซลูชันจะเป็น:

Perl, 47 ตัวอักษร

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

RBO

Golfscript, 31

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

ระยะตรวจสอบนี้หนึ่งครั้งแรกดังนั้นจึงควรทำงานตามที่คาดไว้

J, 57

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

ตัวอย่างการใช้งาน:

$ 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 ไม่มีโฮสต์แบบบัญญัติดังนั้นคำตอบนี้ถูกเขียนเป็นฟังก์ชันของอาร์กิวเมนต์สองตัว คะแนนสูงสุดถึง 60 ถ้าเราไม่อนุญาตคุณสมบัติ JS 1.7 (การปิดนิพจน์)

ในเชลล์ SpiderMonkey สิ่งนี้จะเป็น (สำหรับคะแนน 71):

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

งูหลาม 66 63

A, B = raw_input (). แยก ()
print'YNeos' [เป็น! = (2 * ก) .replace (ข "") :: 2]

ทางออกอื่นใน 69 ถ่าน

A, B = raw_input (). แยก ()
พิมพ์ ['ไม่', 'ใช่'] [a ใน b * 2 และ len (a) == len (b)]

J, 84

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

JavaScript (120 ตัวอักษร)

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

เอาท์พุท:

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

Ruby, 58 (62) ตัวอักษร

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

วิธีแก้ปัญหานี้ถือว่าอินพุตมีอักขระตัวอักษรผสมตัวเลขเท่านั้น (จริง ๆ แล้วทุกอย่างที่ไม่มีความหมายพิเศษภายในนิพจน์ทั่วไปก็โอเค)

วิธีแก้ปัญหาที่ไม่มีข้อ จำกัด นี้คือ 4 ตัวอักษรอีกต่อไป

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;

ทับทิม, 41

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

Haskell ( 98 96 ตัวอักษร)

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 ตัวอักษร)

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

สกาล่า 78

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

มันเป็นเรื่องน่าอายเกี่ยวกับการตรวจสอบขนาดโดยไม่นับลงไปที่54

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

ทุบตี 56

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

GolfScript ขนาด 25 ไบต์

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

มันทำงานอย่างไร

             # 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 ไบต์

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

ลองออนไลน์!

ลัวะ 115 ตัวอักษร

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")

โปรแกรม 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 ตัวอักษร

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

perl, 123 ตัวอักษร

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

ทับทิม, 30 37

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

เวอร์ชันที่พิมพ์ "true" และ "false" แทน "yes" และ "no":

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

ทั้งสองทำงานกับสตริงที่มีความยาวต่างกัน (ไม่เหมือนกับสตริงเก่า)

Python 2, 86 ตัวละคร

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

Perl (แก้ไขด่วน)

วิธีแก้ปัญหารองเท้าบูทยางเป็นผู้ใช้ใหม่ที่ฉันยังไม่สามารถแสดงความคิดเห็นดังนั้นฉันจะโพสต์คำตอบใหม่

เนื่องจากวิธีการดังกล่าวใช้นิพจน์ทั่วไปที่สร้างจากอินพุตของผู้ใช้จึงเป็นไปได้ที่จะทำการฉีด regex ขนาดเล็กดังนี้:

> perl -le '$. = pop; $ _ = (ป๊อป) x2; พิมพ์ + (qw / ใช่ไม่/)ه!/$./]' any '. *'
ใช่

การแก้ไขคือการใช้ \ Q (หรือที่รู้จักในชื่อ quotemeta):

> perl -le '$. = pop; $ _ = (pop) x2; พิมพ์ + (qw / ใช่ไม่ /) [! / \ Q $. /]' any '. *'
ไม่

โค้ดอาจถูกทำให้สั้นลงอีกโดยใช้ 'พูด' แต่สิ่งนี้จะเหลือสำหรับการออกกำลังกายของผู้อ่าน :)