Wyzwanie

Rozważ tęczę jako siedem kolorów, reprezentowanych przez łańcuchy jako Red Orange Yellow Green Blue Indigo Violet.
Twoim zadaniem jest stworzenie programu, który odbiera jeden z tych kolorów jako dane wejściowe i wyjściowe w kolejności kolorów tęczy. Obejmuje to nakładanie sięViolet -> Red

Wejście

Sznurek zawierający jeden z kolorów tęczy.

Wynik

Kolejny w kolejności kolor tęczy.

Zasady

• W nazwach kolorów rozróżniana jest wielkość liter. Muszą pasować do przypadku zawartego w tym poście.
• Dane wejściowe zawsze będą prawidłowe. Każde zachowanie jest dozwolone w przypadku nieprawidłowych danych wejściowych.
• To jest golf golfowy, więc wygrywa najmniejsza ilość bajtów!

Przykład wejścia i wyjścia

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

SOGL V0.12 , 23 bajty

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

Wypróbuj tutaj!

Wyjaśnienie:

...‘θ⁽,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 bajtów

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

Dla danych wejściowych "Red"ta funkcja najpierw konstruuje RegExp, /Red(.[a-z]*)/aby dopasować ciąg, 'RedOrangeYellowGreenBlueIndigoVioletRed'a następnie zwraca wynik pierwszego przechwytywania.

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 bajtów

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

Wypróbuj online!

Teraz, gdy wyzwanie zostało zmienione na cykliczne, rozwiązanie wyrażeń regularnych

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

nie jest już optymalny (ze względu na podwójne Red)

Również 57 bajtów:

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

Wypróbuj online!

Python , 79 bajtów

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

Wypróbuj online!

Uchwyty Violet -> Red. Pożądana funkcja jest podana anonimowo w drugim wierszu.

80 bajtów

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

Wypróbuj online!

Perl 6 , 56 bajtów

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

Wypróbuj online!

Wykorzystuje fakt, że bity 2-4 kodów ASCII pierwszej litery każdego koloru są mapowane na 0-6.

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

Oto fajne, niekonkurujące rozwiązanie, które używa „fioletowego” zamiast „indygo” i „fioletowego” (38 znaków, 59 bajtów):

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

Wypróbuj online!

Rubin -n , 62 60 bajtów

-2 autorstwa Asone Tuhid.

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

Wypróbuj online!

Podejście Regex również wygląda obiecująco dla Ruby. Doszedłem jednak do krótszego rozwiązania, korzystając z perspektywy i bezpośrednio drukując mecz, zamiast grać z grupami przechwytywania. Lista kolorów jest odwrócona, ponieważ lookahead jest o 1 bajt tańszy niż lookbeind.

Czerwony , 87 bajtów

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

Wypróbuj online!

05AB1E , 30 bajtów

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

Wypróbuj online!

Wyjaśnienie

“†¾›ÈŠÛˆ¨‡—ëß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 bajtów

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

Używa małych liter.

To samo podejście, z wielkimi literami 86 bajtów:

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

Haskell , 80 71 75 bajtów

^{Dzięki Laikoni za skrócenie 9 bajtów!}

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

Wypróbuj online!

Inne rozwiązanie, nieco bardziej idiomatyczne, ale nie mogłem go skrócić:

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

Musi wyprowadzić się z Readpowodu wymogu, że dane wejściowe są łańcuchem i przynajmniej Eqalbo Showw celu przetestowania równości lub przedstawienia wyniku.

Siatkówka , 65 58 bajtów

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

Wypróbuj online!

Wyjaśnienie

$
(.[a-z]+)

Zaczynamy od dołączenia (.[a-z]+)do danych wejściowych, zamieniając je w regex, który pasuje do koloru wejściowego, po czym następuje dokładnie jeden dodatkowy kolor (przechwytywanie tego drugiego).

L$:`RedOrangeYellowGreenBlueIndigoVioletRed
$1

Teraz :zamienia dane wejściowe stołu montażowego na własne wyrażenie regularne. Tak więc poprzedni wynik staje się wyrażeniem regularnym i jest dopasowywany do listy kolorów. Dopasowanie (pojedyncze) zostanie zastąpione pierwszą grupą przechwytującą (tj. Następnym kolorem w cyklu) i zwrócone. Wyjście na końcu programu odbywa się automatycznie.

Vim, 59 56 53 52 bajtów

-1 bajt dzięki tsh

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

Java (JDK 10) , 77 bajtów

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

Wypróbuj online!

Kredyty

• -10 bajtów dzięki Kevin Cruijssen
• -1 bajt dzięki Okx

Kokos , 79 bajtów

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

Wypróbuj online!

Łuska , 28 bajtów

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

Wypróbuj online!

Być może istnieją lepsze opcje zarządzania argumentami, ale to najlepsze, co mogłem znaleźć

Wyjaśnienie

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 bajtów

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

Uruchom i debuguj

To używa instrukcji tłumaczenia pierścienia. Zastępuje każdy element w tablicy następującym po nim z „pierścienia dekodera”. Zwykle służy do zastępowania znaków w ciągu, ale można go również stosować do całego ciągu, jeśli jest zawinięty w tablicę singletonów.

Oto rozpakowana, nieprzygotowana, skomentowana reprezentacja ascii tego samego programu.

]   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

Uruchom ten

J , 67 64 62 bajtów

-2 bajty dzięki FrownyFrog

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

Wypróbuj online!

R , 109 93 bajtów

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

Wypróbuj online!

-16 podziękowania dla Giuseppe za skorzystanie z matchporady

Partia, 97 bajtów

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

Objaśnienie: W calldrugim wierszu efekt set s=%s:Red =%polega na podstawieniu parametru do polecenia i jego ocenie, zamieniając go na np. , Który usuwa przedrostek ciągu zawierającego parametr. Podstawienie w trzecim wierszu zastępuje następnie wszystkie spacje separatorami instrukcji i komentarzami. Działa to, ponieważ podstawianie ciągu następuje przed analizą.

Rubinowy -n , 75 69 bajtów

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

Wypróbuj online!

Julia 0.6 , 76 bajtów

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

Wypróbuj online!

To obsługuje Violet-> Red poprzez recykling sznurka z ^operatorem mocy .

Oto nieco dłuższe rozwiązanie bez wyrażeń regularnych:

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

PowerShell , 74 bajty

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

Wypróbuj online!

Wyciąga ciąg "Red ... Violet "i mnoży go przez dwa, aby poprawnie obsłużyć Violet -> Redprzypadek testowy. Następnie -splitten ciąg wejściowy $argsdaje nam tablicę dwóch ciągów. Bierzemy drugi jego ciąg [1], a następnie -splitten biały znak, aby dać nam tablicę ciągów i wziąć pierwszy[0] .

Na przykład w przypadku wprowadzania "Yellow"pierwszy krok spowoduje @("Red Orange ", " Green Blue Indigo ... Indigo Violet "). Bierzemy drugi z nich, dzielimy go na białą spację (która usuwa białą spację), w rezultacie @("Green", "Blue", ... "Violet"), więc biorąc [0]jedną z nich daje właściwy następny ciąg.

Język formuły IBM / Lotus Notes, 79 74 bajty

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

Poprzednia wersja 79:

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

Pobiera dane wejściowe z edytowalnego pola tekstowego o nazwie a.

Nie ma TIO dla języka formuł, więc oto kilka zrzutów ekranu.

PHP, 92 bajty

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

Wypróbuj online!

Kotlin , 73 bajty

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

Wypróbuj online!

Korzystając z faktu, że wiele kolorów ma 6 znaków, te, które nie są poprzedzone spacjami, mają długość 6 znaków. Mamy nadzieję, że dopuszczalne jest, aby niektóre kolory były drukowane ze spacjami przed nimi.
np. czerwony jest " Red", niebieski jest" Blue"

SmileBASIC, 94 84 bajtów

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

Gema , 67 znaków

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

Przykładowy przebieg:

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 znaków

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

Nudny. Najgłupsze podejście w historii, ale dość krótkie.

Przykładowy przebieg:

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 bajtów

Rozwiązanie:

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

Przykłady:

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"

Wyjaśnienie:

Utwórz słownik koloru => następny kolor, wejście jest kluczem do słownika:

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

Premia:

Ma 53 bajty w K4:

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

Japt , 45 43 bajtów

-2 bajty dzięki Shaggy

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

Wypróbuj online!

sed, 72 bajty

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

Wypróbuj online

Przykład 1:

Wkład:

Red
Orange
Yellow
Green
Blue
Indigo
Violet

Wynik:

Orange
Yellow
Green
Blue
Indigo
Violet
Red

Przykład 2:

Wkład:

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

Wynik:

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