รับหนึ่งในอินพุตต่อไปนี้:

ไก่หัวหอมหวานเทอริยากิ
ไก่อบเตาอบ
อกไก่งวง
BMT อิตาลี
ทูน่า
แฮมฟอเรสต์
ลูกชิ้น Marinara

Python 2 , 38 30 28 ไบต์

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

ลองออนไลน์!

น่าเสียดายที่ยังมีอีกหนึ่งไบต์ที่ยาวกว่าคำตอบที่ดีที่สุดของ Python 2 แม้ว่าจะไม่ได้ใช้enklact-approach

ตอนนี้หนึ่งไบต์สั้นกว่าฉันตอบทุกๆ ชั่วโมง

มันทำงานยังไง?

หลังจากแรงเดรัจฉานฉันพบนิพจน์ที่ส่งผลให้ตัวเลขมีเพียงตัวเลขที่ถูกต้อง
ฉันสังเกตเห็นว่าการดูเพียงหนึ่งหลักที่เฉพาะเจาะจงของความยาวของสตริงที่กำหนดต้องมี 3 ไบต์ ( %10) ดังนั้นฉันจึงเขียนโปรแกรม Python อื่น ( ลิงค์ Pastebin ) เพื่อค้นหาตัวเลขที่จับคู่ความยาวของสตริงอินพุตเข้ากับวันของสัปดาห์

เลขอาถรรพ์นี้: 6793**164 = 28714733692312345620167113260575862840674216760386883406587492336415023761043044176257567032312859371641211117824224067391750766520256112063756278010050204239810862527958109285342869876264808102743173594017101607983288521836082497514383184553444755034407847810524083812459571382103831904835921560285915349760536969265992879312869538914200854305957428078269094250817029486005437991820466986793657301214564264748923199288698278615871481529585816783654841131577178922192383679718074693535597651237893794976519274268917335387876260270630339777501802739852278932279775510324916969726203688466311848240746465178859847331248655567344801(ตัวเลขที่มีทศนิยม 629 หลักที่น่าประทับใจ)

และอย่างที่คุณเห็นหมายเลขนี้ให้การจับคู่ที่จำเป็นจาก [28, 20, 13, 11, 4, 16, 17] ถึง [0, 1, 2, 3, 4, 5, 6] (สตริง Python คือ 0- จัดทำดัชนี):

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

โปรแกรมของฉันยังพบการแสดงออกอื่น ๆ ที่ให้ผลผลิตตัวเลขที่มีคุณสมบัติที่จำเป็นแม้ว่าพวกเขาจะใช้เวลามากกว่าที่จะเป็นตัวแทนไบต์ (29 แทน 28): 19439**540, 34052**726, 39311**604, 44873**182, และ67930**164 78579**469(สิ่งเหล่านี้คือนิพจน์ทั้งหมดที่พบโดยโปรแกรมที่เชื่อมโยงการดำเนินการใช้เวลาหลายชั่วโมง)

ฟังก์ชันทางเลือกที่ต้องการ 28 ไบต์: lambda S:`7954<<850`[len(S)]
ฟังก์ชันทางเลือกที่ต้องใช้ 29 ไบต์: lambda S:`9699<<2291`[len(S)]
ฟังก์ชันทางเลือกที่ต้องใช้ 30 ไบต์: lambda S:`853<<4390`[len(S)+9]
ฟังก์ชันทางเลือกที่ต้องใช้ 31 ไบต์:lambda S:`1052<<3330`[len(S)+8]

มันทำงานยังไง? ฉันจะสร้างหมายเลขนั้นได้อย่างไร (30 ไบต์ตอบ)

คำตอบที่ 30 lambda S:`3879**41`[len(S)%10]ไบต์เป็น

มองไปที่ความยาวสายป้อนที่ผมสังเกตเห็นว่าทุกตัวเลขสุดท้ายในฐานสิบแตกต่างกันส่งผลให้ในรายการ[28, 20, 13, 11, 4, 16, 17] ดังนั้นผมจึงต้องการเพียงการทำแผนที่จากรายการที่ไปยังรายการของทั้งเจ็ดวันของสัปดาห์ที่ [8, 0, 3, 1, 4, 6, 7][0, 1, 2, 3, 4, 5, 6]

วิธีแรกของฉันใช้สตริงเพื่อทำการแมปlambda S:"13*24*560"[len(S)%10]แม้ว่าสตริงนั้นต้องใช้สิบเอ็ดไบต์ ( "13*24*560")
ดังนั้นฉันจึงเขียนโปรแกรม Python ( ลิงก์ Pastebin ) เพื่อทดสอบนิพจน์ทางคณิตศาสตร์ซึ่งส่งผลให้จำนวนเต็มกับตัวเลขที่ตรงกันโดยหวังว่าจะได้โปรแกรมเพิ่มเติม สิ่งที่ฉันเกิดขึ้นในตอนนี้คือ`3879**41`(เพียงสิบไบต์เท่านั้นที่โปรแกรมของฉันค้นหาได้เท่านั้น)

แน่นอนว่ามีการแสดงออกที่เป็นไปได้มากมายที่คุณสามารถลองได้ ฉันเพิ่งโชคดีที่มีหนึ่งในรูปแบบที่a**bมีผลเล็ก ๆ ที่เหมาะสมกับความต้องการของฉัน

สำหรับทุกคนที่อยากรู้อยากเห็น3879**41 = 1372495608710279938309112732193682350992788476725725221643007306215781514348937145528919415861895033279220952836384201346579163035594383625990271079 = 1.372... * 10**147.

อีกฟังก์ชั่นที่ถูกต้องฉันพบในขณะที่ค้นหานิพจน์ทางเลือกที่น่าเสียดายต้อง 32 ไบต์: lambda S:`7**416`[len(S)%10+290]

Python 2 , 29 ไบต์

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

ลองออนไลน์!

คำอธิบาย

enklactค้นพบสตริงมายากลโดยค้นหาคอลัมน์แรกด้วยตัวอักษรที่ไม่ซ้ำกัน

คอลัมน์แรกไปSOTITBMซึ่งไม่มีประโยชน์เพราะมีคอลัมน์ที่ซ้ำกัน คนที่สองและสามก็ไม่ได้ผลเพราะพวกเขาwvutuleและeeranaaตามลำดับ อย่างไรก็ตามคอลัมน์ที่สี่ทำงานได้เหมือนมีตัวอักษรที่ไม่ซ้ำกันทั้งหมด

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 ไบต์

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

ลองออนไลน์!

ด้วยหนี้ขอบคุณ (สำหรับรหัสที่สองของฉันตรงลองกอล์ฟ) เพื่อตอบโจนาธาน Frech - ฉันไม่คิดว่าจะใช้ความยาวสายอักขระแทนตัวอักษรเด่น

รหัสนี้มาจากประสบการณ์ของฉันกับลำดับ De Bruijnและการเขียนโปรแกรมสำหรับหมากรุก

ในหมากรุกคุณมักจะทำงานกับจำนวนเต็ม 64- บิตจำนวนมากซึ่งแต่ละบิตระบุว่ามีอะไรจริงหรือเท็จเกี่ยวกับสี่เหลี่ยมที่สอดคล้องกันบนกระดานหมากรุกเช่น "มีชิ้นส่วนสีขาวที่นี่" หรือ "ตารางนี้มีเบี้ย"

ดังนั้นจึงเป็นประโยชน์ที่จะสามารถแปลง2**nเป็นnอย่างรวดเร็วและราคาถูกได้อย่างรวดเร็ว ใน C และ C ++ วิธีที่เร็วที่สุดในการทำเช่นนี้คือการคูณด้วยลำดับ 64- บิต De Bruijn - เทียบเท่ากับการเลื่อนทีละnบิต - จากนั้นเลื่อนไปทางขวา 58 (ใส่หกบิตแรกก่อน - ให้แน่ใจว่าคุณ กำลังใช้ int ที่ไม่ได้ลงชื่อหรือคุณจะได้ครึ่งเวลา 1 วินาที) และค้นหาหมายเลข 0..63 นี้ในตารางที่ให้ข้อมูลที่เกี่ยวข้องnซึ่งอยู่ในช่วงเดียวกัน แต่ไม่ค่อยเหมือนกัน

มันเกี่ยวข้องกัน อย่างไรก็ตามแทนที่จะเปลี่ยนจากเป็น2**nเป็นnเราต้องการเปลี่ยนจากnเป็นตัวเลข 3 บิตอื่น ๆ ดังนั้นเราจึงซ่อนตัวเลข 3 บิตของเราในจำนวนมายากล 31 บิต (การเปลี่ยน 28 บิตต้องใช้บิต 28-30 โดยมีหมายเลขเริ่มต้นที่ 0)

ฉันสร้างจำนวนที่ต้องการโดยเพียงแค่ดูว่าค่าใดที่ต้องลดลง (ลองทั้ง 0..6 และ 1..7 เป็นชุดเอาต์พุต) โชคดีที่ค่าที่ทับซ้อนกัน (14, 16 และ 17) เกิดขึ้นเมื่อทำงาน! และเนื่องจาก tri-bit แรกคือ000และถัดไปคือ001เราไม่ต้องการ 7 บิตซ้ายสุดทำให้มีจำนวนหลักน้อยกว่า -> ไบต์น้อยกว่า

จำนวนที่ต้องการคือ000xxxx001110101011xxxx100xxxxโดยที่ x สามารถเป็น 1 หรือ 0 และไม่มีผลต่อผลลัพธ์สำหรับหมวดย่อยเหล่านี้ - ฉันตั้งค่าเป็น 0 เพียงเพื่อย่อจำนวน แต่การเปลี่ยนแปลงใด ๆ ใน 8 xs สุดท้ายจะไม่ส่งผลกระทบ ความยาวของซอร์สโค้ด การตั้งค่า xs ทั้งหมดเป็น 0 และปล่อยให้เริ่มต้นให้ 1923,136 ในทศนิยม (หรือ 1D5840 ในฐานสิบหก แต่แล้วคุณต้องคำนำหน้า 0x - อัปยศ!) & 7 ที่ท้ายเพียงหน้ากาก 3 บิตสุดท้ายคุณยังสามารถ ใช้% 8 แต่คุณต้องใช้วงเล็บเนื่องจากกฎสำคัญของผู้ดำเนินการของงูใหญ่

tl; dr: 1923136 เข้ารหัสชุดค่าผสมสามบิตแต่ละชุดจาก 0 ถึง 6 ในตำแหน่งที่ถูกต้องที่ชื่อแซนวิชเหล่านี้เกิดขึ้นและจากนั้นก็เป็นเรื่องของการรับสามบิตสุดท้ายหลังจากการเปลี่ยนที่ถูกต้อง

เยลลี่ 10 ไบต์

^{ธุรกิจ enklact นี้คืออะไร}

⁽ṃXị“Ð$¥»i

ลิงก์ monadic ที่รับรายการอักขระและส่งคืนวันจันทร์ = 1 วันในสัปดาห์

ลองออนไลน์! หรือดูชุดทดสอบ

อย่างไร?

⁽ṃ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 ไบต์

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

ลองออนไลน์!

MATL , 16 15 ไบต์

O5OHlO7KI6vjYm)

ลองออนไลน์! หรือตรวจสอบกรณีทดสอบทั้งหมด

คำอธิบาย

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 ไบต์

23 รหัสไบต์ + 1 -pสำหรับ

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

-4 ไบต์ขอบคุณ@nwellnhof !

ลองออนไลน์!

ฉันคิดว่าฉันจะโพสต์ทางเลือกอื่นสองสามรายการ

Javascript ขนาด 38 ไบต์

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

คำอธิบาย: หินรูปแบบบิต?

Javascript 27 ไบต์

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

เยลลี่ 11 ไบต์

4ị“-ƭɼoṚ0»i

ลองออนไลน์!

คำอธิบาย:

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

Japt , 12 ไบต์

0-indexed รับอินพุตเป็นตัวพิมพ์เล็ก

`kÇXsm`bUg#

ทดสอบมัน

คำอธิบาย

อินพุตโดยนัยของสตริงตัวพิมพ์เล็ก U

`kÇXsm`

kotinsmสตริงบีบอัด

bUg#

รับดัชนีแรก ( b) ของตัวละครที่ดัชนี ( g) (26 #) Uใน (Yay, ดัชนีห่อ!)

เอาต์พุตโดยนัยของผลลัพธ์จำนวนเต็ม

ทางเลือก

เช่นเดียวกับข้างต้น (และคนอื่น ๆ !) เพียงแค่ใช้ตัวอักษรที่ดัชนี 3 แทนเพื่อให้สามารถป้อนตัวพิมพ์ใหญ่ - เล็กได้

`klact`bUg3

ทดสอบมัน

05AB1E , 11 ไบต์

บันทึก 1 ไบต์ขอบคุณ Erik the Outgolfer และ 1 ไบต์ขอบคุณ Magic Octopus Urn

.•ΛΓ2º•I3èk

ลองออนไลน์!

JavaScript (ES6), 25 ไบต์

0 การจัดทำดัชนี

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

ทดสอบมัน

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 ไบต์

{+}*93&(5?7%

ลองออนไลน์!

แผนที่ปัจจัยการผลิต (ผ่านผลรวมของจุดรหัสของพวกเขา) เพื่อที่จะ06

คำอธิบาย

พบกับเครื่องมือบังคับเดรัจฉานตัวอย่างสคริปต์ GolfScript ที่ฉันเขียนมานานแล้ว

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

นี่คือวิธีที่สิ่งนี้จะแปลงอินพุตแต่ละตัวเป็นผลลัพธ์ที่ต้องการ:

                                 {+}*   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 ไบต์

ใช้enklactวิธีการ:

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

Perl 6 , 22 ไบต์

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

ลองออนไลน์!

CJam , 11 ไบต์

l1b93&(5#7%

ลองออนไลน์!

พอร์ตของคำตอบ GolfScript ของฉัน มีค่าใช้จ่าย 1 ไบต์ในการอ่านอินพุตอย่างชัดเจน แต่เราบันทึกสองอันเมื่อรวมคะแนนรหัส

Huskขนาด 10 ไบต์

%7^5←n93ṁc

ลองออนไลน์!

ท่าเรืออีกคำตอบของฉัน GolfScript ฉันแน่ใจว่าในที่สุดฉันจะหาภาษาที่สามารถรวมคะแนนรหัสสำหรับไบต์เดียว ...

Husk (อัปเดตหลังการท้าทาย), 9 ไบต์

%7^5←n93Σ

ลองออนไลน์!

ตอนนี้Σ จะรวมคะแนนรหัสโดยตรง ตั้งแต่นี้ถูกเพิ่มเข้ามาต่อคำขอหลังจากที่ฉันตอบความท้าทายนี้ฉันจะไม่ใช้มันเป็นคะแนนหลักของฉัน

Pyth , 13 ไบต์

x"enklact"@w3

ตรวจสอบกรณีทดสอบทั้งหมด

ทางเลือก:

x."atÖÅû"@w3

3 สามารถทดแทนด้วยค่าใด ๆ ต่อไปนี้: [3, 4, 11, 13, 21, 24, 25, 26]

Pyke 12 ไบต์

3@"enklact"@

ลองที่นี่!

โปรตอน , 23 ไบต์

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

ลองออนไลน์!

: P

Perl 5 , 43 + 1 ( -p) = 44 ไบต์

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

ลองออนไลน์!

ต้องใช้อักขระสามตัวแรกของอินพุตเป็นตัวพิมพ์ใหญ่

Java 8, 26 ไบต์

เครดิตถึง @icrieverytim

รับอินพุตเป็นตัวอักษร []

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

Haskell , 36 ไบต์

-9 ไบต์ขอบคุณ H.PWiz

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

ลองออนไลน์!

โซลูชันสำรอง 45 ไบต์

นี้ใช้indexOfฟังก์ชั่นในการเป็นData.ListelemIndex

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

ลองออนไลน์!

C ++, 119 118 77 76 73 ไบต์

-41 ไบต์ขอบคุณ Peter Cordes
-1 ไบต์ขอบคุณZacharý
-3 ไบต์ขอบคุณ Michael Boger

ที่ดัชนีสตริง 3 อักขระสำหรับแซนด์วิชทุกชนิดแตกต่างกัน

#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);
}

การเล่นกอล์ฟกับstd::stringมันชัดเจนมาก ... ฉันกำลังคิดอะไรอยู่ ...

C # (. NET Core) 289 ไบต์

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()));}}

ทำงานออนไลน์

Golfscript ขนาด 13 ไบต์

ลองออนไลน์!

'enklact'\3=?

ใช้อักขระตัวที่ 4 (ซึ่งสำหรับแต่ละตัวจะไม่ซ้ำกัน) และค้นหาในสตริง " enklact"

อีกวิธีหนึ่งคือ:

'nklact'\3=?)

สิ่งนี้ใช้ประโยชน์จากความจริงที่ว่า?ฟังก์ชั่นของ Golfscript คืนค่า -1 หากไม่พบองค์ประกอบที่ค้นหา (ซึ่งสำหรับวันจันทร์จะไม่ทำงาน) หากสิ่งนี้ได้รับอนุญาตโซลูชันอาจลดลง 1 ไบต์

Dyalog APL ขนาด 13 ไบต์

'enklact'⍳4⌷⍞

ลองออนไลน์!

K (oK) , 13 ไบต์

วิธีการแก้:

"enklact"?*3_

ลองออนไลน์!

ตัวอย่าง:

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

คำอธิบาย:

ตีความจากขวาไปซ้ายดึงองค์ประกอบที่ 4 จากอินพุตและส่งคืนตำแหน่งศูนย์ดัชนีในรายการ "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