Meus dois filhos gostam de brincar com o seguinte brinquedo:

As áreas coloridas com as formas internas podem ser tocadas e a tartaruga ilumina a área e emite um som ou diz o nome da cor ou da forma interna. O botão do meio altera o modo. Há um modo no qual as áreas tocam notas musicais diferentes quando tocadas, com um toque: se a criança tocar três áreas consecutivas no sentido horário, uma melodia especial 1 é tocada. Se as três áreas consecutivas tocadas forem colocadas no sentido anti-horário, uma melodia especial 2 será tocada.

O desafio

Vamos simular a lógica interna do brinquedo. Dada uma sequência com três pressionamentos do garoto, retorne dois valores distintos e coerentes se os três pressionamentos forem para áreas consecutivas (sentido horário ou anti-horário) e um terceiro valor distinto, se não estiverem.

Detalhes

• As áreas de entrada serão nomeadas com um caractere cada, que pode ser sua cor: ROYGBpara vermelho, laranja, amarelo, verde e azul; ou sua forma: HSRTCpara coração, quadrado, estrela ( R), triângulo e círculo. Caso não importa, você pode optar por trabalhar com entrada e saída apenas em maiúsculas ou minúsculas.
• O programa receberá uma string (ou array de caracteres ou qualquer outra coisa equivalente) com três pressionamentos. Exemplos (usando as cores): RBO, GYO, BBR, YRG, YGB, ORB...
• O programa produzirá três valores coerentes e distintos para representar os três resultados possíveis: um primeiro valor se a combinação não acionar uma melodia especial, um segundo valor se a combinação acionar a melodia especial no sentido horário e um terceiro valor se a combinação acionar o melodia especial no sentido anti-horário. Exemplo: 0para nenhuma combinação especial, 1para a melodia desencadeada por uma combinação no sentido horário e -1para a melodia desencadeada por uma combinação no sentido anti-horário.
• Você não precisa se preocupar em lidar com entradas incorretas.

Casos de teste

Input   Output      // Input based on colors
--------------
RBO     0           // No special combination
GYO     -1          // Counterclockwise melody triggered
BBR     0           // No special combination
YRG     0           // No special combination
YGB     1           // Clockwise melody triggered
ORB     -1          // Counterclockwise melody triggered
OOO     0           // No special combination
BRO     1           // Clockwise melody triggered

Este é o código-golfe , portanto, pode ganhar o código mais curto para cada idioma!

Java 8, 48 39 33 bytes

s->"ROYGBRO BGYORBG".indexOf(s)|7

-6 bytes graças a @RickHitchcock , por isso não deixe de votar também !

Toma cor maiúscula como String de entrada. Saídas -1para none, 7no sentido horário e 15no sentido anti-horário.

Experimente online.

Explicação:

s->      // Method with String parameter and integer return-type
   "ROYGBRO BGYORBG".indexOf(s)
         //  Get the index of the input in the String "ROYGBRO BGYORBG",
         //  which will result in -1 if the input is not a substring of this String
    |7   //  Then take a bitwise-OR 7 of this index, and return it as result

Resposta antiga de 39 bytes:

s->(char)"ROYGBRO BGYORBG".indexOf(s)/7

Toma cor maiúscula como String de entrada. Saídas 9362para none, 0no sentido horário e 1no sentido anti-horário.

Experimente online.

Explicação:

s->      // Method with String parameter and integer return-type
   (char)"ROYGBRO BGYORBG".indexOf(s)
         //  Get the index of the input in the String "ROYGBRO BGYORBG",
         //  which will result in -1 if the input is not a substring of this String
         //  And cast it to a char (-1 becomes character with unicode value 65535)
    /7   //  Integer-divide it by 7 (the char is implicitly converted to int doing so)

JavaScript (ES6), 41 bytes

Toma as iniciais coloridas como entrada. Retorna 2para none, trueno sentido horário ou falseno sentido anti-horário.

s=>~(x='ROYGBRO_ORBGYOR'.search(s))?x<5:2

Experimente online!

Python 2 , 36 bytes

lambda i:'ROYGBRO ORBGYOR'.find(i)/7

-1- Nenhuma
0- No sentido horário
1- No sentido anti-horário

Experimente online!

Excel, 29 bytes

=FIND(A1,"ROYGBRO_RBGYORB")<6

Cores maiúsculas como entrada.

Retorna #VALUE!para nenhum padrão, TRUEno sentido horário, no sentido FALSEanti-horário.

Pode quebrar IFERROR( ,0)para +11 byteslidar com exceção e retornar '0' para casos sem padrão.

05AB1E , 15 11 bytes

Economizou 4 bytes graças a Kevin Cruijssen e Magic Octopus Urn .

Usa formas.
Saída [0, 0]para nenhuma , [1, 0]para a direita e [0, 1]para a esquerda

‚.•ÌöJη•så

Experimente online! ou como um conjunto de testes

Explicação

‚            # pair the input with its reverse
  .•ÌöJη•     # push the string "hsrtchs"
         så   # check if the input or its reverse is in this string

JavaScript (ES6), 32 bytes

s=>'ROYGBRO_ORBGYOR'.search(s)|7

Retorna -1 se não houver combinação, 15 se for no sentido anti-horário, 7 se for no sentido horário.

let f =
s=>'ROYGBRO_ORBGYOR'.search(s)|7

console.log(f('RBO')) // -1
console.log(f('GYO')) // 15
console.log(f('BBR')) // -1
console.log(f('YRG')) // -1
console.log(f('YGB')) // 7
console.log(f('ORB')) // 15
console.log(f('OOO')) // -1
console.log(f('BRO')) // 7

Wolfram Language (Mathematica) , 42 36 bytes

{"ROYGBRO","ORBGYOR"}~StringCount~#&

Experimente online!

Conta o número de vezes que a entrada aparece em ambos "ROYGBRO"e "ORBGYOR". Retorna {1,0}no sentido horário, {0,1}no sentido anti-horário e {0,0}sem combinação especial.

Com o custo de apenas mais um byte, podemos obter resultados de 0graça, 1no sentido horário e 2no sentido anti-horário "ROYGBRO.ORBGYORBGYOR"~StringCount~#&.

código de máquina x86, 39 36 bytes

00000000: f30f 6f11 b800 0000 0066 0f3a 6310 0c89  ..o......f.:c...
00000010: c883 c807 c352 4f59 4742 524f 2042 4759  .....ROYGBRO BGY
00000020: 4f52 4247                                ORBG

Montagem:

section .text
	global func
func:					;the function uses fastcall conventions
					;no stack setup needed because we don't need to use stack
	movdqu xmm2,[ecx]		;Move DQword (16 bytes) from 1st arg to func(ecx) to SSE reg
	mov eax, msg			;Load address of constant str 'msg' into eax
	PcmpIstrI xmm2, [eax], 1100b	;Packed Compare String Return Index, get idx of [eax] in xmm2
	mov eax, ecx			;Move returned result into reg eax
	or eax, 7			;Bitwise OR eax with 7 to get consistent values
	ret				;return to caller, eax is the return register
section .data
	msg db 'ROYGBRO BGYORBG'

Experimente online!

A saída é 23para none, 7no sentido horário e 15no sentido anti-horário. Com base na resposta de @RickHitchcock.

Salva 3 bytes usando uma instrução de comparação de cadeias SSE em vez de usar libc.

Perl 5 -p , 30 bytes

$_=ROYGBRO=~/$_/-ORBGYOR=~/$_/

Experimente online!

APL (Dyalog), 22 18 bytes

+/(⍷-⍷∘⌽)∘'ROYGBRO'

-4 bytes graças a @ngn

Toma uma sequência de iniciais de cores. Saídas 0 para nenhum padrão especial, -1 no sentido anti-horário, 1 no sentido horário.

Experimente online!

Python 2 , 45 43 bytes

lambda i,a='ROYGBRO':(i in a)-(i[::-1]in a)

Experimente online!

Com idéias e crédito sério para @DeadPossum

-2 com agradecimentos a @JoKing. Agora gera -1 = no sentido anti-horário, 0 = nenhum, 1 = no sentido horário.

Meu esforço original está abaixo para fins históricos.

Python 2 , 52 51 bytes

lambda i,a='ROYGBRO':((0,1)[i[::-1]in a],2)[i in a]

Experimente online!

0 = nenhum, 1 = no sentido anti-horário, 2 = no sentido horário

Python 2 ,  35  36 bytes

+1 - por algum motivo, pensei que todos os botões fossem distintos> _ <

Desenvolvido independentemente do que eu acabei de ver (e agora votado) por Dead Possum

lambda s:'ORBGYO.BROYGBR'.find(s)/7

Experimente online!

Stax , 14 13 bytes

ù♀e▌d─█£F'♦O▬

Execute e depure

A saída é

• 1 para nenhuma combinação especial
• 2 para melodia no sentido anti-horário
• 3 para melodia no sentido horário

Pip , 19 bytes

Y"ROYGBRO"OaNyaNRVy

Saídas 10para sentido horário, sentido 01anti-horário, 00para nenhum dos dois. Experimente online!

Explicação

                     a is 1st cmdline argument
Y"ROYGBRO"           Yank that string into y variable
           aNy       Count of occurrences of a in y
          O          Output without newline
                RVy  y reversed
              aN     Count of occurrences of a in that string
                     Print (implicit)

J , 21 bytes

-&(OR@E.&'ROYGBRO')|.

Experimente online!

Como funciona

-&(OR@E.&'ROYGBRO')|.  Monadic 2-verb hook. Input: a string.

                   |.  Map over [input string, input string reversed]:
      E.&'ROYGBRO'     Find exact matches of input in 'ROYGBRO'
  (OR@            )    Reduce with OR; is it a substring of 'ROYGBRO'?
-&                     Reduce with -; result is 1 for CW, -1 for CCW, 0 otherwise

Atinge a quantidade máxima de reutilização de função.

Gelatina , 12 bytes

,Ṛẇ€“¤ƈẎṬ%Ȥ»

Experimente online!

-4 graças a Jonathan Allan .

No sentido horário: No sentido [1, 0]
anti-horário: [0, 1]
Outro:[0, 0]

R , 38 bytes

grep(scan(,''),c('ROYGBRO','ORBGYOR'))

Experimente online!

Devoluções:

• Nenhuma combinação especial: integer(0)
• Melodia no sentido anti-horário acionada: 2
• Melodia no sentido horário acionada: 1

Carvão , 18 bytes

≔ROYGBROηＩ⁻№ηθ№⮌ηθ

Experimente online! Link é a versão detalhada do código. Explicação:

 ROYGBRO            Literal string
≔       η           Assign to variable
            η   η   Value of variable
               ⮌    Reversed
             θ   θ  Input string
           №  №     Count matches
          ⁻         Subtract
         Ｉ          Cast to string
                    Implicitly print

Lisp comum , 68 bytes

(defun x(s)(cond((search s "ROYGBRO")1)((search s "BGYORBG")-1)(0)))

Experimente online!

Limpo , 63 bytes

import StdEnv,Text
$s=map((>)0o indexOf s)["ROYGBRO","BGYORBG"]

Experimente online!

[True, True]sem ruídos especiais, [True, False]no sentido anti-horário, [False, True]no sentido horário.

Japonês, 17 14 bytes

Pega as cores como entrada, em minúsculas. Retorna 0no sentido horário, 1no sentido anti-horário ou -1se não houver combinação.

`ygß`ê qÔbøU

Tente

Expanação

`...`            :Compressed string "roygbrow"
     ê           :Palindromise
       qÔ        :Split on "w"
         b       :Index of the first element
          ø      : That contains
           U     :  The input string

Ruby , 53 36 bytes

->n{"\a\fDch+".index(""<<n%111)&./3}

Experimente online!

Entrada: um número inteiro de 3 dígitos, em que os dígitos representam cores:

• 1 - vermelho
• 2 - laranja
• 3 - amarelo
• 4 - verde
• 5 - azul

Saída: 0 no sentido horário, 1 no sentido anti-horário, nilcaso contrário.

C (gcc) , 55 bytes

Retorna 0 para nenhum, -1 para CCW e 1 para CW.

f(char*s){s=!strstr("ORBGYOR",s)-!strstr("ROYGBRO",s);}

Experimente online!