Przeczytaj dwa ciągi z stdin.
Dane wyjściowe, Yesjeśli jeden ciąg jest obróconą wersją drugiego.
W przeciwnym razie wyjścieNo

Przypadki testowe

Wejście

CodeGolf GolfCode

Wynik

Yes

Wejście

stackexchange changestackex

Wynik

Yes

Wejście

stackexchange changestack

Wynik

No

Wejście

Hello World

Wynik

No

APL (28)

Pobiera dane wejściowe w dwóch wierszach.

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

Wyjaśnienie:

• A←⍞: przeczytaj wiersz danych wejściowych i zapisz go w A
• ⌽∘A¨⍳⍴A: Obróć A o x, dla każdego x w [1.. długości A]. Daje listę, tjestT stTe tTes Test
• (⊂⍞)∊: przeczytaj inny wiersz danych wejściowych i sprawdź, czy jest na tej liście.
• 1+: dodaj jeden do tego, dając 1, jeśli łańcuchy nie zostały obrócone i 2, jeśli były
• 'No' 'Yes'[... ]: Wybierz pierwszy lub drugi element z listy w 'No' 'Yes'zależności od tego, czy łańcuchy zostały obrócone, czy nie.
• Ta wartość jest generowana automatycznie.

Ruby 49 41

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

Edycja: zastąpiono gets.split przez $ *

Python, 70 bajtów

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

Testowanie ...

Python 70 znaków

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

Dzięki gnibbler za trick trick.

J, 47

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

Zgodnie ze specyfikacją (te same długości łańcucha):

Perl, 42 43 znaki

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

Jeśli dozwolone są łańcuchy o różnych rozmiarach, rozwiązaniem byłoby:

Perl, 47 znaków

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

rbo

Golfscript, 31

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

Najpierw ta długość kontroli, więc powinna działać zgodnie z oczekiwaniami.

J, 57

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

Przykładowe użycie:

$ 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 nie ma hosta kanonicznego, więc ta odpowiedź jest napisana jako funkcja dwóch argumentów. Wynik wzrośnie do 60, jeśli nie uwzględnimy funkcji JS 1.7 (zamykanie wyrażeń).

W powłoce SpiderMonkey byłoby to (dla wyniku 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]

Kolejne rozwiązanie w 69 znakach

a, b = raw_input (). split ()
print [„Nie”, „Tak”] [a in b * 2 i len (a) == len (b)]

J, 84

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

JavaScript (120 znaków)

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

Wynik:

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

Rubinowy, 58 (62) znaków

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

To rozwiązanie zakłada, że ​​dane wejściowe zawierają tylko znaki alfanumeryczne (w rzeczywistości wszystko, co nie ma specjalnego znaczenia w wyrażeniu regularnym, jest w porządku).

Rozwiązanie, które nie ma tego ograniczenia, ma 4 znaki dłużej

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 znaków)

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 znaków)

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

Szkoda, jeśli chodzi o sprawdzanie rozmiaru, bez tego liczba spada do 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 bajtów

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

Jak to działa

             # 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 bajtów

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

Wypróbuj online!

Lua 115 znaków

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

Program 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 znaki

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

perl, 123 znaki

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

Ruby, 30 37

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

Wersja, która drukuje „prawda” i „fałsz” zamiast „tak” i „nie”:

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

Oba działają z łańcuchami o różnej długości (w przeciwieństwie do starego)

Python 2, 86 znaków

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

Perl (tylko szybka poprawka)

Poprawka rozwiązania gumowych butów, ponieważ jestem nowym użytkownikiem, którego nie mogę jeszcze komentować, więc opublikuję nową odpowiedź.

Ponieważ wspomniana metoda wykorzystuje wyrażenie regularne zbudowane na podstawie danych wprowadzonych przez użytkownika, możliwe jest wykonanie małego wstrzyknięcia wyrażenia regularnego w następujący sposób:

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

Rozwiązaniem jest użycie \ Q (znanego również jako quotemeta):

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

Sam kod można dodatkowo skrócić za pomocą polecenia „powiedz”, ale pozostawia to zadanie czytelnikowi :)