挑战

将彩虹视为七种颜色，以字符串表示Red Orange Yellow Green Blue Indigo Violet。
您的任务是创建一个程序，以接收这些颜色之一作为输入，然后依次输出彩虹色。这包括重叠Violet -> Red

输入值

包含一种彩虹色的字符串。

输出量

接下来是彩虹的颜色。

规则

• 颜色名称区分大小写。它们必须匹配此帖子中包含的大小写。
• 输入将始终有效。对于无效输入，允许任何行为。
• 这是代码高尔夫球，因此最短的字节数将获胜！

输入和输出示例

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

SOGL V0.12，23个字节

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

在这里尝试！

说明：

...‘θ⁽,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个字节

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

对于input "Red"，此函数首先构造一个RegExp /Red(.[a-z]*)/以匹配字符串'RedOrangeYellowGreenBlueIndigoVioletRed'，然后返回第一个捕获结果。

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个字节

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

在线尝试！

现在，挑战已变成周期性的正则表达式解决方案

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

不再是最佳选择了（由于double Red）

同样是57个字节：

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

在线尝试！

Python，79字节

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

在线尝试！

处理Violet -> Red。所需功能在第二行中匿名给出。

80字节

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

在线尝试！

Perl 6、56个字节

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

在线尝试！

利用了以下事实：每种颜色的第一个字母的ASCII码的2-4位恰好映射到0-6。

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

这是一个不错的非竞争解决方案，它使用“紫色”代替“靛蓝”和“紫罗兰”（38个字符，59个字节）：

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

在线尝试！

红宝石 -n，62 60字节

-2由Asone Tuhid。

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

在线尝试！

Regex方法对于Ruby也很有希望。但是，我提出了一个使用前瞻性的较短解决方案，直接打印比赛，而不是与捕获小组进行比赛。颜色列表是反向的，因为先行比先行便宜1个字节。

红色，87字节

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

在线尝试！

05AB1E，30个字节

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

在线尝试！

说明

“†¾›ÈŠÛˆ¨‡—ëß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个字节

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

使用小写名称。

同样的方法，大写字母为86个字节：

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

Haskell，80 71 75字节

^{感谢Laikoni缩短了9个字节！}

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

在线尝试！

另一个解决方案，稍微有些惯用，但我不能说得更短：

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

Read由于需要输入是一个字符串并且至少Eq或Show为了测试是否相等或显示结果而需要导出。

视网膜，65 58字节

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

在线尝试！

说明

$
(.[a-z]+)

我们从附加(.[a-z]+)到输入开始，从而将其变成与输入颜色匹配的正则表达式，然后紧接着又是另一种颜色（捕获后者）。

L$:`RedOrangeYellowGreenBlueIndigoVioletRed
$1

现在，:用其自己的正则表达式交换舞台的输入。因此，先前的结果成为正则表达式，并且与颜色列表匹配。（单个）匹配项将替换为其第一个捕获组（即循环中的下一个颜色）并返回。程序末尾的输出自动发生。

Vim，59 56 53 52字节

-1字节感谢tsh

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

Java（JDK 10），77字节

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

在线尝试！

学分

• -10个字节感谢Kevin Cruijssen
• -1字节归功于Okx

椰子，79字节

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

在线尝试！

外壳，28字节

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

在线尝试！

也许有更好的方法来管理参数，但这是我能找到的最好的方法

说明

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 字节

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

运行并调试

这使用了环翻译指令。它用“解码器环”中的下一个替换数组中的每个元素。通常，它用于在字符串中进行字符替换，但如果将其包装在单例数组中，则也可以在整个字符串中使用。

这是同一程序的未打包，未打包，带注释的ascii表示形式。

]   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

运行这个

J，67 64 62字节

-2个字节感谢FrownyFrog

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

在线尝试！

R，109 93字节

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

在线尝试！

-16感谢Giuseppe的使用match建议

批次，97个字节

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

说明：call在第二行上的效果是将参数替换为命令并对其进行评估，然后将其转换为eg set s=%s:Red =%，这将删除包含该参数的字符串的前缀。然后，第三行的替换用语句分隔符和注释替换所有空格。之所以可行，是因为字符串替换发生在解析之前。

红宝石 -n，75 69字节

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

在线尝试！

朱莉娅0.6，76字节

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

在线尝试！

这通过使用电源^操作员回收字符串来处理Violet-> Red 。

这是一个没有正则表达式的更长的解决方案：

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

PowerShell，74个字节

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

在线尝试！

"Red ... Violet "取出字符串，然后将字符串乘以2以正确处理Violet -> Red测试用例。然后-split，我们在输入时使用该字符串$args以提供两个字符串的数组。我们取第二个字符串[1]，然后取-split空白，给我们一个字符串数组，取第一个[0]。

例如，对于输入"Yellow"，第一步将产生@("Red Orange ", " Green Blue Indigo ... Indigo Violet ")。我们采用其中的第二个，将其拆分为空白（这将删除空白），结果为@("Green", "Blue", ... "Violet")，因此采用其中[0]一个将得到正确的下一个字符串。

IBM / Lotus Notes公式语言，79 74字节

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

79的先前版本：

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

从名为的可编辑文本字段中获取输入a。

公式语言没有TIO，因此有几个屏幕截图。

PHP，92字节

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

在线尝试！

Kotlin，73个字节

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

在线尝试！

利用许多颜色都是6个字符这一事实，没有颜色的字符前面会带有空格以使它们长6个字符。希望可以接受的是，某些颜色在其前面带有空格的情况下输出。
例如红色是" Red"，蓝色是" Blue"

SmileBASIC，94 84字节

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

Gema，67个字符

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

样品运行：

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个字符

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

无聊的。有史以来最笨拙的方法，但是很短。

样品运行：

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字节

解：

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

例子：

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"

说明：

创建一个颜色字典=>下一个颜色，输入是字典的键：

.[!;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

奖金：

这是53个字节的K4：

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

Japt，45 43字节

-2个字节，感谢Shaggy

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

在线尝试！

sed，72个字节

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

在线尝试

范例1：

输入：

Red
Orange
Yellow
Green
Blue
Indigo
Violet

输出：

Orange
Yellow
Green
Blue
Indigo
Violet
Red

范例2：

输入：

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

输出：

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