Dada uma das seguintes entradas:

Frango com cebola doce Teriyaki
Frango Assado no Forno
Peito de peru
BMT italiano
Atum
Presunto da Floresta Negra
Almôndega Marinara

Python 2 , 38 30 28 bytes

lambda S:`6793**164`[len(S)]

Experimente online!

Infelizmente ainda um byte a mais do que a melhor resposta do Python 2 até agora; embora não use a enklactabordagem-.

Agora, um byte menor que a resposta de cri everytim !

Como funciona?

Depois de muita força bruta, encontrei uma expressão que resulta em um número com os dígitos certos.
Percebi que olhar apenas um dígito específico do comprimento da string requeria 3 bytes ( %10). Então, eu escrevi outro programa Python ( link Pastebin ) para procurar mais números que mapeiam diretamente os comprimentos das strings de entrada para o dia da semana.

O número mágico é assim: 6793**164 = 28714733692312345620167113260575862840674216760386883406587492336415023761043044176257567032312859371641211117824224067391750766520256112063756278010050204239810862527958109285342869876264808102743173594017101607983288521836082497514383184553444755034407847810524083812459571382103831904835921560285915349760536969265992879312869538914200854305957428078269094250817029486005437991820466986793657301214564264748923199288698278615871481529585816783654841131577178922192383679718074693535597651237893794976519274268917335387876260270630339777501802739852278932279775510324916969726203688466311848240746465178859847331248655567344801(um número com impressionantes 629 dígitos decimais)

E como você pode ver, o número fornece o mapeamento necessário de [28, 20, 13, 11, 4, 16, 17] a [0, 1, 2, 3, 4, 5, 6] (as seqüências de caracteres Python são 0- indexados):

2871 4 733692 3 1 2 34 5 6 20 1 6711326 0 5758628406742167603868834... [4]^ [11]^ [13]^ [16]^ ^[17] ^[20] ^[28]

Meu programa também encontrou outras expressões que produzem números com a propriedade necessária, embora eles levam mais bytes para representar (29 em vez de 28): 19439**540, 34052**726, 39311**604, 44873**182, 67930**164e 78579**469. (Essas são todas as expressões encontradas pelo programa vinculado; sua execução levou várias horas.)

Função alternativa que requer 28 bytes: lambda S:`7954<<850`[len(S)]
Função alternativa que requer 29 bytes: lambda S:`9699<<2291`[len(S)]
Função alternativa que requer 30 bytes: lambda S:`853<<4390`[len(S)+9]
Função alternativa que requer 31 bytes:lambda S:`1052<<3330`[len(S)+8]

Como funciona? Como eu gerei esse número? (Resposta de 30 bytes)

A resposta de 30 bytes foi lambda S:`3879**41`[len(S)%10].

Observando os comprimentos da string de entrada [28, 20, 13, 11, 4, 16, 17], notei que todos os últimos dígitos da base dez diferem, resultando na lista [8, 0, 3, 1, 4, 6, 7]. Então, eu só precisava de um mapeamento dessa lista para a lista de todos os sete dias da semana [0, 1, 2, 3, 4, 5, 6].

Minha primeira abordagem simplesmente usou uma string para realizar o mapeamento:, lambda S:"13*24*560"[len(S)%10]embora a string exigisse onze bytes ( "13*24*560").
Então, escrevi um programa Python ( link Pastebin ) para testar expressões aritméticas que resultam em um número inteiro com dígitos correspondentes, na esperança de aprimorar ainda mais o programa. O que eu criei até agora é `3879**41`(apenas dez bytes, a única e, portanto, menor expressão que meu programa encontra).

Obviamente, existem muitas expressões possíveis diferentes que alguém poderia tentar; Eu apenas tive sorte que havia um na forma a**bcom um resultado razoavelmente pequeno que se encaixava na minha necessidade.

Apenas para qualquer pessoa curiosa 3879**41 = 1372495608710279938309112732193682350992788476725725221643007306215781514348937145528919415861895033279220952836384201346579163035594383625990271079 = 1.372... * 10**147.

Outra função válida que encontrei ao procurar expressões alternativas que infelizmente exigem 32 bytes: lambda S:`7**416`[len(S)%10+290]

Python 2 , 29 bytes

lambda s:'enklact'.find(s[3])

Experimente online!

Explicação

A seqüência mágica,, enklactfoi encontrada procurando a primeira coluna com letras únicas.

A primeira coluna SOTITBMaparece, o que não é útil, pois contém duplicatas. O segundo e o terceiro também não funcionam porque são wvutulee eeranaarespectivamente. A quarta coluna, no entanto, funciona, pois possui todas as letras exclusivas.

lambda s:'enklact'.find(s[3])

lambda s:                      # declare a function that takes a single paramater s
                  .find(    )  # find the index of the first instance of...
                        s[3]   # the fourth (0-indexing) character of s...
         'enklact'             # in the magic string

Python , 26 bytes

lambda S:1923136>>len(S)&7

Experimente online!

Com uma dívida de agradecimento (pela minha segunda tentativa direta de golfe com código) pela resposta de Jonathan Frech - eu não teria pensado em usar o comprimento da string em vez de uma letra distinta!

Esse código deriva da minha experiência com De Bruijn Sequences e da programação para o xadrez.

No xadrez, você costuma trabalhar com vários números inteiros de 64 bits, onde cada bit indica que há algo verdadeiro ou falso no quadrado correspondente no tabuleiro de xadrez, como "há uma peça branca aqui" ou "este quadrado contém um peão".

Portanto, é útil poder converter rapidamente 2**npara de forma nrápida e barata. Em C e C ++, a maneira mais rápida de fazer isso é multiplicar por uma sequência De Bruijn de 64 bits - equivalente a deslocamento por nbits - e depois deslocar para a direita 58 (para colocar os primeiros seis bits por último - verifique se você ' re usando um int não assinado ou você receberá 1s na metade do tempo) e procure esse número 0..63 em uma tabela que fornece o correspondente nque está no mesmo intervalo, mas raramente o mesmo número.

Isso é meio que relacionado. Em vez de mudar de 2**npara n, no entanto, queremos mudar de npara outro número de 3 bits. Portanto, ocultamos nossos números de 3 bits em um número mágico de 31 bits (uma mudança de 28 bits requer os bits 28 a 30, com a numeração começando em 0.)

Gerei o número necessário apenas vendo quais valores tinham que cair onde (tentando 0..6 e 1..7 conforme a saída é definida). Felizmente, os valores sobrepostos (14, 16 e 17) acontecem! E como o primeiro tri-bit é 000e o próximo é 001, não precisamos dos 7 bits mais à esquerda, resultando em menos dígitos -> menos bytes de origem.

O número necessário é 000xxxx001110101011xxxx100xxxxonde os x podem ser 1 ou 0 e não afeta o resultado para esses subs específicos - eu os defino como 0 apenas para minimizar o número, mas alterar qualquer um dos últimos 8 x não deve afetar o comprimento do código fonte. Definir todos os xs como 0 e deixar de iniciar fornece 1923136 em decimal (ou 1D5840 em hexadecimal, mas você precisa do prefixo 0x - vergonha!) O & 7 no final mascara os últimos 3 bits, você também pode use% 8, mas você precisará de parênteses devido às regras de precedência do operador do python.

tl; dr: 1923136 codifica cada uma das combinações de três bits de 0 a 6, exatamente nos pontos certos em que esses nomes de sanduíches se encaixam e, em seguida, é uma questão de pegar os últimos três bits após uma mudança à direita.

Gelatina , 10 bytes

^{O que há com todo esse negócio de "enklact"?}

⁽ṃXị“Ð$¥»i

Um link monádico que pega uma lista de caracteres e retorna segunda-feira = 1 dia da semana.

Experimente online! ou veja a suíte de testes

Quão?

⁽ṃXị“Ð$¥»i - Link: list of characters, sandwichName  e.g. "Tuna"
⁽ṃX        - base 250 literal                             -7761
   ị       - index into sandwichName (1-indexed & modular) 'n'
    “Ð$¥»  - dictionary word                               "retinal"
         i - index of                                           5

C (gcc) , 72 71 56 46 41 39 bytes

f(char*s){s=index(s="enklact",s[3])-s;}

Experimente online!

MATL , 16 15 bytes

O5OHlO7KI6vjYm)

Experimente online! Ou verifique todos os casos de teste .

Explicação

O5OHlO7KI6 % Push numbers 0, 5, 0, 2, 1, 0, 7, 4, 3, 6
v          % Concatenate all numbers into a column vector
j          % Push input as a string
Ym         % Mean (of ASCII codes)
)          % Index into the column vector (modular, 1-based, with implicit rounding)
           % Implicit display

Perl 5 , 24 bytes

Código de 23 bytes + 1 para -p.

/[Svrl\s](?!a)/;$_="@+"

-4 bytes graças a @nwellnhof !

Experimente online!

Eu pensei em postar algumas outras alternativas

Javascript 38 bytes

a=s=>(271474896&7<<s.Length)>>s.Length

Explicação: Máscara de bits de rochas?

Javascript 27 bytes

s=>"240350671"[s.length%10]

Gelatina , 11 bytes

4ị“-ƭɼoṚ0»i

Experimente online!

Explicação:

4ị“-ƭɼoṚ0»i
4ị          4th element of z
  “-ƭɼoṚ0»i First index in "enklactate"

Japonês , 12 bytes

Indexado a 0, recebe entrada em minúsculas.

`kÇXsm`bUg#

Teste-o

Explicação

Entrada implícita de sequência minúscula U

`kÇXsm`

A sequência compactada kotinsm.

bUg#

Obtenha o primeiro índice ( b) do caractere em index ( g) 26 ( #) em U. (Yay, quebra de índice!)

Saída implícita do resultado inteiro.

Alternativo

O mesmo que o anterior (e todos os outros!), Apenas usando os caracteres no índice 3, permitindo a entrada de maiúsculas e minúsculas.

`klact`bUg3

Teste-o

05AB1E , 11 bytes

Economizou 1 byte graças a Erik the Outgolfer e 1 byte graças a Magic Octopus Urn.

.•ΛΓ2º•I3èk

Experimente online!

JavaScript (ES6), 25 bytes

Indexado a 0.

s=>"enklact".search(s[3])

Teste-o

o.innerText=(f=
s=>"enklact".search(s[3])
)(i.value);oninput=_=>o.innerText=f(i.value)

<select id=i><option selected value="Sweet Onion Chicken Teriyaki">Sweet Onion Chicken Teriyaki</option><option value="Oven Roasted Chicken">Oven Roasted Chicken</option><option value="Turkey Breast">Turkey Breast</option><option value="Italian BMT">Italian BMT</option><option value="Tuna">Tuna</option><option value="Black Forest Ham">Black Forest Ham</option><option value="Meatball Marinara">Meatball Marinara</option></select><pre id=o>

GolfScript , 12 bytes

{+}*93&(5?7%

Experimente online!

Mapeia as entradas (através da soma de seus pontos de código) para 0para 6.

Explicação

Encontrado com uma ferramenta de força bruta do fragmento GolfScript que escrevi há algum tempo ...

{+}*  # Sum all code points.
93&   # ... AND 93.
(     # Decrement.
5?    # ... raised to the fifth power.
7%    # ... modulo 7.

Aqui está como isso transforma cada uma das entradas no resultado desejado:

                                 {+}*   93&     (            5?   7%
Sweet Onion Chicken Teriyaki     2658    64    63     992436543    0
Oven Roasted Chicken             1887    93    92    6590815232    1
Turkey Breast                    1285     5     4          1024    2
Italian BMT                       965    69    68    1453933568    3
Tuna                              408    24    23       6436343    4
Black Forest Ham                 1446     4     3           243    5
Meatball Marinara                1645    77    76    2535525376    6

Excel, 28 bytes

Usando o enklactmétodo:

=FIND(MID(A1,4,1),"enklact")

Perl 6 , 22 bytes

tr/enklact/^6/.comb[3]

Experimente online!

CJam , 11 bytes

l1b93&(5#7%

Experimente online!

Uma porta da minha resposta GolfScript . Custa 1 byte para ler a entrada explicitamente, mas economizamos dois ao somar os pontos de código.

Casca , 10 bytes

%7^5←n93ṁc

Experimente online!

Outra porta da minha resposta GolfScript . Tenho certeza de que, eventualmente, encontrarei um idioma que pode somar os pontos de código para um único byte ...

Husk (atualização pós-desafio), 9 bytes

%7^5←n93Σ

Experimente online!

Agora, Σ faz pontos de código soma diretamente. Como isso foi adicionado a uma solicitação depois que eu respondi a esse desafio, não vou usá-lo como minha pontuação principal.

Pitão , 13 bytes

x"enklact"@w3

Verifique todos os casos de teste.

Alternativo:

x."atÖÅû"@w3

3 pode ser substituído por qualquer um dos seguintes valores: [3, 4, 11, 13, 21, 24, 25, 26]

Pyke , 12 bytes

3@"enklact"@

Experimente aqui!

Próton , 23 bytes

s=>'enklact'.find(s[3])

Experimente online!

: P

Perl 5 , 43 + 1 ( -p) = 44 bytes

for$i(S,O,TUR,I,TUN,B,M){$"++;$_=$"if/^$i/}

Experimente online!

Requer que os três primeiros caracteres da entrada estejam em maiúsculas.

Java 8, 26 bytes

Crédito para @icrieverytim

Recebe entrada como um caractere []

s->"enklact".indexOf(s[3])

Haskell , 36 bytes

-9 bytes graças a H.PWiz.

f s=length$fst$span(/=s!!3)"enklact"

Experimente online!

Solução alternativa, 45 bytes

Isso usa a indexOffunção em Data.Listcomo elemIndex.

import Data.List
(`elemIndex`"enklact").(!!3)

Experimente online!

C ++, 119 118 77 76 73 bytes

-41 bytes graças a Peter Cordes
-1 byte graças a Zacharý
-3 bytes graças a Michael Boger

No índice 3 da string, o caractere para cada sanduíche é diferente

#include<string>
int s(char*p){return std::string("enklact").find(p[3]);}

std::initializer_list<char*> t{
    "Sweet Onion Chicken Teriyaki",
    "Oven Roasted Chicken",
    "Turkey Breast",
    "Italian BMT",
    "Tuna",
    "Black Forest Ham",
    "Meatball Marinara"
};

for (auto& a : t) {
    std::cout << s(a);
}

Jogando golfe std::string, isso era óbvio ... o que eu estava pensando ...

C # (.NET Core) , 289 bytes

using System;class c{delegate int s(string r);static void Main(){s y=x=>{if(x[0]==83)return 1;if(x[0]==79)return 2;if (x[0]==84&x[2]=='r')return 3;if(x[0]==73)return 4;if(x[0]==84)return 5;if(x[0] ==66)return 6;if(x[0]==77)return 7;return 0;};Console.Write(y.Invoke(Console.ReadLine()));}}

Executar online

Golfscript, 13 bytes

Experimente online!

'enklact'\3=?

Pega o quarto caractere (que, para cada um, será único) e o procura na string " enklact".

Alternativamente:

'nklact'\3=?)

Isso tira proveito do fato de que a ?função Golfscript retorna -1 se o elemento pesquisado não for encontrado (o que, na segunda-feira, não será). Se isso fosse permitido, a solução poderia ser reduzida em 1 byte.

Dyalog APL, 13 bytes

'enklact'⍳4⌷⍞

Experimente online!

K (oK) , 13 bytes

Solução:

"enklact"?*3_

Experimente online!

Exemplos:

> "enklact"?*3_"Black Forest Ham"
5
> "enklact"?*3_"Turkey Breast"
2

Explicação:

Interpretado da direita para a esquerda, retire o quarto elemento da entrada e retorne o local do índice zero na lista "enklact":

"enklact"?*3_  / the solution
           3_  / 3 drop, 3_"Turkey Breast" => "key Breast" 
          *    / first, *"key Breast" => "k"
         ?     / lookup right in left
"enklact"      / list to lookup element in