私の2人の子供は、次のおもちゃで遊ぶのが好きです。

内側に図形のある色付きの領域をタッチすると、カメがその領域を照らし、音を鳴らすか、内部の色または形状の名前を言います。中央のボタンはモードを変更します。触れたときに領域が異なる音符を演奏する1つのモードがあります。子供が時計回りに連続する3つの領域に触れると、特別なメロディ1が再生されます。タッチされた3つの連続した領域が反時計回りに配置されている場合、特別なメロディ2が再生されます。

チャレンジ

おもちゃの内部ロジックをシミュレートしましょう。キッドを3回押すと文字列が与えられると、3回押すと連続する領域（時計回りまたは反時計回り）の場合は2つの明確な一貫性のある値を返し、そうでない場合は3番目の明確な値を返します。

詳細

• 入力エリアはそれぞれ文字で名前が付けられ、色ROYGBは赤、オレンジ、黄色、緑、青の場合があります。またはその形状：HSRTCハート、正方形、星（R）、三角形、円。大文字と小文字は区別されません。入力と出力を大文字と小文字のどちらで扱うかを選択できます。
• プログラムは、3回押すと文字列（またはchar配列または同等のもの）を受け取ります。例（色を使用）： 、RBO、GYO、BBR、、YRGYGBORB ...
• プログラムは、3つの可能な結果を​​表す3つの異なるコヒーレントな値を出力します：組み合わせが特別なメロディーをトリガーしない場合は最初の値、組み合わせが時計回りの特別なメロディーをトリガーする場合は2番目の値、組み合わせがトリガーする場合は3番目の値反時計回りの特別なメロディ。例：0特別な組み合わせがない場合1、時計回りの組み合わせ-1によってトリガーされるメロディーおよび反時計回りの組み合わせによってトリガーされるメロディー
• 間違った入力の処理を心配する必要はありません。

テストケース

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

これはcode-golfなので、各言語の最短コードが勝つかもしれません！

Java 8、48 39 33バイト

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

@RickHitchcockのおかげで-6バイトなので、必ず彼も賛成してください！

入力文字列として大文字の色を使用します。-1なし、7時計回り、および15反時計回りの出力。

オンラインでお試しください。

説明：

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

古い39バイトの答え：

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

入力文字列として大文字の色を使用します。9362なし、0時計回り、および1反時計回りの出力。

オンラインでお試しください。

説明：

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バイト

入力として色の頭文字を取ります。2なし、true時計回りまたはfalse反時計回りに戻ります。

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

オンラインでお試しください！

Python 2、36バイト

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

-1 - なし
0 -時計回り
1-反時計回り

オンラインでお試しください！

Excel、29バイト

=FIND(A1,"ROYGBRO_RBGYORB")<6

入力として大文字の色。

#VALUE!パターンなし、TRUE時計回り、FALSE反時計回りを返します。

IFERROR( ,0)for +11 bytesをラップしてexceptionを処理し、代わりにパターンなしの場合は「0」を返します。

05AB1E、15 11バイト

Kevin CruijssenとMagic Octopus Urnのおかげで4バイト節約されました。

形状を使用します。
出力[0, 0]のためになし、[1, 0]のために時計回りと[0, 1]のために反時計回り

‚.•ÌöJη•så

オンラインでお試しください！ またはテストスイートとして

説明

‚            # 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バイト

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

組み合わせがない場合は-1、反時計回りの場合は15、時計回りの場合は7を返します。

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言語（Mathematica）、42 36バイト

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

オンラインでお試しください！

入力が両方に表示される回数をカウントします "ROYGBRO"と"ORBGYOR"。{1,0}時計回り、{0,1}反時計回り、および{0,0}特別な組み合わせがない場合に戻ります。

あと1バイトのコストで、出力0なし、1時計回り、2反時計回りの出力を取得できます。"ROYGBRO.ORBGYORBGYOR"~StringCount~#&。

x86マシンコード、39 36バイト

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

アセンブリ：

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'

オンラインでお試しください！

出力は23なし、7時計回り、および15反時計回りです。@RickHitchcockの回答に基づきます。

libcを使用する代わりにSSE文字列比較命令を使用して3バイトを保存しました。

Perl 5、30 -pバイト

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

オンラインでお試しください！

APL（Dyalog）、22 18バイト

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

@ngnのおかげで-4バイト

色のイニシャルの文字列を取ります。特別なパターンがない場合は0、反時計回りの場合は-1、時計回りの場合は1を出力します。

オンラインでお試しください！

パイソン2、45の 43バイト

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

オンラインでお試しください！

@DeadPossumからのアイデアと真剣な信用

-2 @JoKingに感謝します。-1 =反時計回り、0 =なし、1 =時計回りに出力されるようになりました。

私の最初の努力は歴史的な目的のために以下にあります。

パイソン2、52の 51バイト

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

オンラインでお試しください！

0 =なし、1 =反時計回り、2 =時計回り

Python 2、 35  36バイト

+1-何らかの理由で、すべてのボタンが異なると思った> _ <

Dead Possumが私が今見た（そして今では投票された）ものとは独立して開発された

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

オンラインでお試しください！

スタックス、14 13 バイト

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

実行してデバッグする

出力は

• 特別な組み合わせなしの場合は1
• 2反時計回りのメロディー
• 時計回りのメロディの場合は3

ピップ、19バイト

Y"ROYGBRO"OaNyaNRVy

10時計回り、01反時計回り、00どちらにも出力しません。オンラインでお試しください！

説明

                     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バイト

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

オンラインでお試しください！

使い方

-&(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

関数の再利用の最大量を達成します。

ゼリー、12バイト

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

オンラインでお試しください！

-4 ジョナサンアランに感謝ます。

時計回り：[1, 0]
反時計回り：[0, 1]
その他：[0, 0]

R、38バイト

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

オンラインでお試しください！

戻り値：

• 特別な組み合わせはありません： integer(0)
• 反時計回りのメロディーのトリガー： 2
• 時計回りのメロディーのトリガー： 1

炭、18バイト

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

オンラインでお試しください！リンクは、コードの詳細バージョンです。説明：

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

Common Lisp、68バイト

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

オンラインでお試しください！

クリーン、63バイト

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

オンラインでお試しください！

[True, True]特別なノイズなし、[True, False]反時計回り、[False, True]時計回り。

ジャプト、17 14バイト

入力として色を小文字で受け取ります。0時計回り、1反時計回り、または-1コンボがない場合に戻ります。

`ygß`ê qÔbøU

それを試してみてください

拡張

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

ルビー、53 36バイト

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

オンラインでお試しください！

入力：3桁の整数。数字は色を表します。

• 1-赤
• 2-オレンジ
• 3-黄色
• 4-緑
• 5-青

時計回りの場合は出力：0、反時計回りの場合は1、nilそれ以外の場合。

C（gcc）、55バイト

なしの場合は0、CCWの場合は-1、CWの場合は1を返します。

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

オンラインでお試しください！