คำอธิบายการท้าทาย:

เขียนโปรแกรมที่ขอให้ผู้ใช้ป้อนข้อมูล ผู้ใช้จะใส่หรือGood Badคุณไม่จำเป็นต้องรองรับอินพุตอื่น ๆ หากผู้ใช้เข้าสู่Goodพิมพ์Badและในทางกลับกัน (เพื่อ stdout ฯลฯ )

หมายเหตุ:

1)คุณไม่สามารถใช้คำสองคำอื่น ๆ

2)โปรแกรมของคุณต้องถามและพิมพ์ครั้งเดียวเท่านั้น

3)คุณไม่จำเป็นต้องแสดงข้อความแจ้ง

4)ผลลัพธ์จะต้องปรากฏแยกออกจากอินพุตด้วยวิธีการใด ๆ

5)ฟังก์ชั่นไม่ได้รับอนุญาตให้รับค่าและส่งกลับผลลัพธ์; ผู้ใช้จะต้องโต้ตอบกับโปรแกรม

โชคดี!

Python 3 ,  32  31 ไบต์

exit('GBoaodd'['G'<input()::2])

ลองออนไลน์!

อย่างไร?

การทดสอบถ้าใส่เป็นโดยการเปรียบเทียบ'Good''G'<input()

ใช้ความจริงที่ว่าในหลามFalse==0และTrue==1ใช้ผลที่เป็นstartดัชนีของชิ้นของ'GBoaodd'ใช้ที่ไม่ได้กำหนดstopและstepของที่มี2'GBoaodd'[start:stop:step]

พิมพ์ไปที่ STDERR (บันทึกไบต์ด้วยการexitแทนที่print)

APL (Dyalog Unicode) , 13 ไบต์^SBCS

โปรแกรมเต็มรูปแบบที่แจ้งให้ป้อนจาก stdin และพิมพ์ไปยัง stdout

'GooBad'~¯1↓⍞

ลองออนไลน์!

⍞ พรอมต์สำหรับการป้อนข้อมูลจาก stdin; GoodหรือBad

¯1↓ วางอักขระตัวสุดท้าย ( d); GooหรือBa

'GooBad'~ Multiset ลบอักขระเหล่านั้นออกจากสิ่งเหล่านี้ BadหรือGood

เครื่องจักรทัวริง แต่แย่ลง 405 ไบต์

0 0 0 1 1 0 0
1 1 1 1 2 0 0
0 2 0 1 3 0 0
0 3 0 1 4 0 0
0 4 0 1 5 0 0
1 5 0 1 6 0 0
0 5 1 1 h 0 0
1 6 1 1 7 0 0
1 7 0 1 8 1 0
0 8 0 1 9 0 0
1 9 1 1 9 0 0
0 9 0 1 a 0 0
1 a 0 1 a 0 0
0 a 0 0 b 0 0
0 b 1 1 c 1 0
0 c 0 0 d 0 0
1 d 0 0 e 0 0
0 e 0 0 f 0 0
0 f 1 1 g 1 1
1 h 1 1 i 0 0
0 i 1 1 j 1 0
0 j 0 1 k 0 0
1 k 1 1 k 0 0
0 k 0 1 l 0 0
0 l 1 1 l 0 0
1 l 1 0 m 1 0
1 m 1 1 n 1 0
1 n 1 1 o 0 0
0 o 0 1 p 1 1

ลองออนไลน์!

อย่างนี้ใช้เวลาสักครู่

คำอธิบายที่ยังไม่เสร็จ :

0 0 0 1 1 0 0 Start going to the sixth bit
1 1 1 1 2 0 0
0 2 0 1 3 0 0
0 3 0 1 4 0 0
0 4 0 1 5 0 0 End going to the sixth bit
1 5 0 1 6 0 0 If the sixth bit is 1, then it is Good. Start transforming "G" to "B" and go to state 6
0 5 1 1 h 0 0 Else, it is Bad. Start transforming "B" to "G" and go to state h
1 6 1 1 7 0 0 Keep on transforming "G" to "B"
1 7 0 1 8 1 0 End transforming and print "B"
0 8 0 1 9 0 0 We are in the first "o" in "Good". Start moving into the 5th bit.
1 9 1 1 9 0 0
0 9 0 1 a 0 0
1 a 0 1 a 0 0 Do some looping magic and start transforming "o" to "a"
0 a 0 0 b 0 0 End looping magic
0 b 1 1 c 1 0 End transforming and print "a"
0 c 0 0 d 0 0 
1 d 0 0 e 0 0 Start transforming "a" to "d"
0 e 0 0 f 0 0 
0 f 1 1 g 1 1 Stop transforming, print "d", and terminate
1 h 1 1 i 0 0 Continue transforming "B" to "G"
0 i 1 1 j 1 0 Stop transforming and print out "G"
0 j 0 1 k 0 0 Start going into position to print out "oo"
1 k 1 1 k 0 0
0 k 0 1 l 0 0 Move more efficiently using LOOPING MAGIC1!1111111 
0 l 1 1 l 0 0 looping magic end, start transforming
1 l 1 0 m 1 0 end transforming and print out out "o"
1 m 1 1 n 1 0 print out "o" again
1 n 1 1 o 0 0 get into the "d" byte
0 o 0 1 p 1 1 print "d" and execute YOU HAVE BEEN TERMINATED

ทุบตี, 20 ไบต์

sed s/$1//<<<GoodBad

ลองออนไลน์!

ชุดประกอบ 8088, IBM PC DOS ขนาด 25 ไบต์

แต่อย่างใด:

BA 0110     MOV  DX, OFFSET GB  ; point DX to 'Good','Bad' string 
D1 EE       SHR  SI, 1          ; point SI to DOS PSP (80H) 
02 04       ADD  AL, [SI]       ; add input string length to AL, set parity flag 
7B 02       JNP  DISP           ; if odd parity, input was 'Bad' so jump to display 'Good'
02 D0       ADD  DL, AL         ; otherwise add string length as offset for 'Bad' string 
        DISP: 
B4 09       MOV  AH, 9          ; DOS display string function 
CD 21       INT  21H            ; call DOS API, write string to console 
C3          RET                 ; return to DOS 
        GB  DB  'Good$','Bad$'

คำอธิบาย:

ดูที่ความยาวของสตริงป้อนข้อมูล (บวกพื้นที่ว่างนำหน้า) ที่ DOS จัดเก็บตามที่อยู่หน่วยความจำ80Hและเพิ่มลงในAL(ตอนแรก0 โดย DOS ) หากมีจำนวน1บิตคี่ในการแสดงไบนารีของความยาวสตริงแฟล็กพาริตี CPU จะถูกตั้งค่าเป็นคี่และในทางกลับกัน ดังนั้น' Bad'ความยาวของสตริงอินพุต4( 0000 0100) คือคี่และเลขคี่' Good'คือ5( 0000 0101) คือพาริตี้แม้

DXเป็นชุดแรกที่จะชี้ไปที่สตริง'Good$Bad$'และถ้าความเท่าเทียมกันคือแม้ (input ความหมายคือ' Good') ความก้าวหน้าของตัวชี้สตริงโดยความยาวที่ ( 5) 'Bad$'เพื่อให้ได้ในขณะนี้จุดที่จะต้อง หากพาริตีคี่ไม่ทำอะไรเลยเพราะมันชี้ไป'Good$'แล้ว จากนั้นใช้ DOS API เพื่อแสดง$สตริงที่สิ้นสุดลงในคอนโซล

ตัวอย่าง:

ดาวน์โหลดและทดสอบGOODBAD.COMหรือสร้างจากการxxdถ่ายโอนข้อมูล:

0000000: ba10 01d1 ee02 047b 0202 d0b4 09cd 21c3  .......{......!.
0000010: 476f 6f64 2442 6164 24                   Good$Bad$

เยลลี่ 8 ไบต์

“Ċ³ṫ³»œṣ

ลองออนไลน์!

โปรแกรมเต็มรูปแบบคาดหวังว่าสตริงที่จัดรูปแบบของ Python เป็นอาร์กิวเมนต์

อย่างไร?

“Ċ³ṫ³»œṣ - Main Link: list of characters, S
“Ċ³ṫ³»   - compression of dictionary words "Good"+"Bad" = ['G','o','o','d','B','a','d']
      œṣ - split on sublists equal to S
         - implicit, smashing print

Python 3 38 37 34 33 ไบต์

exit("C">input()and"Good"or"Bad")

ลองออนไลน์!

exit() : ส่งคืนโค้ดออกเป็นเอาต์พุต

"C">input(): ตรวจสอบว่าอินพุตมีขนาดใหญ่กว่าสตริงCตามลำดับตัวอักษรหรือไม่

and"Good": ถ้าผลลัพธ์คือผลลัพธ์จะTrueส่งคืนด้วยGood

or"Bad" : มิฉะนั้นส่งคืนด้วย Bad

C, 39 38 ไบต์

main(){puts("Good\0Bad"+getchar()%6);}

ลองออนไลน์!

บันทึกหนึ่งไบต์ต้องขอบคุณ @tsh

brainfuck , 72 ไบต์

,>+++++>,>,>,>,[<<<<[-<->>---<]<.>>+.>>.>>>]<[<<<[-<+>>+++<]<.>>-..>.>>]

ลองออนไลน์!

คำอธิบาย:,> +++++>,>,>,>,

อ่านอย่างใดอย่างหนึ่ง: "G", 5, "o", "o", "d" หรือ "B", 5, "a", "d", 0

[<<<< [- <->> --- <] <. >> +. >>. >>>] หากอักขระตัวสุดท้ายไม่ใช่ศูนย์:

ย่อ 5 จากเซลล์แรกหนึ่งครั้งและจากเซลล์ที่สามสามครั้ง เพิ่มเซลล์ 3

เซลล์เอาต์พุต 1, 3, 5

<[<<< [- <+ >> +++ <] <>> -.. .. > >>]

มิฉะนั้นเพิ่ม 5 ในเซลล์แรกหนึ่งครั้งและสามเซลล์

เซลล์ลดลง 3

เซลล์เอาต์พุต 1, 3, 3, 4

Haskell, 36 34 ไบต์

interact g
g"Bad"="Good"
g _="Bad"

ลองออนไลน์!

แก้ไข: -2 ไบต์ขอบคุณ @cole

R , 42 37 35 32 ไบต์

-10 ขอบคุณ Giuseppe และ AkselA!

`if`(scan(,'')>'C','Bad','Good')

ลองออนไลน์!

sed , 21 16 13 ไบต์

ขอบคุณ @Cackquack สำหรับคำแนะนำ

/B/cGood
cBad

ลองออนไลน์! ลองออนไลน์! ลองออนไลน์!

TIL cจะลัดวงจรการแยกวิเคราะห์บรรทัดปัจจุบัน

JavaScript 31 ไบต์

ฉันชอบคำตอบของ Arnauld แต่ฉันต้องการยอมรับการป้อนข้อมูลของผู้ใช้และสามารถรันได้บน StackExchange ดังนี้:

alert(prompt()[3]?'Bad':'Good')

Befunge-93 , 20 18 bytes

"BadooGB"~-_#@,,<,

ลองออนไลน์!

-2 ไบต์ขอบคุณ Jo King

ทับทิมขนาด 22 ไบต์

->n{n>?F?"Bad":"Good"}

ลองออนไลน์!

05AB1E , 10 9 ไบต์

”‚¿‰±”áIK

-1 ขอบคุณไบต์@Emigna

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

คำอธิบาย:

”‚¿‰±”     # Push dictionary string "Good Bad"
      á    # Only keep letters (to remove the space)
       IK  # Remove the input
           # (output the result implicitly)

ดู 05AB1E นี้เคล็ดลับของฉัน (ส่วนวิธีการใช้พจนานุกรม? )จะเข้าใจว่าทำไมเป็น”‚¿‰±”"Good Bad"

Java (JDK) , 124 ไบต์

interface G{static void main(String[]a){System.out.print(new java.util.Scanner(System.in).next().length()>3?"Bad":"Good");}}

ลองออนไลน์!

มีแนวโน้มมากที่สุดที่ยังคงมีห้องพักสำหรับการปรับปรุง แต่ฉันยังใหม่กับการตีกอล์ฟ

Ruby, 30 28 ไบต์

puts %w|Good Bad|-gets.split

ไม่ใช่ golf-iest แต่ฉันชอบการละเมิดการแบ่งเพื่อลบบรรทัดใหม่ที่ต่อท้ายและแปลงเป็นอาร์เรย์ในการโทรครั้งเดียว

EDIT -2 bytes ขอบคุณคำแนะนำของ Value Ink!

ภาษาการเขียนโปรแกรมของเช็คสเปียร์ 582 ไบต์

(เพิ่มช่องว่างเพื่อให้สามารถอ่านได้)

G.Ajax,.Puck,.Act I:.Scene I:.[Enter Ajax and Puck]Ajax:
Open mind.Be you nicer the sum ofa big cat the cube ofa big big cat?If solet usScene V.
You is the sum ofthe sum ofyou a big big cat a cat.Speak thy.You is the sum ofyou twice twice twice the sum ofa big big cat a cat.Speak thy.Speak thy.You is the square oftwice the sum ofa big big cat a cat.Let usScene X.
Scene V:.Ajax:
You is the sum ofthe sum ofyou a big big pig a pig.Speak thy.You is the sum ofyou the sum ofa big big big big big cat a pig.Speak thy.You is the sum ofyou the sum ofa big cat a cat.
Scene X:.Ajax:Speak thy.

ลองออนไลน์!

Open mindฉันจะได้รับตัวอักษรตัวแรกของการป้อนข้อมูลด้วย จากนั้นฉันก็ต้องตัดสินใจว่ามันคืออะไร ของตัวเลขทั้งหมดระหว่างB= 66 G= 71, เดรัจฉานของฉัน forcer กล่าวว่า 66 เป็นที่สั้นที่สุดเพื่อเขียน ( the sum ofa big cat the cube ofa big big cat) ดังนั้นฉันเปรียบเทียบอักษรตัวแรกของการป้อนข้อมูลเพื่อ 66. ฉากที่ฉันยังคงที่จะพิมพ์หรือพิมพ์ฉากGood VBad

เรติน่า 0.8.2 , 20 ไบต์

oo
o
T`G\oaB`Ro
o
oo

ลองออนไลน์! ลิงค์มีชุดทดสอบ คำอธิบาย:

oo
o

เลี้ยวเข้าไปGoodGod

T`G\oaB`Ro

ย้ายตัวอักษรGoaBที่มีการย้อนกลับของรายการนั้นจึงแลกเปลี่ยนGด้วยBและoด้วยaเช่นการแลกเปลี่ยนกับGodBad

o
oo

เลี้ยวเข้าไปGodGood

Stax , 9 8 ไบต์

çEF♫a║▬h

เรียกใช้และแก้ไขข้อบกพร่อง

replace("BadGood", input, "")เป็นหลัก

Multiset xor ด้วย "GooBa" อัลกอริทึมคัดลอกคำต่อคำจากLuis Mendo

Excel, 24 ไบต์

=IF(A1>"C","Bad","Good")

ใช้<Cคำแนะนำของ @ MilkyWay90

PHP ,26 23 ไบต์

ประกอบไปด้วยราคาถูกกว่า:

<?=$argn==Bad?Goo:Ba?>d

ลองออนไลน์!

คำตอบเดิม 26 ไบต์

<?=[Ba,Goo][$argn==Bad]?>d

ลองออนไลน์!

หรือ 21 ไบต์ (แต่นี่เป็นคำตอบของ Arnauld )

<?=$argn[3]?Ba:Goo?>d

ลองออนไลน์!

เยลลี่ขนาด 9 ไบต์

“GooBa”œ^

ลองออนไลน์!

คำอธิบาย

ความแตกต่าง Multiset สมมาตรระหว่าง input “GooBa”และสตริง

PowerShell , 22 20 ไบต์

'Good','Bad'-ne$args

ลองออนไลน์!

-2 ไบต์ต้องขอบคุณ

Kegขนาด 22 ไบต์

?^_^_o=[^aB^_|^ooG^]

brainfuck , 52 ไบต์

,>,,<<,[>-----.<---.+++.<<]>[+++++.+[-<-->]<-..>>.>]

ลองออนไลน์!

อาศัยการ Bad เป็นตัวอักษรหนึ่งตัวที่สั้นกว่า Good ดังนั้นอินพุตสุดท้ายจึงว่างเปล่า

คำอธิบาย:

,>,,<<,       Get input into the first three cells
[             If the last letter was not empty (i.e. Good)
 >-----.      Decrement 'G' to 'B' and print
 <---.        Decrement 'd' to 'a' and print
 +++.         Increment back to 'd' and print
>>]           End loop
>[            If it is Bad instead
 +++++.       Increment 'B' to 'G' and print
 +[-<-->]<-.. Manipulate into  'o' and print twice
 >>.          Print 'd'
>]            End loop

Boolfuck , 47 ไบต์

+>,+;>,;,+;>;;;+;+;+[;<;;;,;+;;+;<];;+;+;;+;;+;

ลองออนไลน์!

ใช้ความจริงที่ว่าโดยทั่วไปคุณสามารถรับอินพุตเป็นบิตแล้วสลับบิตบางส่วนเพื่อเปลี่ยนเป็นอักษรตรงกันข้าม

คำอธิบาย:

+>,+;>,;,+;>;;;+;+;+    Print the first letter by inverting the first and third bits of the input
                        'B' = 01000010
                        'G' = 11100010
                        This leaves the tape as
                            1 1 1 1' in the case of Bad
                            1 0 0 1' in the case of Good
                        By making the center cells the inverted bits
[;<;;;,;+;;+;<]         Print the center letters by looping over the two pairs of cells
                        0 1' results in 'a' = 10000110
                        1 1' results in 'o' = 11110110 by printing the 1 in the 2-4th places
                        1 1 1 1' loops twice, while 1 0 0 1' only loops once
;;+;+;;+;;+;            Finally print 'd' = 00100110

Keg , -rt 20 17 15 13 8 7 ไบต์ (SBCS)

-᠀‘5ƳP↫

ส่งไปที่:

from KegLib import *
from Stackd import Stack
stack = Stack()
printed = False
iterable(stack, 'GoodBad')
string_input(stack)
maths(stack, '-')

if not printed:
    printing = ""
    for item in stack:
        if type(item) in [str, Stack]:
            printing += str(item)
        elif type(item) == Coherse.char:
            printing += item.v

        elif item < 10 or item > 256:
            printing += str(item)
        else:
            printing += chr(item)
    print(printing)

มันเป็นพอร์ตของคำตอบ 05AB1E เป็นหลักมัน

• กดสตริง "GoodBad"
• รับอินพุตเป็นสตริง
• ลบอินพุตจากสตริงที่พุช สิ่งนี้ทำงานโดยแทนที่อินสแตนซ์แรกของอินพุตภายในGoodBadด้วยอะไร
• พิมพ์สตริงผลลัพธ์โดยปริยาย
• -rtธงบอกถังอ่านราชสกุลจากขวาไปซ้าย

คำตอบประวัติ

?G=[øBad|ø‘5Ƴ

ส่งต่อไปนี้:

from KegLib import *
from Stackd import Stack
stack = Stack()
printed = False
Input(stack)
character(stack, 'G')
comparative(stack, '=')
if bool(stack.pop()):
    empty(stack)
    character(stack, 'B')
    character(stack, 'a')
    character(stack, 'd')

else:
    empty(stack)
    iterable(stack, 'Good')

if not printed:
    printing = ""
    for item in stack:
        if type(item) is Stack:
            printing += str(item)

        elif type(item) is str:
            printing += custom_format(item)
        elif type(item) == Coherse.char:
            printing += item.v

        elif item < 10 or item > 256:
            printing += str(item)
        else:
            printing += chr(item)
    print(printing)

คำอธิบาย

?G=[øBad|ø‘5Ƴ

?            #Get input from user
 G=          #If the first letter is "G"
   [øBad     #Clear the stack and push "Bad"
        |    #Else,
         ø‘5Ƴ#Clear the stack and push the compressed string "Good"

ถ่าน 13 ไบต์

¿⁻ＬＳ³Ba¦Goo¦d

ลองออนไลน์!

คำอธิบาย:

¿⁻ＬＳ³          If length of input minus 3 is truthy:
      Ba¦         print Ba
         Goo¦       else print Goo
             d        print d