Chúng ta đều biết trò đùa của người cha cổ điển giống như thế này:

1. Ai đó nói một câu để mô tả bản thân của họ (ví dụ I'm tiredhoặc I'm confused).

2. Một người say mê trò đùa cha đi cùng và trả lời Hi <adjective>, I'm Dad!, bởi vì phần giới thiệu có cùng định dạng ( I'm Petertheo cùng định dạng như I'm hungry).

Công việc của bạn là nhận một đầu vào dưới dạng tự mô tả và xuất ra hình thức trò đùa cha thích hợp, nhưng thay vì sử dụng từ "Bố", bạn sẽ sử dụng tên của ngôn ngữ lập trình bạn đang lập trình trong.

Các trường hợp thử nghiệm (giả sử rằng chúng đang được phân tích cú pháp bởi Python):

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!

Bây giờ giả sử rằng các trường hợp thử nghiệm này đang được phân tích cú pháp bởi 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!

Thách thức chính xác:

1. Lấy một chuỗi ở định dạng tự mô tả ( I'm <adjective>hoặc I'm a(n) <noun>) bằng cách sử dụng đầu vào tiêu chuẩn hoặc thông qua một chức năng.

   • Giả sử không có dấu chấm câu kết thúc.

   • Giả sử từ I'mđược sử dụng và không I am.

2. Chuyển đổi nó thành một định dạng trò đùa cha - xem các ví dụ ở trên để biết chính xác nó sẽ trông như thế nào.

Những thứ khác:

• Đây là môn đánh gôn , vì vậy số byte ngắn nhất sẽ thắng.

• Thực hiện theo các quy tắc kẽ hở tiêu chuẩn - không ai trong số đó, xin vui lòng.

• Chúc vui vẻ!

Bảng xếp hạng

Bạn có thể xem bảng xếp hạng cho bài đăng này bằng cách mở rộng tiện ích / đoạn trích bên dưới. Để bài đăng của bạn được đưa vào bảng xếp hạng, bạn cần một tiêu đề ( # header text) với thông tin sau:

• Tên của ngôn ngữ (kết thúc bằng dấu phẩy ,hoặc dấu gạch ngang -), theo sau là ...

• Số byte, là số cuối cùng xuất hiện trong tiêu đề của bạn.

Ví dụ: JavaScript (ES6), 72 byteshợp lệ, nhưng Fortran, 143 bytes (8-bit)không hợp lệ vì số byte không phải là số cuối cùng trong tiêu đề (câu trả lời của bạn sẽ được nhận ra là 8 byte - không tận dụng điều này).

<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 byte

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

Hãy thử trực tuyến!

Lấy cảm hứng từ câu trả lời của tsh

Điều này lợi dụng thực tế I'mđược kéo dài từ đầu chuỗi khi xóa văn bản từ đầu và dán nó đến cuối cùng <C-r>"trong khi ở chế độ chèn.

C (gcc) , 59 42 33 byte

-17 byte nhờ @Conor O'Brien nhận thấy rằng việc nhập không cần thiết

-9 byte nhờ @tsh chỉ ra cách viết hàm UB ngắn hơn

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

Hãy thử trực tuyến!

Loại bỏ 3 ký tự đầu tiên của đầu vào (loại bỏ I'm) và bao quanh nó với văn bản mong muốn.

V , 13 byte

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

Hãy thử trực tuyến!

Mới đến V. Chỉ cần biết nó khoảng 30 phút trước. Dù sao, ngôn ngữ này được chọn chỉ vì tên của nó chỉ tốn 1 byte. Tôi không chắc chắn cách gửi <End>khóa trong V. Hầu hết môi trường vim sẽ chấp nhận <End>thay thế <Esc>Atrong ví dụ này. Nhưng, bạn biết đấy, V ngắn hơn 2 ký tự. :)

Nhờ @Candy Gumdrop , tiết kiệm 1 byte.

Stax , 13 byte

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

Chạy và gỡ lỗi nó

Giải nén, không được chỉnh sửa và nhận xét, nó trông như thế này.

.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_

Tôi đã chuyển nhận xét cuối cùng lên một dòng vì không có gì có thể theo một chuỗi ký tự bị hủy bỏ.

Chạy cái này

cân não, 164

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

Hãy thử trực tuyến!

"Brainfuck!" một phần của chuỗi được tạo bằng công cụ này , có thể được đánh gôn bằng tay.

Excel, 36 33 byte

-3 byte nhờ Johan du Toit.

Đầu vào đi vào A1.

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

Nỗ lực đầu tiên:

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

Python 3 , 35 34 byte

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

Hãy thử trực tuyến!

-1 byte nhờ Hiện thân của sự thiếu hiểu biết

Cũng 34 byte, sử dụng các chuỗi được định dạng mới hơn, nhờ Gábor Fekete:

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

Hãy thử trực tuyến!

R 45 44 39 byte

@Giuseppe Chỉnh sửa

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

@AaronHayman Chỉnh sửa

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

Hãy thử trực tuyến!

PHP ,34 32 byte

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

Hãy thử trực tuyến!

Nhập qua STDIN, gọi với -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 byte

$ 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!$

Chưa được lắp ráp:

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!$"  

Một chương trình DOS thực thi độc lập. Nhập từ dòng lệnh, đầu ra đến màn hình.

Tải xuống và kiểm tra DAD.COM .

* Tên "ngôn ngữ" chính xác ở đây hơi mơ hồ vì mã máy CPU không thực sự là ngôn ngữ theo nghĩa chính thức. Đi với "x86" là tên thường được hiểu và chấp nhận cho nền tảng đích.

Java, 36 byte

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

Hãy thử trực tuyến.

Khoảng trắng , 267 byte

[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]

Chữ cái S(dấu cách), T(tab) và N(dòng mới) được thêm vào dưới dạng chỉ tô sáng.
[..._some_action]chỉ thêm vào giải thích.

Vì Whitespace nhập một ký tự tại một thời điểm, đầu vào phải chứa một dòng mới để nó biết khi nào nên dừng đọc các ký tự và đầu vào được thực hiện.

Dùng thử trực tuyến (chỉ có khoảng trắng, tab và dòng mới).

Giải thích bằng mã giả:

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

Các ký tự ", I'm Whitespace!"được đẩy theo thứ tự đảo ngược, và sau đó được in trong một vòng lặp. Tất cả các giá trị của các ký tự này cũng được hạ xuống 102, được thêm vào vòng lặp trước khi in để lưu byte. Hằng số 102 này để hạ thấp từng ký tự được tạo bằng chương trình Java này . Ngoài ra, thay vì đẩy giá trị -70cho cả hai không gian hai lần, không gian thứ hai trong "!ecapsetihW m'I ,"được sao chép từ lần đầu tiên với nội dung sao chép để lưu một vài byte.

Ngôn ngữ công thức ghi chú của IBM / Lotus, 61 62 byte

+1 vì tôi đã không nhận thấy !ở cuối đầu ra.

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

Công thức trường được tính toán lấy đầu vào từ trường có thể chỉnh sửa i. Nó sẽ thất bại với "Tôi là tôi" nhưng vì điều đó sẽ không có ý nghĩa gì cả. Tôi cho rằng điều đó sẽ không xảy ra.

Thật xấu hổ vì ở mức 32 byte, tên của ngôn ngữ lớn hơn một nửa tổng chiều dài của công thức!

Ảnh chụp màn hình bên dưới hiển thị một ví dụ đầu vào và đầu ra:

sed ( -r), 31 28 25 byte

-3 byte nhờ vào Shaggy -3 byte vì -rkhông cần thiết trong đầu ra

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

TIO

Japt , 18 byte

`Hi{s3}, I'm Japt!

Khi thư viện nén chuỗi của Japt đạt được tỷ lệ nén 0% ...

Thử nó

Một thay thế 18 byte khác:

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

Octave , 35 byte

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

Hãy thử trực tuyến!

@(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 byte:

Tôi đã cố gắng truy xuất "Octave" bằng cách nào đó, mà không viết ra, vì 6 ký tự là khá nhiều so với một số tên ngôn ngữ khác ở đây. Thật không may, tôi chỉ có thể tìm thấy ver, kết quả này tạo ra một cấu trúc với các trường được phân tách bằng dấu phẩy. Mất hơn 6 byte. :

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

Hãy thử trực tuyến!

Ruby -p , 32 27 26 byte

-5 byte bằng cách tận dụng câu trả lời Jelly của Nick Kennedy .

-1 byte từ việc phân tách trên một điểm khác nhau trong chuỗi. Cũng nhận ra bytecount cũ của tôi là sai.

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

Giải trình

                            # -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

Hãy thử trực tuyến!

Rust , 41 byte

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

Hãy thử trực tuyến!

Hàng loạt, 22 + 3 = 25 byte

@echo Hi %*, %0 Batch!

+3 byte để đặt tên tệp này I'm(với .batphần mở rộng bắt buộc cho tệp Batch). Gọi như I'm hungry, khi nó sẽ vang Hi hungry, I'm Batch!.

Perl 6 , 30 28 27 byte

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

Hãy thử trực tuyến!

Perl 5 -p , 31 24 byte

Cắt giảm dựa trên sự làm rõ từ OP và một gợi ý từ @NahuelFouilleul.

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

Hãy thử trực tuyến!

Thạch ,  16  15 byte

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

Một chương trình đầy đủ chấp nhận đối số chuỗi (định dạng Python) sẽ in kết quả.

Hãy thử trực tuyến!

Làm sao?

Ḋ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)

Lưu ý: Ḋ⁾Hio...hoạt động quá.

Thạch , 20 17 byte

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

Hãy thử trực tuyến!

Một liên kết đơn âm lấy đầu vào làm đối số của nó và trả về chuỗi Jelly.

Giải trình

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

VBA (Excel), 27 28 byte

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

Đầu vào đi vào ô A1 của Bảng hoạt động trong Excel, chạy mã trong Cửa sổ ngay lập tức

Tận dụng lợi thế của thực tế "SomeString"SomeValuevà SomeValue"SomeString"sẽ kết hợp ngầm, và việc bỏ qua đối số thứ ba từ MIDhàm sẽ lấy tất cả các ký tự từ cuối đầu vào - biến nó thành hàm "kết xuất ký tự ban đầu"

(-1 byte nhờ Shaggy, nhưng +1 khi OP xác nhận rằng tất cả các câu trả lời sẽ kết thúc bằng dấu chấm than)
(-1 byte nhờ Taylor Scott nhắc nhở tôi rằng trích dẫn kép cuối cùng là tùy chọn)

J , 22 byte

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

Hãy thử trực tuyến!

05AB1E , 23 21 byte

Đã lưu 2 byte nhờ Kevin Cruijssen

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

Hãy thử trực tuyến!

Giải trình

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

QuadR , 22 byte

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

Hãy thử trực tuyến!

Điều này thay thế:

^... ba ký tự ban đầu
và
$ cuối dòng

với

Hi
và
,I'm QuadR
tương ứng

Võng mạc , 22 21 byte

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

Hãy thử trực tuyến! Liên kết bao gồm các trường hợp thử nghiệm. Không hoạt động trong Retina 0.8.2, vì vậy hãy điều chỉnh câu trả lời QuadR của @ Adám. Giải thích: Mẫu trống, do đó, mẫu này khớp với mọi vị trí trong chuỗi đầu vào. Tuy nhiên, chúng tôi chỉ cần khớp thứ ba (hoặc thứ tư sẽ hoạt động). Sự thay thế sau đó được áp dụng cho trận đấu đó. Trong sự thay thế đó, $'đề cập đến phần còn lại của chuỗi và $`đề cập đến phần đầu của chuỗi.

Võng mạc 0.8.2 , 26 25 23 byte

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

-1 byte nhờ @attinat .
-2 byte bằng cách chuyển câu trả lời QuadR của @ Adám , vì vậy hãy đảm bảo nâng cấp anh ta !!

PS: @Neil đã đăng một câu trả lời Retina ngắn hơn trong phiên bản mới , vì vậy tôi đã thay đổi câu trả lời này thành Retina 0.8.2 một cách rõ ràng.

Hãy thử trực tuyến.

Giải trình:

Thay thế ba ký tự đầu tiên bằng "Hi":

^...
Hi

Và sau đó nối một dấu ", tôi là Retina!" (bằng cách thay thế phần cuối của chuỗi):

$
, I'm Retina!

bash, 24 byte

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

TIO