도전 설명 :

사용자에게 입력을 요청하는 프로그램을 작성하십시오. 사용자는 Good또는 을 입력 Bad합니다. 다른 입력을 지원하지 않아도됩니다. 사용자가을 입력 Good하면 인쇄 Bad하고 그 반대의 경우 (표준 출력 등)

노트:

1) 다른 두 단어 쌍을 사용할 수 없습니다.

2) 프로그램은 한 번만 요청하고 인쇄하면됩니다.

3) 프롬프트 문자열을 표시 할 필요가 없습니다.

4) 출력은 어떤 식 으로든 입력과 분리되어 나타나야합니다.

5) 값을 수락하고 결과를 반환하는 함수는 허용되지 않습니다. 사용자는 프로그램과 상호 작용해야합니다.

행운을 빕니다!

파이썬 3 ,  32  31 바이트

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

온라인으로 사용해보십시오!

어떻게?

입력이 'Good'비교 인지 테스트합니다 'G'<input().

사실을 사용하여 파이썬에서 그 False==0와 True==1는 AS 결과를 사용하는 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'~ 멀티 셋은 이들 문자를 빼기 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

bash, 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$'있고, 패리티가 짝수 (입력을 의미 함 ' 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 바이트

“Ċ³ṫ³»œṣ

온라인으로 사용해보십시오!

파이썬 형식의 문자열을 인수로 예상하는 전체 프로그램

어떻게?

“Ċ³ṫ³»œṣ - 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

파이썬 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 덕분에 1 바이트를 절약했습니다.

brainfuck , 72 바이트

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

온라인으로 사용해보십시오!

설명 :,> +++++>,>,>,>,

"G", 5, "o", "o", "d"또는 "B", 5, "a", "d", 0을 읽습니다.

[<<<< [-<->> --- <] <. >> +. >>. >>>] 마지막 문자가 0이 아닌 경우 :

첫 번째 셀에서 한 번, 세 번째 셀에서 3을 빼십시오. 증분 셀 3

출력 셀 1, 3, 5.

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

그렇지 않으면 첫 번째 셀에 한 번, 세 번째 셀에 5를 더하십시오.

셀 3 감소

출력 셀 1, 3, 3, 4

하스켈, 36 34 바이트

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

온라인으로 사용해보십시오!

편집 : @cole 덕분에 -2 바이트

R , 42 37 35 32 바이트

주세페와 AkselA 덕분에 -10!

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

온라인으로 사용해보십시오!

sed , 21 16 13 바이트

힌트를 주신 @Cowsquack에게 감사드립니다.

/B/cGood
cBad

온라인으로 사용해보십시오! 온라인으로 사용해보십시오! 온라인으로 사용해보십시오!

TIL c은 현재 라인의 구문 분석을 단락시킵니다.

자바 스크립트 31 바이트

Arnauld의 답변이 마음에 들지만 사용자 입력을 수락하고 StackExchange에서 다음과 같이 실행할 수 있기를 바랍니다.

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

Befunge-93 , 20 18 바이트

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

온라인으로 사용해보십시오!

Jo King 덕분에 -2 바이트

루비 , 22 바이트

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

온라인으로 사용해보십시오!

05AB1E , 10 9 바이트

”‚¿‰±”áIK

@Emigna 덕분에 -1 바이트 .

온라인으로 시도 하거나 두 가지 테스트 사례를 모두 확인 하십시오 .

설명:

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

(섹션 내이 05AB1E 팁을 참조하십시오 어떻게 사전을 사용하는 방법을? ) 이유를 이해하는 ”‚¿‰±”것입니다 "Good Bad".

자바 (JDK) 124 바이트

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

온라인으로 사용해보십시오!

아마도 여전히 개선의 여지가 있지만 코드 골프는 처음입니다.

루비, 30 28 바이트

puts %w|Good Bad|-gets.split

골프를 좋아하지는 않지만 분할을 악용하여 후행 줄 바꿈을 제거하고 한 번의 호출로 배열로 변환하는 것을 좋아합니다.

Value Ink의 제안 덕분에 -2 바이트를 편집하십시오!

셰익스피어 프로그래밍 언어 , 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 사이의 모든 숫자 중에서 내 무차별 대변인은 66이 쓰기가 가장 짧다고 말합니다 ( the sum ofa big cat the cube ofa big big cat), 입력의 첫 글자를 66과 비교합니다. Scene 계속 인쇄 Good또는 Scene V 인쇄 Bad.

레티 나 0.8.2 , 20 바이트

oo
o
T`G\oaB`Ro
o
oo

온라인으로 사용해보십시오! 링크에는 테스트 스위트가 포함되어 있습니다. 설명:

oo
o

돌려 Good으로 God.

T`G\oaB`Ro

문자 트랜스 GoaB따라서 교환이 목록의 반대와 G와 B와 o와 a교환 즉, God과 Bad.

o
oo

돌려 God으로 Good.

Stax , 9 8 바이트

çEF♫a║▬h

실행 및 디버깅

본질적으로 replace("BadGood", input, "").

"GooBa"가있는 멀티 세트 xor. 알고리즘은 Luis Mendo 에서 그대로 복사

엑셀, 24 바이트

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

@ MilkyWay90의 <C제안 사용.

PHP ,26 23 바이트

삼항은 더 저렴합니다.

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

온라인으로 사용해보십시오!

원래 답변, 26 바이트

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

온라인으로 사용해보십시오!

또는 21 바이트 (그러나 이것은 기본적으로 Arnauld의 답변입니다 )

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

온라인으로 사용해보십시오!

젤리 , 9 바이트

“GooBa”œ^

온라인으로 사용해보십시오!

설명

입력과 문자열 간의 다중 집합 대칭 차이 “GooBa”.

PowerShell , 22 20 바이트

'Good','Bad'-ne$args

온라인으로 사용해보십시오!

mazzy 덕분에 -2 바이트

케그 , 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 플래그는 Keg에게 오른쪽에서 왼쪽으로 토큰을 읽도록 지시합니다.

답변 내역

?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