Вызов

Рассмотрим радугу как семь цветов, представленных в виде строк 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]

Для ввода "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]+)/

больше не является оптимальным (из-за двойного 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]}

Попробуйте онлайн!

Использует тот факт, что биты 2-4 кодов ASCII первой буквы каждого цвета отображаются в 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 Асоне Тухид.

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 байт благодаря Кевину Круйссену
• -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

Запустите и отладьте его

Это использует инструкцию перевода кольца. Он заменяет каждый элемент в массиве следующим из «кольца декодера». Обычно он используется для замены символов в строке, но также может использоваться и для всей строки, если он заключен в одноэлементный массив.

Вот распакованное, ungolfed, прокомментированное представление 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 спасибо Джузеппе за matchсоветы

Пакетный, 97 байт

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

Объяснение: Операция callво второй строке заменяет параметр в команде и оценивает его, превращая его в, например 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 "и умножает ее на два, чтобы правильно обработать 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)

Попробуйте онлайн!

Котлин , 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)

Гема , 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

Гема , 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