ลูกสองคนของฉันชอบเล่นกับของเล่นต่อไปนี้:

พื้นที่สีที่มีรูปร่างอยู่ด้านในสามารถสัมผัสได้และเต่าก็จะทำการจุดไฟและเล่นเสียงหรือบอกชื่อของสีหรือรูปร่างที่อยู่ภายใน ปุ่มกลางเปลี่ยนโหมด มีโหมดหนึ่งที่พื้นที่เล่นโน้ตดนตรีที่แตกต่างกันเมื่อสัมผัสกับการบิด: หากเด็กสัมผัสสามพื้นที่ต่อเนื่องตามเข็มนาฬิกาจะมีการเล่นทำนองพิเศษ 1 หากวางทั้งสามพื้นที่ติดต่อกันเป็นทวนเข็มนาฬิกาจะมีการเล่นทำนองพิเศษ 2

ความท้าทาย

ลองจำลองตรรกะภายในของของเล่น ให้สตริงที่มี 3 กดของเด็กคืนสองค่าที่ชัดเจนและเชื่อมโยงกันหากกดสามครั้งสำหรับพื้นที่ต่อเนื่อง (ตามเข็มนาฬิกาหรือทวนเข็มนาฬิกา) และค่าที่แตกต่างที่สามถ้าพวกเขาไม่ได้

รายละเอียด

• พื้นที่ป้อนข้อมูลจะถูกตั้งชื่อด้วยอักขระแต่ละตัวซึ่งสามารถเป็นสีของพวกเขา: ROYGBสำหรับสีแดงสีส้มสีเหลืองสีเขียวและสีน้ำเงิน หรือรูปร่างของพวกเขา: HSRTCสำหรับหัวใจ, สี่เหลี่ยม, ดาว ( R), สามเหลี่ยมและวงกลม เคสไม่สำคัญคุณสามารถเลือกทำงานกับอินพุตและเอาต์พุตได้เป็นตัวพิมพ์ใหญ่หรือตัวพิมพ์เล็ก
• โปรแกรมจะได้รับสตริง (หรืออาร์เรย์ถ่านหรืออะไรก็ตามที่เทียบเท่า) ด้วยการกดสามครั้ง ตัวอย่าง (โดยใช้สี): RBO, GYO, BBR, YRG, YGB, ORB...
• โปรแกรมจะแสดงผลลัพธ์ที่แตกต่างกันสามค่าที่เชื่อมโยงกันเพื่อแสดงผลลัพธ์ที่เป็นไปได้สามประการ: ค่าแรกหากการรวมกันไม่ทำให้เกิดท่วงทำนองพิเศษค่าที่สองถ้าการรวมกันก่อให้เกิดท่วงทำนองพิเศษตามเข็มนาฬิกาและค่าที่สาม ท่วงทำนองพิเศษทวนเข็มนาฬิกา ตัวอย่าง: 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

นี่คือรหัส - กอล์ฟดังนั้นอาจเป็นรหัสที่สั้นที่สุดสำหรับแต่ละภาษาที่ชนะ!

Java 8, 48 39 33 ไบต์

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

-6 ไบต์ขอบคุณ@RickHitchcockดังนั้นอย่าลืมโหวตให้ดีเช่นกัน !

ใช้สีตัวพิมพ์ใหญ่เป็น Input-String เอาต์พุต-1สำหรับ none, 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

ใช้สีตัวพิมพ์ใหญ่เป็น Input-String เอาต์พุต9362สำหรับ none, 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)สำหรับ+11 bytesการยกเว้นจับและผลตอบแทน '0' สำหรับกรณีที่ไม่มีรูปแบบแทน

05AB1E , 15 11 ไบต์

ที่บันทึกไว้ 4 ไบต์ต้องขอบคุณเควิน Cruijssenและเมจิกปลาหมึกโกศ

ใช้รูปร่าง
เอาท์พุท[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}ไม่มีการรวมกันพิเศษ

ที่ค่าใช้จ่ายเพียงหนึ่งไบต์มากขึ้นเราจะได้รับผลของ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

บันทึก 3 ไบต์โดยใช้คำสั่งการเปรียบเทียบสตริง SSE แทนที่จะใช้ libc

Perl 5 -p , 30 ไบต์

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

ลองออนไลน์!

APL (Dyalog), 22 18 ไบต์

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

-4 ไบต์ขอบคุณ @ngn

ใช้ชื่อย่อของสี เอาต์พุต 0 สำหรับไม่มีรูปแบบพิเศษ, -1 สำหรับทวนเข็มนาฬิกา, 1 สำหรับทวนเข็มนาฬิกา

ลองออนไลน์!

Python 2 , 45 43 ไบต์

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

ลองออนไลน์!

ด้วยแนวคิดจากและเครดิตที่จริงจังถึง @DeadPossum

-2 ขอบคุณ @JoKing ตอนนี้เอาท์พุท -1 = ทวนเข็มนาฬิกา, 0 = ไม่มี, 1 = ทวนเข็มนาฬิกา

ความพยายามเริ่มต้นของฉันต่ำกว่าเพื่อจุดประสงค์ทางประวัติศาสตร์

Python 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 - ด้วยเหตุผลบางอย่างฉันคิดว่าปุ่มทั้งหมดจะแตกต่างกัน> _ <

พัฒนาเป็นอิสระจากสิ่งที่ฉันได้เห็นเพียง (และตอนนี้ขึ้นโหวต) โดยตายพอสซัม

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

ลองออนไลน์!

Stax , 14 13 ไบต์

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

เรียกใช้และแก้ไขข้อบกพร่อง

ผลลัพธ์คือ

• 1 สำหรับไม่มีส่วนผสมพิเศษ
• 2 สำหรับทำนองทวนเข็มนาฬิกา
• 3 สำหรับทำนองเพลงตามเข็มนาฬิกา

Pip , 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

เสียงกระเพื่อมสามัญ , 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]สำหรับทวนเข็มนาฬิกา

Japt, 17 14 ไบต์

ใช้สีเป็นอินพุตเป็นตัวพิมพ์เล็ก ส่งคืน0ตามเข็มนาฬิกา1สำหรับทวนเข็มนาฬิกาหรือ-1หากไม่มีคำสั่งผสม

`ygß`ê qÔbøU

ลองมัน

Expanation

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

Ruby , 53 36 ไบต์

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

ลองออนไลน์!

อินพุต: จำนวนเต็ม 3 หลักซึ่งตัวเลขแสดงถึงสี:

• 1 - สีแดง
• 2 - ส้ม
• 3 - สีเหลือง
• 4 - สีเขียว
• 5 - สีน้ำเงิน

เอาท์พุท: 0 สำหรับทวนเข็มนาฬิกา 1 สำหรับทวนเข็มนาฬิกาnilมิฉะนั้น

C (gcc) , 55 ไบต์

ส่งคืน 0 สำหรับ none, -1 สำหรับ CCW และ 1 สำหรับ CW

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

ลองออนไลน์!