Прочитайте два рядки з stdin.
Виведіть, Yesякщо одна рядок є поворотною версією іншої.
В іншому випадку виведітьNo

Тестові шафи

Вхідні дані

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

Редагувати: замінено get.split на $ *

Пітон, 70 байт

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

Тестування ...

Пітон 70 символів

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

Завдяки гніблеру за трюк з фрагментами.

J, 47

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

Відповідно до специфікації (однакові довжини рядків):

Перл, 42 43 ч

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

Якщо дозволено різний розмір рядків, рішенням буде:

Perl, 47 чол

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

rbo

Гольфскрипт, 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 (). split ()
print'YNeos '[a! = (2 * a) .замінити (b, "") :: 2]

Ще одне рішення в 69 char

a, b = raw_input (). split ()
print ['Ні', 'Так'] [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

Рубі, 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)

Пітона, 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

Хаскелл ( 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

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

Програма С - 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" замість "так" і "ні":

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

Обидва вони працюють із струнами різної довжини (на відміну від старої)

Пітон 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 (лише швидке виправлення)

Виправлення рішення про гумові чоботи, будучи новим користувачем, який я є, я поки не можу коментувати, тому я просто опублікую нову відповідь.

Оскільки згаданий метод використовує регулярний вираз, побудований з введення користувача, можна виконати невелику інжекцію регулярного вираження таким чином:

> perl -le '$. = pop; $ _ = (pop) x2; print + (qw / так ні /) зроблено! /$./]' що-небудь '. *'
так

Виправлення полягає у використанні \ Q (відомому також як quometa):

> perl -le '$. = pop; $ _ = (pop) x2; print + (qw / так ні /) [! / \ Q $. /]' що-небудь '. *'
ні

Сам код можна додатково скоротити за допомогою "сказати", але це залишається читачеві як вправа :)