Thử thách

Coi cầu vồng là bảy màu, được biểu thị bằng các chuỗi như Red Orange Yellow Green Blue Indigo Violet.
Nhiệm vụ của bạn là tạo ra một chương trình nhận một trong những màu này làm đầu vào và đầu ra tiếp theo theo thứ tự màu cầu vồng. Điều này bao gồm chồng chéoViolet -> Red

Đầu vào

Một chuỗi chứa một trong những màu sắc cầu vồng.

Đầu ra

Các màu tiếp theo theo thứ tự của cầu vồng.

Quy tắc

• Tên màu là trường hợp nhạy cảm. Họ phải phù hợp với trường hợp bao gồm trong bài này.
• Đầu vào sẽ luôn hợp lệ. Bất kỳ hành vi được phép cho đầu vào không hợp lệ.
• Đây là mã golf, vì vậy số byte ngắn nhất sẽ thắng!

Ví dụ đầu vào và đầu ra

Input -> Output
Red -> Orange
Orange -> Yellow
Yellow -> Green
Green -> Blue
Blue -> Indigo
Indigo -> Violet
Violet -> Red

SOGL V0.12 , 23 byte

k‰³d∆|ΝμHō↑≥░δ÷f‘θ⁽,WIw

Hãy thử nó ở đây!

Giải trình:

...‘θ⁽,WIw  
...‘        push "red orange yellow green blue indigo violet"
    θ       split on spaces
     ⁽      uppercase the 1st letter of every item (SOGLs dictionary only has lowercase words)
      ,W    get the inputs index in the array
        I   increment
         w  and get that item in the array, wrapping if necessary

JavaScript, 68 byte

s=>'RedOrangeYellowGreenBlueIndigoVioletRed'.match(s+'(.[a-z]*)')[1]

Đối với đầu vào "Red", chức năng này trước tiên xây dựng một RegExp /Red(.[a-z]*)/để khớp với chuỗi 'RedOrangeYellowGreenBlueIndigoVioletRed'và sau đó trả về kết quả chụp đầu tiên.

f=
s=>'RedOrangeYellowGreenBlueIndigoVioletRed'.match(s+'(.[a-z]*)')[1]

document.write('<table><tr><th>Input<th>Output')
for(i='Red';;){
document.write(`<tr><td>${i}<td>${i=f(i)}`);
if(i=='Red')break;
}

Perl 5 -p , 58 57 byte

#!/usr/bin/perl -p
$_={(Red,Orange,Yellow,Green,Blue,Indigo,Violet)x2}->{$_}

Hãy thử trực tuyến!

Bây giờ thách thức đã được thay đổi để tuần hoàn giải pháp regex

say RedOrangeYellowGreenBlueIndigoVioletRed=~/$_(.[a-z]+)/

không còn tối ưu nữa (do gấp đôi Red)

Ngoài ra 57 byte:

#!/usr/bin/perl -p
$_=(Indigo,Blue,Violet,Yellow,Orange,Red,Green)[ord>>2&7]

Hãy thử trực tuyến!

Python , 79 byte

z="Red Orange Yellow Green Blue Indigo Violet".split()*2
dict(zip(z,z[1:])).get

Hãy thử trực tuyến!

Xử lý Violet -> Red. Hàm mong muốn được cung cấp ẩn danh trong dòng thứ hai.

80 byte

lambda x:"Red Orange Yellow Green Blue Indigo Violet Red".split(x)[1].split()[0]

Hãy thử trực tuyến!

Perl 6 , 56 byte

{<Indigo Blue Violet Yellow Orange Red Green>[.ord/4%8]}

Hãy thử trực tuyến!

Khai thác thực tế là các bit 2-4 của mã ASCII của chữ cái đầu tiên của mỗi màu xảy ra để ánh xạ thành 0-6.

say map (*.ord +> 2) % 8, <R O Y G B I V>
# (4 3 6 1 0 2 5)

Đây là một giải pháp không cạnh tranh tốt đẹp sử dụng "màu tím" thay vì "màu chàm" và "màu tím" (38 ký tự, 59 byte):

{'🍎🧡💛💚💙💜🍎'.uninames~~m/$^a.\S+.<(\S+/}

Hãy thử trực tuyến!

Ruby -n , 62 60 byte

-2 bởi Asone Tuhid.

p"RedVioletIndigoBlueGreenYellowOrangeRed"[/.[a-z]+(?=#$_)/]

Hãy thử trực tuyến!

Cách tiếp cận Regex có vẻ hứa hẹn cho Ruby quá. Tuy nhiên, tôi đã đi đến một giải pháp ngắn hơn bằng cách sử dụng một cái nhìn và trực tiếp in trận đấu, thay vì chơi với các nhóm bắt. Danh sách các màu theo hướng ngược lại vì lookahead rẻ hơn 1 byte so với lookbehind.

Màu đỏ , 87 byte

func[c][print first find/tail[Red Orange Yellow Green Blue Indigo Violet Red]to-word c]

Hãy thử trực tuyến!

05AB1E , 30 byte

“†¾›ÈŠÛˆ¨‡—ëßigo°Íolet“#™DIk>è

Hãy thử trực tuyến!

Giải trình

“†¾›ÈŠÛˆ¨‡—ëßigo°Íolet“          # push a string of colours
                       #         # split on spaces
                        ™        # title-case each
                         D       # duplicate
                          Ik     # get the index of the input
                            >    # increment
                             è   # get the element at that index

Excel, 85 byte

=CHOOSE(MOD(CODE(A1),12),"green","indigo","yellow",,,"orange","blue",,"violet","red")

Sử dụng tên viết thường.

Cách tiếp cận tương tự, với các chữ cái Uppercase 86 byte:

=CHOOSE(MOD(CODE(A1),12),"Violet","Red",,,"Green","Indigo","Yellow",,,"Orange","Blue")

Haskell , 80 71 75 byte

^{Cảm ơn Laikoni đã rút ngắn 9 byte!}

g x=snd(span(/=x)$words"Red Orange Yellow Green Blue Indigo Violet Red")!!1

Hãy thử trực tuyến!

Một giải pháp khác, hơi thành ngữ hơn, nhưng tôi không thể rút ngắn nó:

data R=Red|Orange|Yellow|Green|Blue|Indigo|Violet deriving(Enum,Read,Eq)
succ.read

Nó cần phải xuất phát Readvì yêu cầu đầu vào là một chuỗi và ít nhất Eqhoặc Showđể kiểm tra sự bằng nhau hoặc hiển thị kết quả.

Võng mạc , 65 58 byte

$
(.[a-z]+)
L$:`RedOrangeYellowGreenBlueIndigoVioletRed
$1

Hãy thử trực tuyến!

Giải trình

$
(.[a-z]+)

Chúng tôi bắt đầu bằng cách nối thêm (.[a-z]+)vào đầu vào, từ đó biến nó thành một biểu thức chính phù hợp với màu đầu vào, ngay sau đó là chính xác thêm một màu nữa (chụp cái sau).

L$:`RedOrangeYellowGreenBlueIndigoVioletRed
$1

Bây giờ :hoán đổi đầu vào của giai đoạn với biểu thức chính của nó. Vì vậy, kết quả trước đó trở thành biểu thức chính quy và nó phù hợp với danh sách các màu. Trận đấu (đơn) được thay thế bằng nhóm chụp đầu tiên (nghĩa là màu tiếp theo trong chu kỳ) và được trả về. Đầu ra ở cuối chương trình diễn ra tự động.

Vim, 59 56 53 52 byte

-1 byte nhờ tsh

2IYellow Green Blue Indigo Violet Red Orange <Esc>*wywVp

Java (JDK 10) , 77 byte

s->"Red Orange Yellow Green Blue Indigo Violet Red".split(s)[1].split(" ")[1]

Hãy thử trực tuyến!

Tín dụng

• -10 byte nhờ Kevin Cruijssen
• -1 byte nhờ Okx

Dừa , 79 byte

s->"# Violet Red # # Green Indigo Yellow # # Orange Blue".split()[ord(s[0])%12]

Hãy thử trực tuyến!

Husk , 28 byte

S!o→€⁰w¨ṙ}ΘΞĠ«ẇ₇G²€ḃλBżḃIÿö⌉

Hãy thử trực tuyến!

Có thể có các tùy chọn tốt hơn để quản lý các đối số, nhưng đây là cách tốt nhất tôi có thể tìm thấy

Giải trình

S!o→€⁰w¨ṙ}ΘΞĠ«ẇ₇G²€ḃλBżḃIÿö⌉
       ¨ṙ}ΘΞĠ«ẇ₇G²€ḃλBżḃIÿö⌉    Compressed string with all the colors
                                "Red Orange Yellow Green Blue Indigo Violet"
      w                         Split on spaces
S                               Pass the list to both the following functions:
    €⁰                          1) Find the index of the input in the list
  o→                                  and increase it by one
 !                              2) Get the element of the list at the
                                   resulting position (indexing is cyclical)

Stax , 31 30 29 byte

ÇôF┘≡▓ƒ◄╙>┘☼░⌂╪B<U[ÇQ╒eöΣQ╔÷n

Chạy và gỡ lỗi nó

Điều này sử dụng hướng dẫn dịch vòng. Nó thay thế từng phần tử trong một mảng bằng phần tử sau từ "vòng giải mã". Thông thường, nó được sử dụng để thay thế ký tự trong một chuỗi, nhưng nó cũng có thể được sử dụng trên toàn bộ chuỗi, nếu nó được gói trong một mảng đơn.

Đây là đại diện ascii đã giải nén, không được chỉnh sửa, nhận xét của cùng một chương trình.

]   wrap input in singleton array
`5^bZ_9G*h]h%oM~X9e-0ZQJkb2`    compressed string literal with color names
:.j title case and split on spaces
:t  do ring translation

Chạy cái này

J , 67 64 62 byte

-2 byte cảm ơn FrownyFrog

>:&.((cut'Red Orange Yellow Green Blue Indigo Violet Red')i.<)

Hãy thử trực tuyến!

R , 109 93 byte

function(x){y=c("Red","Orange","Yellow","Green","Blue","Indigo","Violet");y[match(x,y)%%7+1]}

Hãy thử trực tuyến!

-16 cảm ơn Giuseppe đã sử dụng matchlời khuyên

Mẻ, 97 byte

@set s=Red Orange Yellow Green Blue Indigo Violet Red
@call set s=%%s:*%1 =%%
@echo %s: =&rem %

Giải thích: Dòng calltrên dòng thứ hai có tác dụng thay thế tham số vào lệnh và đánh giá nó, biến nó thành ví dụ set s=%s:Red =%, xóa tiền tố của chuỗi bao gồm tham số. Sự thay thế trên dòng thứ ba sau đó thay thế tất cả các khoảng trắng bằng dấu phân cách câu lệnh và nhận xét. Điều này hoạt động vì sự thay thế chuỗi xảy ra trước khi phân tích cú pháp.

Ruby -n , 75 69 byte

a=%w{Red Orange Yellow Green Blue Indigo Violet};p a[-~(a.index$_)%7]

Hãy thử trực tuyến!

Julia 0,6 , 76 byte

f(s)=match(Regex("$s(.[a-z]*)"),"RedOrangeYellowGreenBlueIndigoViolet"^2)[1]

Hãy thử trực tuyến!

Thao tác này xử lý Violet-> Red bằng cách tái chế chuỗi bằng ^toán tử nguồn .

Đây là một giải pháp dài hơn một chút mà không có regexes:

g(s,l=split("Red Orange Yellow Green Blue Indigo Violet"," "))=l[(findin(l,[s])[1])%7+1]

PowerShell , 74 byte

(-split("Red Orange Yellow Green Blue Indigo Violet "*2-split$args)[1])[0]

Hãy thử trực tuyến!

Lấy chuỗi "Red ... Violet "và nhân chuỗi đó ra hai để xử lý đúng Violet -> Redtrường hợp kiểm thử. Chúng tôi sau -splitđó chuỗi đó vào đầu vào $argsđể cung cấp cho chúng tôi một mảng gồm hai chuỗi. Chúng tôi lấy chuỗi thứ hai [1], sau -splitđó vào khoảng trắng để cung cấp cho chúng tôi một chuỗi các chuỗi và lấy chuỗi đầu tiên [0].

Ví dụ, đối với đầu vào "Yellow", bước đầu tiên sẽ dẫn đến @("Red Orange ", " Green Blue Indigo ... Indigo Violet "). Chúng tôi lấy cái thứ hai trong số đó, chia nó trên khoảng trắng (loại bỏ khoảng trắng), do @("Green", "Blue", ... "Violet")đó, lấy [0]kết quả của nó trong chuỗi tiếp theo thích hợp.

Ngôn ngữ công thức ghi chú của IBM / Lotus, 79 74 byte

@Left(@Right("Red Orange Yellow Green Blue Indigo Violet Red ";a+" ");" ")

Phiên bản trước cho 79:

R:=@Explode("Red,Orange,Yellow,Green,Blue,Indigo,Violet,Red");R[@Member(a;R)+1]

Lấy đầu vào từ một trường văn bản có thể chỉnh sửa được gọi là a.

Không có TIO cho ngôn ngữ công thức, vì vậy đây là một vài ảnh chụp màn hình.

PHP, 92 byte

$a=" Red   OrangeYellowGreen Blue  IndigoVioletRed";echo substr($a,strpos($a,$argv[1])+6,6)

Hãy thử trực tuyến!

Kotlin , 73 byte

x->"RedOrangeYellow Green  BlueIndigoVioletRed".substringAfter(x).take(6)

Hãy thử trực tuyến!

Lợi dụng thực tế là nhiều màu sắc là 6 ký tự, những màu không được thêm tiền tố vào khoảng trắng để làm cho chúng dài 6 ký tự. Hy vọng rằng có thể chấp nhận được rằng một số màu sắc được xuất ra với khoảng trắng trước chúng.
ví dụ: màu đỏ là " Red"màu xanh" Blue"

SmileBASIC, 94 84 byte

C$="Red   OrangeYellowGreen Blue  IndigoViolet
INPUT I$?MID$(C$*2,INSTR(C$,I$)+6,6)

Gema , 67 ký tự

*=@subst{*\?<J>=\?\$2\;\?=;RedOrangeYellowGreenBlueIndigoVioletRed}

Chạy mẫu:

bash-4.4$ echo -n Yellow | gema '*=@subst{*\?<J>=\?\$2\;\?=;RedOrangeYellowGreenBlueIndigoVioletRed}'
Green

bash-4.4$ echo -n Violet | gema '*=@subst{*\?<J>=\?\$2\;\?=;RedOrangeYellowGreenBlueIndigoVioletRed}'
Red

Gema , 59 ký tự

R=Orange
O=Yellow
Y=Green
G=Blue
B=Indigo
I=Violet
V=Red
*=

Chán một cái. Cách tiếp cận ngu ngốc nhất, nhưng khá ngắn.

Chạy mẫu:

bash-4.4$ gema 'R=Orange;O=Yellow;Y=Green;G=Blue;B=Indigo;I=Violet;V=Red;*=' <<< 'Yellow'
Green

bash-4.4$ gema 'R=Orange;O=Yellow;Y=Green;G=Blue;B=Indigo;I=Violet;V=Red;*=' <<< 'Violet'
Red

q / kdb + , 59 55 byte

Dung dịch:

.[!;2 8#($)`Red`Violet`Indigo`Blue`Green`Yellow`Orange]

Ví dụ:

q).[!;2 8#($)`Red`Violet`Indigo`Blue`Green`Yellow`Orange]"Red"
"Violet"
q).[!;2 8#($)`Red`Violet`Indigo`Blue`Green`Yellow`Orange]"Orange"
"Red"
q).[!;2 8#($)`Red`Violet`Indigo`Blue`Green`Yellow`Orange]"Blue"
"Green"

Giải trình:

Tạo một từ điển màu => màu tiếp theo, đầu vào là chìa khóa cho từ điển:

.[!;2 8#($)`Red`Violet`Indigo`Blue`Green`Yellow`Orange] / the solution
.[ ;                                                  ] / apply multiple args to function
           `Red`Violet`Indigo`Blue`Green`Yellow`Orange  / list of colours
         ($)                                            / convert to strings
    2 8#                                                / reshape into 2x8 grid
  !                                                     / create dictionary

Tiền thưởng:

Đó là 53 byte trong K4:

.[!;2 8#$`Red`Violet`Indigo`Blue`Green`Yellow`Orange]

Japt , 45 43 byte

-2 byte nhờ Shaggy

`R‚sOÎÁƒYÁMwsGÎ9sBluƒI˜igosVio¤t`qs
g1+UbNg

Hãy thử trực tuyến!

sed, 72 byte

s/$/%RedOrangeYellowGreenBlueIndigoVioletRed/;s/(.+)%.*\1(.[a-z]+).*/\2/

Dùng thử trực tuyến

Ví dụ 1:

Đầu vào:

Red
Orange
Yellow
Green
Blue
Indigo
Violet

Đầu ra:

Orange
Yellow
Green
Blue
Indigo
Violet
Red

Ví dụ 2:

Đầu vào:

Indigo
Yellow
Red
Red
Blue
Green
Orange
Violet
Green
Green
Green
Blue
Blue
Violet

Đầu ra:

Violet
Green
Orange
Orange
Indigo
Blue
Yellow
Red
Blue
Blue
Blue
Indigo
Indigo
Red