Kita semua tahu lelucon ayah klasik yang berlangsung seperti ini:

1. Seseorang mengatakan kalimat untuk menggambarkan diri mereka (misalnya I'm tiredatau I'm confused).

2. Penggila lelucon ayah datang dan menjawab Hi <adjective>, I'm Dad!, karena perkenalan mengikuti format yang sama ( I'm Petermengikuti format yang sama seperti I'm hungry).

Tugas Anda adalah mengambil input dalam bentuk self-descriptor, dan menampilkan bentuk dad-joke yang sesuai, tetapi alih-alih menggunakan kata "Dad", Anda akan menggunakan nama bahasa pemrograman yang Anda pemrograman di.

Uji kasus (asumsikan bahwa mereka sedang diuraikan oleh 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!

Sekarang asumsikan bahwa test case ini diuraikan oleh 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!

Tantangan yang pasti:

1. Ambil string dalam format self-descriptor ( I'm <adjective>atau I'm a(n) <noun>) menggunakan input standar atau melalui fungsi.

   • Asumsikan tidak ada tanda baca akhir.

   • Anggaplah kata I'mitu digunakan dan tidak I am.

2. Konversikan ke format ayah-lelucon - lihat contoh di atas untuk bagaimana yang seharusnya terlihat.

Hal-hal lain:

• Ini adalah kode-golf , sehingga jumlah byte terpendek menang.

• Ikuti aturan celah standar - tidak ada satupun, tolong.

• Selamat bersenang-senang!

Papan peringkat

Anda dapat melihat papan peringkat untuk posting ini dengan memperluas widget / snippet di bawah ini. Agar posting Anda dimasukkan dalam peringkat, Anda perlu tajuk ( # header text) dengan info berikut:

• Nama bahasa (akhiri dengan tanda koma ,atau tanda hubung -), diikuti oleh ...

• Jumlah byte, sebagai angka terakhir yang muncul di header Anda.

Misalnya, JavaScript (ES6), 72 bytesvalid, tetapi Fortran, 143 bytes (8-bit)tidak valid karena jumlah byte bukan angka terakhir di header (jawaban Anda akan dikenali sebagai 8 byte - jangan manfaatkan ini).

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

Cobalah online!

Terinspirasi oleh jawaban tsh

Ini mengambil keuntungan dari fakta yang I'mditarik dari awal string ketika menghapus teks dari awal, dan menempelkannya ke akhir dengan <C-r>"saat dalam mode sisipkan.

C (gcc) , 59 42 33 byte

-17 byte terima kasih kepada @Conor O'Brien memperhatikan bahwa impor tidak perlu

-9 byte berkat @tsh menunjukkan cara penulisan fungsi UB yang lebih pendek

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

Cobalah online!

Memotong 3 karakter pertama dari input (menghilangkan I'm) dan mengelilinginya dengan teks yang diinginkan.

V , 13 byte

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

Cobalah online!

Baru untuk V. Baru tahu sekitar 30 menit yang lalu. Bagaimanapun, bahasa ini dipilih hanya karena namanya hanya biaya 1 byte. Saya tidak yakin bagaimana mengirim <End>kunci dalam V. Sebagian besar lingkungan vim akan menerima <End>sebagai pengganti <Esc>Adalam contoh ini. Tapi, Anda tahu, V adalah 2 karakter lebih pendek dari vim. :)

Berkat @Candy Gumdrop , menghemat 1 byte.

Stax , 13 byte

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

Jalankan dan debug itu

Dibongkar, tidak diserang, dan dikomentari, sepertinya ini.

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

Saya memindahkan komentar terakhir naik satu baris karena tidak ada yang dapat mengikuti string literal yang tidak dikuatkan.

Jalankan yang ini

brainfuck, 164

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

Cobalah online!

"Brengsek!" bagian dari senar dihasilkan dengan alat ini , mungkin bisa diraih lebih lanjut dengan tangan.

Excel, 36 33 byte

-3 byte berkat Johan du Toit.

Input masuk ke A1.

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

Percobaan pertama:

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

Python 3 , 35 34 byte

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

Cobalah online!

-1 byte berkat Perwujudan Ketidaktahuan

Juga 34 byte, menggunakan string yang diformat yang lebih baru, berkat Gábor Fekete:

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

Cobalah online!

R 45 44 39 byte

@Giuseppe Edit

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

@AaronHayman Sunting

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

Cobalah online!

PHP ,34 32 byte

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

Cobalah online!

Input via STDIN, panggil dengan -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!$

Belum dirakit:

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

Program DOS mandiri yang dapat dieksekusi. Input dari baris perintah, output ke layar.

Unduh dan uji DAD.COM .

* Nama "bahasa" yang tepat di sini sedikit ambigu karena kode mesin CPU sebenarnya bukan bahasa dalam arti formal. Menggunakan "x86" sebagai nama yang dipahami dan diterima secara umum untuk platform target.

Java, 36 byte

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

Cobalah online.

Ruang putih , 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]

Huruf S(spasi), T(tab), dan N(baris baru) ditambahkan hanya sebagai penyorotan.
[..._some_action]ditambahkan sebagai penjelasan saja.

Karena Whitespace memasukkan satu karakter pada satu waktu, input tersebut harus berisi baris tambahan sehingga ia tahu kapan harus berhenti membaca karakter dan input selesai.

Cobalah online (dengan spasi, tab, dan hanya baris baru).

Penjelasan dalam pseudo-code:

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

Karakter dari ", I'm Whitespace!"didorong dalam urutan terbalik, dan kemudian dicetak dalam satu lingkaran. Semua nilai karakter ini juga diturunkan sebesar 102, yang ditambahkan dalam loop sebelum mencetak untuk menghemat byte. Konstanta ini untuk menurunkan setiap karakter dengan dihasilkan dengan program Java ini . Selain itu, alih-alih mendorong nilai -70untuk kedua spasi dua kali, spasi kedua di "!ecapsetihW m'I ,"disalin dari yang pertama dengan Salin bawaan untuk menyimpan beberapa byte.

Bahasa Formula IBM / Lotus Notes, 61 62 byte

1 karena saya belum melihat !pada akhir output.

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

Rumus bidang terkomputasi yang mengambil inputnya dari bidang yang dapat diedit i. Itu akan gagal untuk "Aku seorang aku" tetapi karena itu tidak masuk akal sama sekali aku menganggap itu tidak akan terjadi.

Malu pada 32 byte, nama bahasa lebih dari setengah total panjang rumus!

Cuplikan layar di bawah ini menunjukkan contoh input dan output:

sed ( -r), 31 28 25 byte

-3 byte terima kasih kepada Shaggy -3 byte karena -rtidak diperlukan dalam output

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

TIO

Japt , 18 byte

`Hi{s3}, I'm Japt!

Ketika perpustakaan kompresi string Japt mencapai tingkat kompres 0% ...

Cobalah

Alternatif 18 byte lainnya:

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

Oktaf , 35 byte

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

Cobalah online!

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

Saya mencoba mengambil "Oktaf" entah bagaimana, tanpa menuliskannya, karena 6 karakter cukup banyak dibandingkan dengan beberapa nama bahasa lainnya di sini. Sayangnya, saya hanya bisa menemukan ver, yang menampilkan struct dengan bidang yang dipisahkan koma. Membutuhkan lebih dari 6 byte. :(

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

Cobalah online!

Ruby -p , 32 27 26 byte

-5 byte dengan memanfaatkan jawaban Jelly Nick Kennedy .

-1 byte dari pemisahan pada titik yang berbeda dalam string. Juga menyadari bytecount lama saya salah.

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

Penjelasan

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

Cobalah online!

Karat , 41 byte

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

Cobalah online!

Batch, 22 + 3 = 25 byte

@echo Hi %*, %0 Batch!

+3 byte untuk memberi nama file ini I'm(dengan .batekstensi yang diperlukan untuk file Batch). Dipanggil sebagai I'm hungry, kapan akan bergema Hi hungry, I'm Batch!.

Perl 6 , 30 28 27 byte

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

Cobalah online!

Perl 5 -p , 31 24 byte

Kurangi berdasarkan klarifikasi dari OP dan saran dari @NahuelFouilleul.

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

Cobalah online!

Jelly ,  16  15 byte

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

Program lengkap yang menerima argumen string (Python diformat) yang mencetak hasilnya.

Cobalah online!

Bagaimana?

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

Catatan: Ḋ⁾Hio...berfungsi juga.

Jeli , 20 17 byte

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

Cobalah online!

Tautan monadik mengambil input sebagai argumennya dan mengembalikan string Jelly.

Penjelasan

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

Input masuk ke sel A1 dari Lembar Aktif di Excel, jalankan kode di Jendela Segera

Mengambil keuntungan dari fakta bahwa "SomeString"SomeValuedan SomeValue"SomeString"akan secara implisit bergabung, dan bahwa menghilangkan argumen ketiga dari MIDfungsi akan mengambil semua karakter dari akhir input - mengubahnya menjadi fungsi "dump karakter awal"

(-1 byte terima kasih kepada Shaggy, tetapi +1 ketika OP mengonfirmasi bahwa semua jawaban harus diakhiri dengan tanda seru)
(-1 byte terima kasih kepada Taylor Scott yang mengingatkan saya bahwa double-quote akhir adalah opsional)

J , 22 byte

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

Cobalah online!

05AB1E , 23 21 byte

Disimpan 2 byte berkat Kevin Cruijssen

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

Cobalah online!

Penjelasan

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

QuadR , 22 byte

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

Cobalah online!

Ini menggantikan:

^... tiga karakter awal
dan
$ garis akhir

dengan

Hi
dan
,I'm QuadR
masing - masing

Retina , 22 21 byte

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

Cobalah online!Tautan termasuk kasus uji. Tidak bekerja di Retina 0.8.2, jadi adaptasikan jawaban QuadR @ Adám sebagai gantinya. Penjelasan: Polanya kosong, sehingga cocok di setiap posisi dalam string input. Kami hanya membutuhkan pertandingan ketiga (atau keempat akan berhasil). Substitusi kemudian diterapkan pada pertandingan itu. Di dalam substitusi itu, $'mengacu pada sisa string dan $`merujuk awal string.

Retina 0.8.2 , 26 25 23 byte

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

-1 byte terima kasih kepada @attinat .
-2 byte dengan porting @ Adám 's QuadR answer , jadi pastikan untuk menambahkannya !!

PS: @Neil memposting jawaban Retina yang lebih pendek di versi baru , jadi saya telah mengubah jawaban ini menjadi Retina 0.8.2 secara eksplisit.

Cobalah online.

Penjelasan:

Ganti tiga karakter pertama dengan "Hai":

^...
Hi

Dan kemudian menambahkan tanda ", aku Retina!" (dengan mengganti ujung string):

$
, I'm Retina!

bash, 24 byte

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

TIO