우리 모두는 다음과 같은 고전적인 아빠 농담을 알고 있습니다.

1. 누군가 자신을 설명하는 문장을 말합니다 (예 : I'm tired또는 I'm confused).

2. 아빠 농담 애호가가 와서 답장합니다 Hi <adjective>, I'm Dad!. 소개는 형식이 동일하기 때문입니다 ( I'm Peter와 형식이 동일 함 I'm hungry).

당신의 임무는 자기-기술자 (self-descriptor)의 형태로 입력을 받아서 적절한 아빠 농담 형태를 출력하는 것이지만, "Dad"라는 단어를 사용하는 대신, 프로그래밍하고있는 프로그래밍 언어의 이름을 사용하게됩니다 에서.

테스트 사례 (파이썬이 파싱한다고 가정) :

I'm amazing                  Hi amazing, I'm Python!
I'm tired                    Hi tired, I'm Python!
I'm hungry                   Hi hungry, I'm Python!
I'm fat                      Hi fat, I'm Python!

이제 이러한 테스트 사례가 Golfscript에 의해 구문 분석되고 있다고 가정하십시오.

I'm a programmer             Hi a programmer, I'm Golfscript!
I'm a question-writer        Hi a question-writer, I'm Golfscript!
I'm a Stack-Overflow-er      Hi a Stack-Overflow-er, I'm Golfscript!

정확한 도전 :

1. 표준 입력 또는 함수를 통해 자체 설명 형식 ( I'm <adjective>또는 I'm a(n) <noun>) 으로 문자열을 가져옵니다 .

   • 끝 문장 부호가 없다고 가정합니다.

   • 단어 I'm가 사용 되었다고 가정합니다 I am.

2. 그것을 아빠 농담 형식으로 변환하십시오-정확히 어떻게 보이는지 위의 예를 참조하십시오.

다른 것들 :

• 이것은 code-golf 이므로 가장 짧은 바이트 수가 이깁니다.

• 표준 허점 규칙을 따르십시오 .

• 즐기세요!

리더 보드

아래 위젯 / 스 니펫을 확장하여이 게시물의 리더 보드를 볼 수 있습니다. 게시물을 순위에 포함 # header text시키려면 다음 정보 가 포함 된 헤더 ( )가 필요합니다 .

• 언어의 이름 (쉼표 ,또는 대시 로 끝남 -) 다음에 ...

• 헤더에 표시 할 마지막 숫자 인 바이트 수입니다.

예를 들어, JavaScript (ES6), 72 bytes유효하지만 Fortran, 143 bytes (8-bit)바이트 수는 헤더의 마지막 숫자가 아니기 때문에 유효하지 않습니다 (답은 8 바이트로 인식되므로이를 활용하지 마십시오).

<iframe src="https://ozewski.github.io/ppcg-leaderboard/?id=185872" width="100%" height="100%" style="border: none;">Oops, your browser is too old to view this content! Please upgrade to a newer version of your browser that supports HTML5.</iframe><style>html,body{margin:0;padding:0;height:100%;overflow:hidden}</style>

V , 13 바이트

cEHi<esc>A, <C-r>" V!

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

tsh의 답변에서 영감을 얻음

이것은 I'm텍스트를 처음부터 삭제할 때 문자열의 시작 부분에서 줄어든 것을 이용하여 <C-r>"삽입 모드에서 끝까지 붙여 넣습니다 .

C (gcc) , 59 42 33 바이트

가져 오기가 필요하지 않은 @Conor O'Brien 덕분에 -17 바이트

더 짧은 UB 함수 작성 방법을 지적하는 @tsh 덕분에 -9 바이트

a(x){printf("Hi%s, I'm C!",x+3);}

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

입력의 처음 3자를 잘라 내고 (제거 I'm) 원하는 텍스트로 둘러 쌉니다.

V , 13 바이트

cEHi<Esc>A, <C-O>p V!

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

에 처음 V입니다. 약 30 분 전에 알았습니다. 어쨌든이 언어는 이름이 1 바이트이기 때문에 선택됩니다. <End>V 로 키 를 보내는 방법을 잘 모르겠습니다 . 대부분의 vim 환경은 이 예제에서 <End>대체물로 허용 됩니다 <Esc>A. 그러나 V는 vim보다 2 자 짧습니다. :)

@Candy Gumdrop 덕분에 1 바이트를 절약합니다.

Stax , 13 바이트

â∞¿φ‼0▲(─ƒSqÄ

실행 및 디버깅

포장을 풀고 포장을 풀고 주석을 달았습니다.

.Hip        print "Hi" with no newline
3tp         trim 3 characters from start of input and print with no newline
            final line is to print the unterminated compressed literal ", I'm stax!"
`dYgAwg_

끝나지 않은 문자열 리터럴 뒤에는 아무것도 없기 때문에 최종 주석을 한 줄 위로 이동했습니다.

이것을 실행

brainfuck, 164

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

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

"brainfuck!" 문자열의 일부는 이 도구 로 생성되며 , 손으로 더 골프를 칠 수도 있습니다.

엑셀, 36 33 바이트

Johan du Toit 덕분에 -3 바이트.

입력은 A1에 들어갑니다.

="Hi "&MID(A1,4,99)&", I'm Excel"

첫번째 시도:

=REPLACE(A1,1,3,"Hi")&", I'm Excel!"

파이썬 3 , 35 34 바이트

lambda s:"Hi%s, I'm Python!"%s[3:]

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

무지의 구현 덕분에 -1 바이트

Gábor Fekete 덕분에 최신 형식의 문자열을 사용하는 34 바이트도 있습니다.

lambda s:f"Hi{s[3:]}, I'm Python!"

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

R 45 44 39 바이트

@ 주세페

sub("I'm(.*)","Hi\\1, I'm R",scan(,""))

@AaronHayman 편집

function(s)sub("I'm (.*)","Hi \\1, I'm R",s)

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

PHP ,34 32 바이트

Hi<?=substr($argn,3)?>, I'm PHP!

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

를 통해 입력 STDIN하고 -F 를 사용하여 호출하십시오.

$ echo I'm a Stack-Overflow-er|php -F dad.php
Hi a Stack-Overflow-er, I'm PHP!

$ echo I'm hungry|php -F dad.php
Hi hungry, I'm PHP!

x86 ,37 36 바이트

$ xxd DAD.COM
00000000: d1ee ac8a d8c6 0024 adc7 0448 698b d6b4  .......$...Hi...
00000010: 09cd 21ba 1901 cd21 c32c 2049 276d 2078  ..!....!., I'm x
00000020: 3836 2124                                86!$

미 조립 :

D1 EE       SHR  SI, 1                  ; point SI to DOS PSP (080H)
AC          LODSB                       ; load string length into AL, advance SI
8A D8       MOV  BL, AL                 ; put string length into BL
C6 40 24    MOV  BYTE PTR[BX][SI], '$'  ; add string terminator to end of string
AD          LODSW                       ; advance SI two chars
C7 04 6948  MOV  WORD PTR[SI], 'iH'     ; replace second and third char with 'Hi'
8B D6       MOV  DX, SI                 ; load string address for INT 21H string function
B4 09       MOV  AH, 9                  ; display a '$' terminated string function
CD 21       INT  21H                    ; call DOS API
BA 0119     MOV  DX, OFFSET S           ; load address for second part of string
CD 21       INT  21H                    ; call DOS API
C3          RET                         ; return to DOS
S  DB ", I'm x86!$"  

독립형 실행 가능 DOS 프로그램. 명령 행에서 입력, 화면으로 출력

DAD.COM을 다운로드하여 테스트 하십시오 .

* 여기의 정확한 "언어"이름은 CPU 머신 코드가 실제로 공식적인 의미의 언어가 아니기 때문에 약간 모호합니다. 대상 플랫폼의 일반적으로 이해되고 허용되는 이름으로 "x86"을 사용합니다.

자바, 36 바이트

s->"Hi"+s.substring(3)+", I'm Java!"

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

공백 , 267 바이트

[S S S T    S S T   S S S N
_Push_72_H][T   N
S S _Print_as_character][S S S T    T   S T S S T   N
_Push_105_i][T  N
S S _Print_as_character][S S S N
_Push_0][S N
S _Duplicate_0][S N
S _Duplicate_0][T   N
T   S _Read_STDIN_as_character][T   N
T   S _Read_STDIN_as_character][T   N
T   S _Read_STDIN_as_character][N
S S N
_Create_Label_INPUT_LOOP][S S S N
_Push_0][S N
S _Duplicate_0][T   N
T   S _Read_STDIN_as_character][T   T   T   _Retrieve][S N
S _Duplicate_input][S S S T S T S N
_Push_10][T S S T   _Subtract][N
T   S S N
_If_0_Jump_to_Label_TRAILING][T N
S S _Print_as_character][N
S N
N
_Jump_to_Label_INPUT_LOOP][N
S S S N
_Create_Label_TRAILING][S N
N
_Discard_top][S S T T   S S S T S T N
_Push_-69_!][S S T  T   N
_Push_-1_e][S S T   T   T   N
_Push_-3_c][S S T   T   S T N
_Push_-5_a][S S S T S T S N
_Push_10_p][S S S T T   S T N
_Push_13_s][S S T   T   N
_Push_-1_e][S S S T T   T   S N
_Push_14_t][S S S T T   N
_Push_3_i][S S S T  S N
_Push_2_h][S S T    T   T   T   T   N
_Push_-15_W][S S T  T   S S S T T   S N
_Push_-70_space][S S S T    T   T   N
_Push_7_m][S S T    T   T   T   T   T   T   N
_Push_-63_'][S S T  T   T   T   S T N
_Push_-29_I][S T    S S T   T   N
_Copy_0-based_3rd_-70_space][S S T  T   T   T   S T S N
_Push_-58_,][N
S S T   N
_Create_Label_PRINT_TRAILING_LOOP][S S S T  T   S S T   T   S N
_Push_102][T    S S S _Add][T   N
S S _Print_as_character][N
S N
T   N
_Jump_to_Label_PRINT_TRAILING_LOOP]

문자 S(공백), T(탭) 및 N(줄 바꾸기)가 강조 표시로만 추가되었습니다.
[..._some_action]설명으로 만 추가되었습니다.

공백 문자는 한 번에 하나의 문자를 입력하므로 문자 읽기를 중지하고 입력이 완료되는 시점을 알 수 있도록 뒤에 줄 바꿈 문자가 포함되어야합니다.

온라인으로 시도하십시오 (원시 공백, 탭 및 줄 바꾸기 만).

의사 코드의 설명 :

Print "Hi"
Read three characters from STDIN, and do nothing with them
Start INPUT_LOOP:
  Character c = STDIN as character
  If(c == '\n'):
    Call function PRINT_TRAILING
  Print c as character
  Go to next iteration of INPUT_LOOP

function PRINT_TRAILING:
  Discard the top of the stack (the c='\n' that was still on the stack)
  Push "!ecapsetihW m'I ," one character at a time
  Start PRINT_TRAILING_LOOP:
    Print as character
    Go to next iteration of PRINT_TRAILING_LOOP

의 문자는 ", I'm Whitespace!"역순으로 밀린 다음 루프로 인쇄됩니다. 이 문자의 모든 값도 102만큼 낮아져 바이트를 저장하기 위해 인쇄하기 전에 루프에 추가됩니다. 각 문자를 낮추는이 상수 102는 이 Java 프로그램으로 생성됩니다 . 또한 -70두 공백 의 값 을 두 번 누르는 대신 두 번째 공백 "!ecapsetihW m'I ,"은 첫 번째 공간에서 복사 내장 기능으로 복사하여 몇 바이트를 저장합니다.

IBM / Lotus Notes 공식 언어, 61 62 바이트

!출력의 끝을 알지 못했기 때문에 +1 입니다.

"Hi"+@Right(i;"I'm")+", I'm IBM/Lotus Notes Formula Language!"

편집 가능한 field에서 입력을받는 계산 된 필드 수식입니다 i. "I 'm a I 'm"에 실패하지만, 전혀 일어나지 않을 것이라고 생각하기 때문에 전혀 의미가 없습니다.

32 바이트에서 언어의 이름이 수식의 총 길이의 절반 이상이라는 것을 부끄러운 줄 아십시오!

입력 및 출력 예를 보여주는 아래 스크린 샷 :

sed ( -r), 31 28 25 바이트

-r출력에 필요하지 않기 때문에 Shaggy -3 바이트 덕분에 -3 바이트

s/I'm(.*)/Hi\1, I'm sed!/

TIO

apt , 18 바이트

`Hi{s3}, I'm Japt!

Japt의 문자열 압축 라이브러리가 0 % 압축률을 달성하면 ...

시도 해봐

또 다른 18 바이트 대안 :

`Hi{Ť}, {¯4}Japt!

옥타브 , 35 바이트

@(s)["Hi" s(4:end) ", I'm Octave!"]

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

@(s)                                 % Anonymous function taking a string input
    [                             ]  % Concatenate everything inside the brackets
     "Hi"          ", I'm Octave!"]  % The fixed parts of the output string
          s(4:end)                   % The input, except "I'm"

                                     % Returns the concatenated string

42 바이트 :

나는 6 개의 문자가 여기의 다른 언어 이름들과 비교할 때 상당히 많기 때문에 어떻게 든 "Octave"를 쓰지 않고 검색하려고 시도했습니다. 불행히도, 만 찾을 수 있었고 ver쉼표로 구분 된 필드가있는 구조체를 출력했습니다. 6 바이트 이상을 차지합니다. :(

@(s)["Hi" s(4:end) ", I'm " {ver.Name}{1}]

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

루비 -p , 32 27 26 바이트

활용하여 -5 바이트 닉 케네디의 젤리 대답 .

문자열의 다른 지점에서 분할하여 -1 바이트 또한 내 이전 바이트 수가 잘못되었음을 깨달았습니다.

~/m/;$_="Hi#$', I'm Ruby!"

설명

                            # -p gets line of input and saves to $_
~/m/;                       # Find first 'm' in $_ using regex
     $_="Hi#$', I'm Ruby!"  # Save modified string to $_
                            # ($' is the string AFTER the most recent regex match)
                            # -p outputs $_ to screen

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

녹 , 41 바이트

|x:&str|print!("Hi{}, I'm Rust!",&x[3..])

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

배치, 22 + 3 = 25 바이트

@echo Hi %*, %0 Batch!

이 파일을 명명 +3 바이트 I'm(요구와 .bat배치 파일의 확장자). I'm hungry에코 할 때로 호출하십시오 Hi hungry, I'm Batch!.

펄 6 , 30 28 27 바이트

{S/.../Hi/~", I'm Perl 6!"}

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

펄 5 -p , 31 24 바이트

OP의 설명과 @NahuelFouilleul의 제안에 따라 줄이십시오.

/ /;$_="Hi $', $` Perl!"

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

젤리 ,  16  15 바이트

Ḋa⁾Hi“'ṫṗḶ/÷!Ṗ»

결과를 인쇄하는 (Python 형식) 문자열 인수를 허용하는 전체 프로그램입니다.

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

어떻게?

Ḋa⁾Hi“'ṫṗḶ/÷!Ṗ» - Link: list of characters    e.g. "I'm a programmer"
Ḋ               - dequeue                          "'m a programmer"
  ⁾Hi           - pair of characters               "Hi"
 a              - logical AND (vectorises)         "Hi a programmer"
     “'ṫṗḶ/÷!Ṗ» - list of characters               ", I'm Jelly!"
                -  - since this is a new leading constant chain the previous result
                -    is implicitly printed (with no trailing newline)
                - program result is implicitly printed (again with no trailing newline)

참고 : Ḋ⁾Hio...작동합니다.

젤리 , 20 17 바이트

ṫ4;“'ṫṗḶ/÷!Ṗ»⁾Hi;

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

입력을 인수로 받아서 젤리 문자열을 반환하는 모나드 링크.

설명

ṫ4                | everything from 4th character on
  ;“'ṫṗḶ/÷!Ṗ»     | concatenate ", I’m Jelly!" to the end
             ⁾Hi; | concatenate "Hi" to the beginning

VBA (Excel), 27 28 바이트

?"Hi"Mid([A1],4)", I'm VBA!

입력은 Excel에서 활성 시트의 A1 셀에 들어가고 직접 실행 창에서 코드를 실행합니다.

그 사실을 활용 "SomeString"SomeValue하고 SomeValue"SomeString"암시 적으로 연결할 것이며,에서 세 번째 인수를 생략하는 것이 MID기능은 입력의 끝에서 모든 문자를 취할 것 -은 "초기 문자를 덤프"기능으로 돌려

(Shaggy 덕분에 1 바이트, OP가 모든 느낌표로 끝나야한다는 것이 확인되면 +1
)

J , 22 바이트

', I''m J!',~'Hi',3}.]

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

05AB1E , 23 21 바이트

Kevin Cruijssen 덕분에 2 바이트 절약

',«#À„Hiš"05AB1E!"ªðý

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

설명

',«                    # append ","
   #                   # split on spaces
    À                  # rotate left
     „Hiš              # prepend "Hi"
         "05AB1E!"ª    # append the language name
                   ðý  # join on spaces

QuadR , 22 바이트

^...
$
Hi
, I'm QuadR!

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

이것은 다음을 대체합니다.

^... 세 초기 문자
와
$ 행의 끝

와

Hi
그리고
,I'm QuadR
각각

망막 , 22 21 바이트

3L$`
Hi$', $` Retina!

온라인으로 사용해보십시오! 링크에는 테스트 사례가 포함됩니다. Retina 0.8.2에서는 작동하지 않으므로 @ Adám의 QuadR 답변을 대신 적용하십시오. 설명 : 패턴이 비어 있으므로 입력 문자열의 모든 위치에서 일치합니다. 그러나 우리는 세 번째 (또는 네 번째가 작동 할 것) 만 필요합니다. 그런 다음 대체가 해당 경기에 적용됩니다. 이 대체 $'에서 문자열의 나머지 부분을 참조하고 문자열 $`의 시작을 나타냅니다.

레티 나 0.8.2 , 26 25 23 바이트

^...
Hi
$
, I'm Retina!

@attinat 덕분에 -1 바이트 . @ Adám 의 QuadR 답변
을 포팅하여 -2 바이트 이므로 그를 찬성 해야합니다!

추신 : @Neil 은 새로운 버전에서 더 짧은 Retina 답변을 게시 했으므로이 답변을 Retina 0.8.2로 명시 적으로 변경했습니다.

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

설명:

처음 세 문자를 "Hi"로 바꾸십시오.

^...
Hi

그리고 마지막에 ", 나는 Retina입니다!" (문자열의 끝을 바꾸어) :

$
, I'm Retina!

bash, 24 바이트

echo Hi ${@:2}, $1 bash!

TIO