บทนำ:

เนื่องจากมันเกือบจะเป็นฮัลโลวีนฉันแค่คิดถึงความท้าทายในธีมฮัลโลวีนแบบสุ่ม ในที่สุดฉันก็อ่านหน้าวิกิพีเดียของ Frankensteinและพบกับข้อความต่อไปนี้:

สิ่งมีชีวิต

ส่วนหนึ่งของการปฏิเสธการสร้างของแฟรงเกนสไตน์คือข้อเท็จจริงที่ว่าเขาไม่ได้ตั้งชื่อซึ่งทำให้เกิดการขาดเอกลักษณ์ แต่จะอ้างอิงโดยคำเช่น "wretch", "monster", "creature", "ปีศาจ", "ปีศาจ", "ปีศาจ" และ "มัน" เมื่อแฟรงเกนสไตน์คุยกับสิ่งมีชีวิตในบทที่ 10 เขากล่าวว่ามันเป็น "แมลงร้าย", "ปีศาจที่น่าชิงชัง", "ปีศาจ", "ปีศาจอนาถ" และ "ปีศาจที่น่ารังเกียจ"

^{แหล่ง}

ท้าทาย:

รับสองจำนวนเต็ม (ปีและบท) ส่งออกสตริงตามกฎต่อไปนี้:

1. ถ้าปีน้อยกว่า 1818: เอาท์พุทสตริงว่างเปล่า†
2. ถ้าปีนั้นเท่ากับ 1818 และบทนั้นต่ำกว่า 10: เอาท์พุทสตริงแบบสุ่มจากรายการ["wretch", "monster", "creature", "demon", "devil", "fiend", "it"]
3. ถ้าปีนั้นเท่ากับ 1818 และบทคือ 10 หรือสูงกว่า: เอาท์พุทสตริงสุ่มจากรายการ["vile insect", "abhorred monster", "fiend", "wretched devil", "abhorred devil"]
4. ดังกล่าวข้างต้นเป็นปี 1818 (และหนังสือถูกตีพิมพ์) "Frankenstein's Monster"ผลตอบแทน

กฏท้าทาย:

• คุณสามารถเลือกว่าจะส่งออกเป็นตัวพิมพ์เล็กตัวพิมพ์ใหญ่หรือชุดค่าผสม
• ปีจะอยู่ในช่วง 1500-2017
• บทจะอยู่ในช่วงเสมอ1-24(ถ้าฉันไปอย่างถูกต้องหนังสือเล่มนี้มี 24 บท)
• †แทนการแสดงผลสตริงที่ว่างเปล่าสำหรับตัวเลือกที่ 1 คุณยังได้รับอนุญาตให้ส่งออกnull, undefined, false, 0หรือค่าอื่น ๆ ของทางเลือกของคุณไม่เป็นส่วนหนึ่งของอีกสามตัวเลือก (โปรดระบุสิ่งที่คุณเคยใช้ในคำตอบของคุณ)
• ผลลัพธ์อาจไม่มีช่องว่าง / แท็บนำหน้าหรือต่อท้ายหรือบรรทัดใหม่ที่นำหน้า อาจมีบรรทัดใหม่ที่เป็นทางเลือกหนึ่งบรรทัด

กฎทั่วไป:

• นี่คือcode-golfดังนั้นคำตอบที่สั้นที่สุดในหน่วยไบต์ชนะ
  อย่าปล่อยให้ภาษารหัสกอล์ฟกีดกันคุณจากการโพสต์คำตอบด้วยภาษาที่ไม่ได้เข้ารหัส พยายามหาคำตอบสั้น ๆ ที่เป็นไปได้สำหรับภาษาโปรแกรม 'ใด ๆ '
• กฎมาตรฐานจะใช้สำหรับคำตอบของคุณดังนั้นคุณจึงได้รับอนุญาตให้ใช้ STDIN / STDOUT ฟังก์ชัน / เมธอดพร้อมพารามิเตอร์ที่เหมาะสมโปรแกรมเต็มรูปแบบ การโทรของคุณ
• ช่องโหว่เริ่มต้นเป็นสิ่งต้องห้าม (โดยเฉพาะ'หมายเลขสุ่มปลอม' )
• หากเป็นไปได้โปรดเพิ่มลิงค์พร้อมทดสอบรหัสของคุณ
• นอกจากนี้โปรดเพิ่มคำอธิบายหากจำเป็น

กรณีทดสอบ:

year,chapter possible outputs:

1700,1       ""; null; undefined; false; 0; etc.
1700,12      ""; null; undefined; false; 0; etc.
1817,10      ""; null; undefined; false; 0; etc.
1818,1       "wretch"; "monster"; "creature"; "demon"; "devil"; "fiend"; "it"
1818,9       "wretch"; "monster"; "creature"; "demon"; "devil"; "fiend"; "it"
1818,10      "vile insect"; "abhorred monster"; "fiend"; "wretched devil"; "abhorred devil"
1818,11      "vile insect"; "abhorred monster"; "fiend"; "wretched devil"; "abhorred devil"
1818,18      "vile insect"; "abhorred monster"; "fiend"; "wretched devil"; "abhorred devil"
1819,1       "Frankenstein's Monster"; "frankenstein's monster"; "FRANKENSTEIN'S MONSTER"
1819,18      "Frankenstein's Monster"; "frankenstein's monster"; "FRANKENSTEIN'S MONSTER"
2017,24      "Frankenstein's Monster"; "frankenstein's monster"; "FRANKENSTEIN'S MONSTER"

Perl 5, 156 153 151 bytes

-3 ไบต์ด้วย DomHastings

ทำงานด้วย -p

$_=($d=devil,$m=monster,$w=wretch,<"{creature,demon,it,fiend,vile insect,{abhorr,$w}ed {$d,$d,$m},Frankenstein's $m}">)[/818/?6*/,../+rand 7:$_/606-5]

กระจายผลลัพธ์นี้จะไม่เหมือนกันซึ่งเป็นที่ยอมรับโดยปริยาย โดยเฉพาะถ้าวันที่ 1818 และบทคือ≥10ชื่อ "ปีศาจเกลียดชัง" และ "สัตว์ประหลาดน่ารังเกียจ" มีน้ำหนักสองเท่า ทำให้ฉันใช้rand 7ทั้งสองกรณีแม้ว่ารายการจะมีขนาดต่างกัน

ผลผลิตสำหรับปีก่อนปี 1818 คือ“ สัตว์ประหลาดอนาถ” แม้จะมีความคล้ายคลึงกันบางอย่างสตริงนี้ไม่ได้เป็นส่วนหนึ่งของสามตัวเลือกอื่น ๆ ทำให้มันใช้ได้

สิ่งนี้ล้มเหลวเป็นเวลาหลายปีนอกช่วง 1212–2424 แต่โชคดีที่ปีนั้นได้รับการประกันโดยกฎที่จะอยู่ในช่วง 1500–2017

ลองออนไลน์!

Python 2 , 227 220 214 ไบต์

lambda y,c:[[choice([["wretch",m,"creature","demon",d,F,"it"],["vile insect",a+m,F,"wretched "+d,a+d]][c>9]),"Frankenstein's "+m][y>1818],0][y<1818]
from random import*
m,d,F,a='monster','devil','fiend',"abhorred "

ลองออนไลน์!

Perl 5 , 172 ไบต์

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

@a=<><10?($}=wretch,$M=monster,creature,demon,$D=devil,fiend,it):("vile insect",($A="abhorred ").$M,fiend,"$}ed $D",$A.$D);$_=($a[rand@a],"frankenstein's $M",0)[$_<=>1818]

ลองออนไลน์!

คำอธิบาย

พริตตี้มาตรฐานเพียงสิ่ง unsual เล็กน้อยคือการใช้ 'ผู้ประกอบการยานอวกาศ' ( <=>) กับ1818การกลับมา-1, 0หรือ1ถ้าใส่$_น้อยกว่าเท่ากับหรือมากกว่า1818ที่จะกลับมาสุดท้ายเป็นครั้งแรกหรือดัชนีที่สองของแหล่งข้อมูล . นอกจากนี้ฉันชอบผู้ให้บริการปลา !

C # (คอมไพเลอร์ Visual C #) , 225 209 ไบต์

y=>c=>y<1818?"":y>1818?"frankenstein's monster":"wretch,monster,creature,demon,devil,it,fiend,vile insect,abhorred monster,wretched devil,abhorred devil".Split(',')[new System.Random().Next(c>9?6:0,c>9?11:7)];

ลองออนไลน์!

-16 ขอบคุณ Kevin Cruijssen

ไม่กระชับโดยเฉพาะอย่างยิ่ง แต่ฉันคาดหวังว่า C # จะใช้พื้นที่มากขึ้นในการประกาศและใช้สตริงซ้ำ ๆ ในแบบที่ Python ตอบกลับทำได้มากกว่าเพียงแค่ทำซ้ำ ตัวทดสอบการทดสอบที่รวมอยู่มีThread.Sleep(1)การระบุภายในของกรณีทดสอบเนื่องจากการเริ่มต้นเริ่มต้นสำหรับการRandom()ใช้เวลาปัจจุบันและฟังก์ชั่นที่เกิดขึ้นจริงจะทำงานได้เร็วพอที่จะจบลงด้วยเมล็ดเดียวกันในการทดสอบครั้งต่อไปโดยไม่ล่าช้า

การเรียกใช้ func ใช้ currying syntax f(year)(chapter)(หรือชื่อใด ๆ ที่ฟังก์ชันถูกเก็บไว้แทน f)

Bash, 229 , 206 , 197 , 179 bytes

m=monster
a=("Frankenstein's $m" wretch $m creature demon devil it fiend vile\ insect {abhorr,wretch}ed\ {devil,$m})
echo "${a[$1>1818?0:$1<1818?13:RANDOM%($2>9?5:7)+($2>9?7:1)]}"

คำอธิบายเกี่ยวกับการขยายรั้ง / ตัวแปร

m=monster
{abhorr,wretch}ed\ {devil,$m}

ถูกขยายเป็นครั้งแรก

abhorred\ {$m,devil} wretched\ {devil,$m}
abhorred\ $m abhorred\ devil wretched\ devil wretched\ $m

ตัวแปร m จึงถูกขยาย

abhorred\ monster abhorred\ devil wretched\ devil wretched\ monster

อย่างไรก็ตามการติดตามต่อไปนี้ใช้ไม่ได้เพราะ$wจะรวมเป็นครั้งแรกedและwedไม่ได้กำหนดและจะขยายเป็นสตริงว่าง

m=monster
w=wretch
{abhorr,$w}ed\ {devil,$m}

มันสามารถทำได้เพิ่มการจัดฟันอย่างชัดเจน arround w แต่จะนานกว่า

m=monster
w=wretch
{abhorr,${w}}ed\ {devil,$m}

TIO

APL (Dyalog Unicode) , 189 ไบต์

m←'monster'
a←'abhorred ',⊢
f←'fiend'
d←'devil'
{⊃⍵=1818:{⊃⌽⍵<10:(?7)⊃'wretch'm'creature' 'demon'd f'it'⋄(?5)⊃'vile insect'(a m)f('wretched ',⊢d)(a d)}⍵⋄{⊃⍵>1818:'frankenstein''s ',⊢m⋄''}⍵}

ลองออนไลน์!

หากต้องการทดสอบเพียงเพิ่มกรณีทดสอบต่อท้ายวงเล็บปีกกาสุดท้ายเช่น:

{⊃⍵=1818:{⊃⌽⍵<10:(?7)⊃'wretch'm'creature' 'demon'd f'it'⋄(?5)⊃'vile insect'(a m)f('wretched ',⊢d)(a d)}⍵⋄{⊃⍵>1818:'frankenstein''s ',⊢m⋄''}⍵}1818 10

ต้องขอบคุณ @ngn เป็นอย่างมากที่ช่วยแก้ไขปัญหาช่องว่างนำ

มันทำงานอย่างไร:

เป็นที่น่าสังเกตว่า APL ตีความสตริงเป็นอาร์เรย์ ( เวกเตอร์ ) ของตัวอักษรดังนั้น'wretch' 'creature'จะตีความในภาษาอื่น ๆ ดังนี้[[w,r,e,t,c,h],[c,r,e,a,t,u,r,e]]

เหล่านี้เป็นฟังก์ชั่นตัวช่วย:

m←'monster'      #These are pretty self explanatory, variables m, f and d are being set to 'monster', 'fiend' and 'devil respectively.
f←'fiend'
d←'devil'
a←'abhorred ',⊢  # a is being set to 'abhorred ' concatenated with the argument to it's right.

นี่คือหน้าที่หลักซึ่งจะถูกแบ่งออกเป็น 3 ส่วนเพื่อความเข้าใจที่ดีขึ้น:

{⊃⍵=1818:{⊃⌽⍵<10:(?7)⊃'wretch'm'creature' 'demon'd f'it'⋄(?5)⊃'vile insect'(a m)f('wretched ',⊢d)(a d)}⍵⋄{⊃⍵>1818:'frankenstein''s ',⊢m⋄''}⍵}

ส่วนที่ 1:

{⊃⍵=1818:{Part2}⍵⋄{Part3}⍵} # First conditional
        :                   # If
 ⊃                          # the first element
  ⍵                         # of the argument ⍵
   =1818                    # Equals the literal 1818
         {Part2}⍵           # Executes part 2 with argument ⍵
                 ⋄          # Else
                  {Part3}⍵  # Executes part 3 with argument ⍵

ส่วนที่ 2:

{⊃⌽⍵<10:(?7)⊃'wretch'm'creature' 'demon'd f'it'⋄ # Second conditional
(?5)⊃'vile insect'(a m)f('wretched ',⊢d)(a d)}⍵                
       :                                         # If
 ⊃                                               # the first element
  ⌽                                              # of the inverse
   ⍵                                             # of the argument ⍵
    <10                                          # is less than 10
           ⊃                                     # pick the nth
       (?7)                                      # random element between [1,7]
            'wretch'm'creature' 'demon'd f'it'   # from this string array
                                              ⋄  # Else
    ⊃                                            # pick the nth
(?5)                                             # random element between [1,5]
     'vile insect'(a m)f('wretched ',⊢d)(a d)    # from this string array
                                             }⍵  # using argument ⍵

ส่วนที่ 3:

{⊃⍵>1818:'frankenstein''s ',⊢m⋄''}⍵ # Third conditional
        :                           # If
 ⊃                                  # the first element
  ⍵                                 # of the argument ⍵
   >1818                            # is greater than 1818
         'frankenstein''s ',⊢m      # print the string "frankenstein's" concatenated with m (which prints monster)
                              ⋄     # else
                               ''   # print an empty string
                                 }⍵ # with argument ⍵

Java (OpenJDK 8) , 275 269 255 207 203 ไบต์

y->c->y<1818?0:y>1818?"Frankenstein's monster":"wretch;monster;creature;demon;devil;it;fiend;vile insect;abhorred monster;wretched devil;abhorred devil".split(";")[c+=Math.random()*(c>9?5:7)+(c>9?6:0)-c]

ลองออนไลน์!

PHP, 184 176 ไบต์

<?=strtr([0,1,2,Creature,Demon,It,Fiend,30,31,"2ed 1","Vile Insect","Frankenstein´s 0"][[rand(6*$x=$argv[2]>9,6+4*$x),11][$argv[1]<=>1818]],[Monster,Devil,Wretch,"Abhorred "]);

ทำงานด้วย-nและให้ปีและบทเป็นอาร์กิวเมนต์บรรทัดคำสั่งหรือลองออนไลน์

ดัชนีและประเมินผลลัพธ์NULLเป็นปี <1818 ซึ่งนำไปสู่ผลลัพธ์ที่ว่างเปล่า

Javascript (ES6), 205 ไบต์

a="abhorred ",d="devil",f="fiend",m="monster"
y=>c=>y<1818?0:y>1818?"frankenstein's "+m:(l=c<10?[f,"wretch",m,"creature","demon",d,f,"it"]:["vile insect",a+m,f,"wretched "+d,a+d])[0|Math.random()*l.length]

ส่งคืน0ถ้าปีมีค่าน้อยกว่า 1818

a="abhorred ",d="devil",f="fiend",m="monster"
n=y=>c=>y<1818?0:y>1818?"frankenstein's "+m:(l=c<10?[f,"wretch",m,"creature","demon",d,f,"it"]:["vile insect",a+m,f,"wretched "+d,a+d])[0|Math.random()*l.length]

<div oninput="o.innerText=n(y.value)(c.value)"><input id=y type=number value=1817 /><input id=c type=number value=10 /></div><p id=o>0

Javascript 199 ไบต์

M="monster"
A=(y,c)=>y<1818?"":y^1818?"Frankenstein's "+M:[W="wretch",M,"creature","demon",D="devil",F="fiend","it","vile insect",(H="abhorred ")+M,F,W+"ed "+F,H+D][Math.random()*(c>9?5:7)+7*(c>9)|0]

console.log(A(1700,1))
console.log(A(1700,12))
console.log(A(1817,10))
console.log(A(1818,1))
console.log(A(1818,9))
console.log(A(1818,10))
console.log(A(1818,11))
console.log(A(1819,1))
console.log(A(1819,18))
console.log(A(2017,24))

C, 380 BYTES

void ok(int *year, int* chapter){char*below_10[] = {"wretch", "monster", "creature", "demon", "devil", "fiend", "it"}; char*at_10[] = {"vile insect", "abhorred monster", "fiend", "wretched devil", "abhorred devil"}; year < 1818?printf("0"):(year == 1818?(chapter<10 printf("%s",below_10[rand()%8]):printf("%s",at_10[rand()%7])):printf("Frankenstein's Monster"));}

MBASICขนาด 288 ไบต์

1 DIM R$(12):FOR I=1 TO 12:READ R$(I):NEXT:INPUT Y,C:IF Y<1818 THEN 5
2 IF Y>1818 THEN O$="Frankenstein's Monster":GOTO 5
3 IF C>9 THEN O=7
4 O$=R$(O+INT(RND(1)*N+1))
5 PRINT O$:DATA wretch,monster,creature,demon,devil,fiend,it,vile insect,abhorred monster,fiend,wretched devil,abhorred devil

05AB1E , 114 110 ไบต์

0…뢼–±¹.•ʒ¦Ë"ìËM₂G¶тá≠•ì#.•1ÏiT¥Ƶʒ“T¡Äg… 5ÀΘO¼™Ãí?ιË%4₄‡‡λYιi¾н••Jtm•17в£‚…'s 'ì³R7£R’¡¬ÿÿ±¹’¸¸)sŽ7X.S>èsT@èΩ

ขาออกเมื่อปีที่อยู่ด้านล่าง01818

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

คำอธิบาย:

0                    # Push a 0
…뢼–±¹              # Push dictionary string "creature devil monster"
 .•ʒ¦Ë"ìËM₂G¶тá≠•   "# Push compressed string "demon fiend it wretch "
  ì                  # Prepend it: "demon fiend it wretch creature devil monster"
   #                 # Split by spaces: ["demon","fiend","it","wretch","creature","devil","monster"]
.•1ÏiT¥Ƶʒ“T¡Äg… 5ÀΘO¼™Ãí?ιË%4₄‡‡λYιi¾н•
                     # Push compressed string "abhorred devilabhorred monsterfiendvile insectwretched devil"
 •Jtm•               # Push compressed integer 1249548
      17в            # Converted to Base-17 as list: [14,16,5,11,14]
         £           # Split the string into parts of that size: ["abhorred devil","abhorred monster","fiend","vile insect","wretched devil"]
‚                    # Pair both string-lists together
…'s                 '# Push string "'s "
   'ì³              '# Push dictionary string "liechtenstein"
      R7£R           # Leave the last 7 characters: "enstein"
          ’¡¬ÿÿ±¹’   # Push dictionary string "frankÿÿmonster", where the "ÿ" are automatically
                     # replaced with the strings at the top of the stack: "frankenstein's monster"
                  ¸¸ # Wrap it twice into a list: [["frankenstein's monster"]]
)                    # Wrap everything on the stack into a list
                     # (We now have: [0,[["demon","fiend","it","wretch","creature","devil","monster"],["abhorred devil","abhorred monster","fiend","vile insect","wretched devil"]],[["frankenstein's monster"]]])
 s                   # Swap to get the first (implicit) input
  Ž7X                # Push compressed integer 1818
     .S              # Compare it with the input (-1 if below; 0 if equal; 1 if above)
       >             # Increase it by 1 (0 if below; 1 if equal; 2 if above)
        è            # Use it to index into the list
         s           # Swap to get the second (implicit) input
          T@         # Check if it's larger than or equal to 10 (results in 0 for falsey; 1 for truthy)
            è        # Use it to index into the inner list
             Ω       # And finally get a random value from that list (which is output implicitly)

ดู 05AB1E เคล็ดลับของฉันนี้ (ส่วนวิธีใช้พจนานุกรม? ; วิธีการบีบอัดสตริงที่ไม่ได้เป็นส่วนหนึ่งของพจนานุกรมอย่างไร ; วิธีการบีบอัดจำนวนเต็มขนาดใหญ่?และวิธีการบีบอัดรายการจำนวนเต็ม? )เพื่อทำความเข้าใจว่าทำไม:

• …뢼–±¹คือ"creature devil monster";
• .•ʒ¦Ë"ìËM₂G¶тá≠• คือ "demon fiend it wretch ";
• .•1ÏiT¥Ƶʒ“T¡Äg… 5ÀΘO¼™Ãí?ιË%4₄‡‡λYιi¾н• คือ "abhorred devilabhorred monsterfiendvile insectwretched devil";
• •Jtm•เป็น1249548และ•Jtm•17вเป็น[14,16,5,11,14];
• 'ì³ คือ "liechtenstein ";
• ’¡¬ÿÿ±¹’ คือ "frankÿÿmonster";
• Ž7X1818เป็น

JavaScript, 194 B

e=Math.random,f=Math.floor;x=(a,b,c=`insect,monster,wretch,creature,demon,devil,fiend,it`.split`,`,d=[`vile `,`abhorred `])=>a<1818||a-1818?`Frankenstein's `+c[1]:(b<10||c[f(e()*2)])+c[f(e()*8)]