Lisez deux chaînes de stdin.
Sortie Yessi une chaîne est une version pivotée de l'autre.
Sinon, sortieNo

Cas de test

Contribution

CodeGolf GolfCode

Production

Yes

Contribution

stackexchange changestackex

Production

Yes

Contribution

stackexchange changestack

Production

No

Contribution

Hello World

Production

No

APL (28)

Prend l'entrée sur deux lignes.

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

Explication:

• A←⍞: lire une ligne d'entrée et la stocker dans A
• ⌽∘A¨⍳⍴A: Faites pivoter A de x, pour chaque x dans [1..longueur A]. Donne une liste, c.-à-d.estT stTe tTes Test
• (⊂⍞)∊: lire une autre ligne d'entrée, et voir si elle est dans cette liste.
• 1+: ajoutez-en un, en donnant 1 si les cordes n'ont pas été tournées et 2 si elles étaient
• 'No' 'Yes'[... ]: Sélectionnez le premier ou le deuxième élément dans la liste 'No' 'Yes'selon que les chaînes ont été tournées ou non.
• Cette valeur est sortie automatiquement.

Rubis 49 41

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

Modifier: gets.split remplacé par $ *

Python, 70 octets

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

Test ...

Python 70 caractères

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

Merci à gnibbler pour le truc de tranche.

J, 47

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

Selon la spécification (mêmes longueurs de chaîne):

Perl, 42 43 caractères

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

Si des chaînes de tailles différentes sont autorisées, la solution serait:

Perl, 47 caractères

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

rbo

Golfscript, 31

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

Celui-ci vérifie d'abord la longueur, il devrait donc fonctionner comme prévu.

J, 57

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

Exemple d'utilisation:

$ 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 n'a pas d'hôte canonique, donc cette réponse est écrite en fonction de deux arguments. Le score monte à 60 si nous interdisons les fonctionnalités JS 1.7 (fermetures d'expression).

Dans le shell SpiderMonkey ce serait (pour un score 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]

Une autre solution en 69 caractères

a, b = raw_input (). split ()
imprimer ['Non', 'Oui'] [a en b * 2 et len ​​(a) == len (b)]

J, 84

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

JavaScript (120 caractères)

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

Production:

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

Rubis, 58 (62) caractères

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

Cette solution suppose que l'entrée ne contient que des caractères alphanumériques (en fait, tout ce qui n'a pas de signification particulière dans une expression régulière est correct).

Une solution qui n'a pas cette contrainte est plus longue de 4 caractères

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;

Rubis, 41

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

Haskell ( 98 96 caractères)

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 caractères)

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

C'est dommage pour la vérification de la taille, sans elle le nombre tombe à 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 octets

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

Comment ça fonctionne

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

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

Essayez-le en ligne!

Lua 115 caractères

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

Programme 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 caractères

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

perl, 123 caractères

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

Rubis, 30 37

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

Une version qui affiche "vrai" et "faux" au lieu de "oui" et "non":

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

Ces deux fonctionnent avec des chaînes de longueur différente (contrairement à l'ancien)

Python 2, 86 caractères

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

Perl (juste une solution rapide)

Une solution à la solution des bottes en caoutchouc, étant un nouvel utilisateur que je suis, je ne peux pas encore commenter donc je vais juste poster une nouvelle réponse.

Comme la méthode mentionnée utilise une expression régulière construite à partir d'une entrée utilisateur, il est possible d'effectuer une petite injection d'expression régulière, comme suit:

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

Le correctif consiste à utiliser \ Q (également appelé quotemeta):

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

Le code lui-même pourrait être encore raccourci en utilisant «dire» mais cela est laissé au lecteur comme exercice :)