Adresinden iki dizeyi okuyun stdin.
Çıktı Yesbir dize diğer bir döndürülmüş halidir ise.
Aksi takdirde çıktıNo

testcases

Giriş

CodeGolf GolfCode

Çıktı

Yes

Giriş

stackexchange changestackex

Çıktı

Yes

Giriş

stackexchange changestack

Çıktı

No

Giriş

Hello World

Çıktı

No

APL (28)

İki satırdan girdi alır.

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

Açıklama:

• A←⍞: bir giriş satırını okuyun ve A'da saklayın
• ⌽∘A¨⍳⍴A: [1. uzunluk A] 'daki her x için A'yı x ile döndürün. Bir liste verir, yaniestT stTe tTes Test
• (⊂⍞)∊: başka bir girdi satırı okuyun ve bu listede olup olmadığına bakın.
• 1+: buna bir tane ekleyin, dizeler döndürülmezse 1 ve öyleyse 2
• 'No' 'Yes'[... ]: 'No' 'Yes'Dizelerin döndürülüp döndürülmemesine bağlı olarak listeden birinci veya ikinci öğeyi seçin .
• Bu değer otomatik olarak verilir.

Yakut 49 41

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

Düzenleme: değiştirilen gets.split $ * ile değiştirildi

Python, 70 bayt

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

Test yapmak ...

Python 70 Karakterleri

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

Dilim numarası için gnibbler'a teşekkürler.

J, 47

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

Spesifikasyonlara göre (aynı dize uzunlukları):

Perl, 42 43 karakter

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

Farklı boyutlu dizelere izin verilirse çözüm şöyle olur:

Perl, 47 karakter

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

rbo

Golf Yazıları, 31

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

Bu, önce uzunluğu kontrol eder, bu nedenle beklendiği gibi çalışmalıdır.

J, 57

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

Örnek kullanım:

$ 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'in kurallı bir ana bilgisayarı yoktur, bu nedenle bu cevap iki argümanın bir işlevi olarak yazılmıştır. JS 1.7 özelliklerine (ifade kapanışları) izin vermezsek puan 60'a kadar çıkar.

SpiderMonkey kabuğunda bu (71 puan için) olurdu:

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

Python, 66 63

a, b = raw_input (). bölme ()
print'YNeos' [a! = (2 * a) .Kapağı (b, "") :: 2]

69 karakterlik bir çözüm daha

a, b = raw_input (). bölme ()
baskı ['Hayır', 'Evet'] [b * 2'de ve a (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';}

Çıktı:

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)

Bu çözüm, girdinin yalnızca alfasayısal karakterler içerdiğini varsayar (aslında normal bir ifade içinde özel bir anlamı olmayan her şey yolundadır).

Bu kısıtlamaya sahip olmayan bir çözüm 4 karakter daha uzundur

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

Boyut kontrolü hakkında bir utanç, onsuz sayı 54'e düşüyor

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

bash 56

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

GolfScript, 25 bayt

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

Nasıl çalışır

             # 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 bayt

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

Çevrimiçi deneyin!

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

C programı - 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";

Yakut, 30 37

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

"Evet" ve "hayır" yerine "doğru" ve "yanlış" yazdıran bir sürüm:

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

Bunların her ikisi de farklı uzunluktaki dizelerle çalışır (eskisinden farklı olarak)

Python 2, 86 Karakterler

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

Perl (sadece hızlı bir düzeltme)

Lastik çizmeler çözümüne bir düzeltme, yeni bir kullanıcı olduğum için henüz yorum yapamıyorum, bu yüzden sadece yeni bir cevap göndereceğim.

Bahsedilen yöntem, kullanıcı girişinden oluşturulmuş düzenli bir ifade kullandığından, aşağıdaki gibi küçük bir regex enjeksiyonu yapmak mümkündür:

> perl -le '$. = pop; $ _ = (pop) x2; baskı + (qw / evet hayır /)[!/$./]' her şey '. *'
Evet

Düzeltme \ Q (quotemeta olarak da bilinir) kullanmaktır:

> perl -le '$. = pop; $ _ = (pop) x2; baskı + (qw / evet hayır /) [! / \ Q $. /]' her şey '. *'
Hayır

Kodun kendisi 'say' kullanılarak daha da kısaltılabilir, ancak bu okuyucuya bir alıştırma olarak bırakılır :)