A mis dos hijos les gusta jugar con el siguiente juguete:

Se pueden tocar las áreas coloreadas con las formas en el interior y la tortuga luego ilumina el área y reproduce un sonido o dice el nombre del color o la forma en el interior. El botón central cambia el modo. Hay un modo en el que las áreas tocan diferentes notas musicales cuando se tocan, con un giro: si el niño toca tres áreas consecutivas en el sentido de las agujas del reloj, se reproduce una melodía especial 1. Si las tres áreas consecutivas tocadas se colocan en sentido antihorario, se reproduce una melodía especial 2.

El reto

Simulemos la lógica interna del juguete. Dada una cadena con 3 presiones del niño, devuelve dos valores distintos y coherentes si las tres presiones son para áreas consecutivas (en sentido horario o antihorario) y un tercer valor distinto si no lo son.

Detalles

• Las áreas de entrada se nombrarán con un carácter cada una, que puede ser su color: ROYGBpara rojo, naranja, amarillo, verde y azul; o su forma: HSRTCpara corazón, cuadrado, estrella ( R), triángulo y círculo. El caso no importa, puede elegir trabajar con entrada y salida solo en mayúsculas o minúsculas.
• El programa recibirá una cadena (o una matriz de caracteres o algo equivalente) con tres pulsaciones. Ejemplos (utilizando los colores): RBO, GYO, BBR, YRG, YGB, ORB...
• El programa generará tres valores distintos y coherentes para representar los tres resultados posibles: un primer valor si la combinación no activa una melodía especial, un segundo valor si la combinación activa la melodía especial en el sentido de las agujas del reloj, y un tercer valor si la combinación activa Melodía especial en sentido antihorario. Ejemplo: 0para ninguna combinación especial, 1para la melodía activada por una combinación en sentido horario y -1para la melodía activada por una combinación en sentido antihorario.
• No necesita preocuparse por manejar entradas incorrectas.

Casos de prueba

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 es el código de golf , ¡así que puede ganar el código más corto para cada idioma!

Java 8, 48 39 33 bytes

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

-6 bytes gracias a @RickHitchcock , ¡así que asegúrate de votarlo también !

Toma el color en mayúscula como cadena de entrada. Salidas -1para none, 7para sentido horario y 15para sentido antihorario.

Pruébalo en línea.

Explicación:

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

Antigua respuesta de 39 bytes:

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

Toma el color en mayúscula como cadena de entrada. Salidas 9362para none, 0para sentido horario y 1para sentido antihorario.

Pruébalo en línea.

Explicación:

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 las iniciales de color como entrada. Devuelve 2para ninguno, trueen sentido horario o falseen sentido antihorario.

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

Pruébalo en línea!

Python 2 , 36 bytes

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

-1- Ninguno
0- En sentido horario
1- En sentido antihorario

Pruébalo en línea!

Excel, 29 bytes

=FIND(A1,"ROYGBRO_RBGYORB")<6

Colores en mayúscula como entrada.

Devuelve #VALUE!sin patrón, TRUEen sentido horario, FALSEen sentido antihorario.

Puede ajustarse IFERROR( ,0)para +11 bytesmanejar excepciones y devolver '0' para casos sin patrón.

05AB1E , 15 11 bytes

Guardado 4 bytes gracias a Kevin Cruijssen y Magic Octopus Urn .

Utiliza formas.
Salida [0, 0]para ninguno , [1, 0]en sentido horario y [0, 1]en sentido antihorario

‚.•ÌöJη•så

Pruébalo en línea! o como un conjunto de pruebas

Explicación

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

Devuelve -1 si no hay combinación, 15 si es en sentido antihorario, 7 si es en sentido horario.

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~#&

Pruébalo en línea!

Cuenta el número de veces que aparece la entrada en ambos "ROYGBRO" y "ORBGYOR". Devuelve {1,0}en sentido horario, {0,1}en sentido antihorario y {0,0}sin combinación especial.

Al costo de solo un byte más, podemos obtener salidas de 0nada, 1en sentido horario y 2en sentido antihorario con"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

Montaje:

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'

Pruébalo en línea!

La salida es 23para ninguno,7 para las agujas del reloj y 15para las agujas del reloj. Basado en la respuesta de @RickHitchcock.

Se guardaron 3 bytes usando una instrucción de comparación de cadenas SSE en lugar de usar libc.

Perl 5 -p , 30 bytes

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

Pruébalo en línea!

APL (Dyalog), 22 18 bytes

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

-4 bytes gracias a @ngn

Toma una cadena de iniciales de color. Salidas 0 para ningún patrón especial, -1 para sentido antihorario, 1 para sentido horario.

Pruébalo en línea!

Python 2 , 45 43 bytes

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

Pruébalo en línea!

Con ideas y crédito serio para @DeadPossum

-2 con agradecimiento a @JoKing. Ahora produce -1 = en sentido antihorario, 0 = ninguno, 1 = en sentido horario.

Mi esfuerzo original está abajo para propósitos históricos.

Python 2 , 52 51 bytes

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

Pruébalo en línea!

0 = ninguno, 1 = en sentido antihorario, 2 = en sentido horario

Python 2 ,  35  36 bytes

+1: por alguna razón, pensé que todos los botones serían distintos> _ <

Desarrollado independientemente de lo que acabo de ver (y ahora votado) por Dead Possum

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

Pruébalo en línea!

Stax , 14 13 bytes

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

Ejecutar y depurarlo

La salida es

• 1 para ninguna combinación especial
• 2 para melodía en sentido antihorario
• 3 para melodía en sentido horario

Pip , 19 bytes

Y"ROYGBRO"OaNyaNRVy

Salidas 10para sentido horario, 01para sentido antihorario, 00para ninguno.Pruébalo en línea!

Explicación

                     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')|.

Pruébalo en línea!

Cómo 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

Logra la máxima cantidad de reutilización de funciones.

Jalea , 12 bytes

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

Pruébalo en línea!

-4 gracias a Jonathan Allan .

En sentido horario: En [1, 0]
sentido antihorario: [0, 1]
Otro:[0, 0]

R , 38 bytes

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

Pruébalo en línea!

Devoluciones :

• Ninguna combinación especial: integer(0)
• Melodía en sentido antihorario activada: 2
• Melodía en sentido horario activada: 1

Carbón , 18 bytes

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

Pruébalo en línea! El enlace es a la versión detallada del código. Explicación:

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

Lisp común , 68 bytes

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

Pruébalo en línea!

Limpio , 63 bytes

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

Pruébalo en línea!

[True, True]sin ruidos especiales, [True, False]en sentido antihorario, [False, True]en sentido horario.

Japt, 17 14 bytes

Toma los colores como entrada, en minúsculas. Devuelve 0en sentido horario, 1en sentido antihorario o -1si no hay combo.

`ygß`ê qÔbøU

Intentalo

Expansión

`...`            :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}

Pruébalo en línea!

Entrada: un entero de 3 dígitos, donde los dígitos representan colores:

• 1 - rojo
• 2 - naranja
• 3 - amarillo
• 4 - verde
• 5 - azul

Salida: 0 para sentido horario, 1 para sentido antihorario, de lo nilcontrario.

C (gcc) , 55 bytes

Devuelve 0 para ninguno, -1 para CCW y 1 para CW.

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

Pruébalo en línea!