Leer dos cadenas de stdin.
Salida Yessi una cadena es una versión rotada de la otra.
De lo contrario salidaNo

Casos de prueba

Entrada

CodeGolf GolfCode

Salida

Yes

Entrada

stackexchange changestackex

Salida

Yes

Entrada

stackexchange changestack

Salida

No

Entrada

Hello World

Salida

No

APL (28)

Toma entrada en dos líneas.

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

Explicación:

• A←⍞: lee una línea de entrada y la almacena en A
• ⌽∘A¨⍳⍴A: Gire A por x, para cada x en [1..length A]. Da una lista, es decirestT stTe tTes Test
• (⊂⍞)∊: lea otra línea de entrada y vea si está en esta lista.
• 1+: agregue uno a esto, dando 1 si las cadenas no se giraron y 2 si lo fueran
• 'No' 'Yes'[... ]: Seleccione el primer o segundo elemento de la lista 'No' 'Yes'dependiendo de si las cadenas se giraron o no.
• Este valor se emite automáticamente.

Rubí 49 41

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

Editar: reemplazado gets.split por $ *

Python, 70 bytes

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

Prueba ...

Personajes de Python 70

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

Gracias a gnibbler por el truco del corte.

J, 47

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

Según la especificación (mismas longitudes de cadena):

Perl, 42 43 caracteres

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

Si se permiten cadenas de diferentes tamaños, la solución sería:

Perl, 47 caracteres

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

rbo

Golfscript, 31

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

Esta longitud de verificación primero, por lo que debería funcionar como se esperaba.

J, 57

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

Uso de la muestra:

$ 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 no tiene un host canónico, por lo que esta respuesta se escribe en función de dos argumentos. El puntaje sube a 60 si no permitimos las características de JS 1.7 (cierres de expresiones).

En el shell SpiderMonkey esto sería (para un puntaje de 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) .replace (b, "") :: 2]

Otra solución en 69 char

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

J 84

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

JavaScript (120 caracteres)

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

Salida:

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

Ruby, 58 (62) personajes

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

Esta solución asume que la entrada contiene solo caracteres alfanuméricos (en realidad, todo lo que no tiene un significado especial dentro de una expresión regular está bien).

Una solución que no tiene esta restricción es 4 caracteres más larga

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;

Rubí, 41

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

Haskell ( 98 96 caracteres)

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

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

Es una pena el control de tamaño, sin él el recuento cae a 54

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 bytes

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

Cómo funciona

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

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

Pruébalo en línea!

Lua 115 caracteres

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

Programa 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 caracteres

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

perl, 123 caracteres

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

Rubí, 30 37

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

Una versión que imprime "verdadero" y "falso" en lugar de "sí" y "no":

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

Ambos funcionan con cadenas de diferente longitud (a diferencia del anterior)

Python 2, 86 caracteres

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

Perl (solo una solución rápida)

Una solución a la solución de las botas de goma, siendo un nuevo usuario que soy, no puedo comentar aún, así que simplemente publicaré una nueva respuesta.

Como el método mencionado utiliza una expresión regular construida a partir de la entrada del usuario, es posible realizar una pequeña inyección de expresiones regulares, de la siguiente manera:

> perl -le '$. = pop; $ _ = (pop) x2; print + (qw / yes no /)[!/$./]' anything '. *'
si

La solución es usar \ Q (conocido también como quotemeta):

> perl -le '$. = pop; $ _ = (pop) x2; print + (qw / yes no /) [! / \ Q $. /]' anything '. *'
No

El código en sí podría acortarse aún más usando 'decir', pero esto se deja como un ejercicio para el lector :)