Hepimiz böyle bir şeye giden klasik baba şakasını biliyoruz:

1. Birileri kendi kendini tanımlamak için bir cümle söylüyor (örneğin I'm tiredveya I'm confused).

2. Bir baba şakası meraklısı gelir ve cevap verir Hi <adjective>, I'm Dad!, çünkü tanıtımlarda aynı format I'm Peterizlenir (aynı format izlenir I'm hungry).

İşiniz, kendi kendini tanımlayan bir formda bir girdi almak ve uygun bir baba şakası formu çıkarmak, ancak "Baba" kelimesini kullanmak yerine, programladığınız programlama dilinin adını kullanacaksınız. içinde.

Test durumları (Python tarafından ayrıştırıldığını varsayalım):

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!

Şimdi bu test durumlarının Golfscript tarafından ayrıştırıldığını varsayalım:

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!

Kesin zorluk:

1. Standart girişi kullanarak veya bir fonksiyon aracılığıyla kendini tanımlayıcı formatta ( I'm <adjective>veya I'm a(n) <noun>) bir dizeye alın .

   • Bir noktalama işaretinin olmadığını varsayalım.

   • Kelimenin I'mkullanıldığını ve kullanılmadığını varsayalım I am.

2. Bunu bir baba şakası biçimine dönüştürün - tam olarak nasıl görünmesi gerektiğine ilişkin yukarıdaki örnekleri inceleyin.

Diğer şey:

• Bu kod golf , yani en kısa bayt sayısı kazanıyor.

• Takip standart mazgal kurallarını - Bunlardan hiçbiri, lütfen.

• İyi eğlenceler!

Liderler Sıralaması

Aşağıdaki widget'ı / snippet'ini genişleterek bu yayının lider tablosunu görüntüleyebilirsiniz. Gönderinizin sıralamada yer alması için # header text, aşağıdaki bilgileri içeren bir başlığa ( ) ihtiyacınız vardır :

• Dilin adını (virgül ,veya kısa çizgi ile bitirin -), ardından ...

• Başlığınızda görünecek son sayı olan bayt sayısı.

Örneğin JavaScript (ES6), 72 bytes, geçerli ancak Fortran, 143 bytes (8-bit)bayt sayısı başlığındaki son sayı olmadığı için geçersiz (cevabınız 8 bayt olarak kabul edilecek - bundan faydalanmayın).

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

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

Çevrimiçi deneyin!

Tsh'nin cevabından ilham alındı

Bu I'm, metni başlangıçtan silerken dizenin başından itibaren yanmış ve <C-r>"ekleme modundayken sonuna yapıştırdığı gerçeğinden yararlanır .

C (gcc) , 59 42 33 bayt

@Conor O'Brien, içe aktarma işleminin gerekli olmadığına dikkat çeken -17 bayt sayesinde

@Tsh sayesinde -9 bayt, fonksiyon yazmanın daha kısa, UB yolunu gösterir

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

Çevrimiçi deneyin!

Girişin ilk 3 karakterini keser (kaldırır I'm) ve onu istenen metin ile çevreler.

V , 13 bayt

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

Çevrimiçi deneyin!

Yeni V. Sadece 30 dakika önce biliyordum. Neyse, bu dil seçildi, çünkü adı yalnızca 1 bayta mal oldu. <End>V’de anahtarın nasıl gönderileceğinden emin değilim . Çoğu vim ortamı bu örnekte yer <End>değiştirmiş sayılır <Esc>A. Ancak, biliyorsunuz, V, vim'den 2 karakter daha kısa. :)

@Candy Gumdrop sayesinde 1 bayt kazandırır.

Stax , 13 bayt

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

Koş ve hata ayıkla

Ambalajsız, ağzı açılmış ve yorumlanmış gibi görünüyor.

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

Son yorumu bir satır yukarı taşmıştım, çünkü hiçbir şey sonlandırılmamış bir dize değişmezini takip edemez.

Bunu çalıştır

beyin fırtınası, 164

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

Çevrimiçi deneyin!

"Brainfuck!" dizenin bir kısmı bu araçla üretilmiştir , muhtemelen elle daha fazla golf oynayabilir.

Excel, 36 33 bayt

Johan du Toit sayesinde -3 bayt.

Giriş A1'e giriyor.

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

İlk girişim:

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

Python 3 , 35 34 bayt

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

Çevrimiçi deneyin!

Cehalet Uygulaması sayesinde -1 bayt

Ayrıca Gábor Fekete sayesinde yeni biçimlendirilmiş dizeleri kullanan 34 bayt:

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

Çevrimiçi deneyin!

R 45 44 39 bayt

@Giuseppe Düzenle

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

@AaronHayman Düzenle

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

Çevrimiçi deneyin!

PHP ,34 32 bayt

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

Çevrimiçi deneyin!

İle giriş yap STDIN, -F ile ara.

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

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

unassembled:

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

Bağımsız bir çalıştırılabilir DOS programı. Komut satırından giriş, ekrana çıkış.

DAD.COM’u indirin ve test edin .

* Buradaki tam "dil" adı, CPU makine kodu biçimsel anlamda gerçekten bir dil olmadığı için biraz belirsizdir. Hedef platform için genel olarak anlaşılan ve kabul edilen bir ad olarak "x86" ile devam etmek.

Java, 36 bayt

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

Çevrimiçi deneyin.

Boşluk , 267 bayt

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

Harfler S(boşluk), T(sekme) ve N(yeni satır) yalnızca vurgulama olarak eklenmiştir.
[..._some_action]sadece açıklama olarak eklendi.

Whitespace bir kerede bir karakter girdiğinden, girişin sonunda yeni bir satır içermesi gerekir; böylece karakterleri okumayı ne zaman durduracağını bilir ve giriş yapılır.

Çevrimiçi deneyin (yalnızca ham alanlar, sekmeler ve yeni satırlarla).

Sahte kodda açıklama:

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

Karakterleri ", I'm Whitespace!"ters sırada itilir ve ardından bir döngü halinde yazdırılır. Bu karakterlerin tüm değerleri, baytları kaydetmek için yazdırmadan önce ilmeğe eklenen 102 ile düşürülür. Her karakterin düşürülmesi için bu sabit 102 bu Java programı ile üretilmiştir . Ayrıca, -70her iki boşluk için değeri iki kez itmek yerine , ikinci boşluk "!ecapsetihW m'I ,"ilk kopyalanacak şekilde kopya yerleşik olarak birkaç bayttan tasarruf edilir.

IBM / Lotus Notes Formül Dili, 61 62 bayt

+1 çünkü !çıktının sonunda fark etmedim .

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

Düzenlenebilir bir alandan girişini alan hesaplanmış alan formülü i. "Ben bir benim" için başarısız olur, ancak bu hiçbir zaman bir anlam ifade etmeyeceğinden, bunun olmayacağını varsayıyorum.

Utanç olsun, 32 byte, dilin adı formülün toplam uzunluğunun yarısından fazla!

Aşağıda örnek girdi ve çıktı gösteren ekran görüntüsü:

sed ( -r), 31 28 25 bayt

Shaggy sayesinde -3 bayt -3 bayt çünkü -rçıktıda gerekli değil

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

TIO

Japt , 18 bayt

`Hi{s3}, I'm Japt!

Japt'in string sıkıştırma kütüphanesi% 0 sıkıştırma oranına ulaştığında ...

Dene

18 baytlık bir alternatif daha:

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

Oktav , 35 bayt

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

Çevrimiçi deneyin!

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

Bir şekilde "Octave" yazmayı denemedim, çünkü yazmadan, 6 karakter buradaki diğer dil isimlerinden bazılarına göre oldukça fazla. Ne yazık ki, yalnızca vervirgülle ayrılmış alanları olan bir yapı çıktısı bulabildim . 6 bayttan fazla sürüyor. :(

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

Çevrimiçi deneyin!

Ruby -p , 32 27 26 bayt

-5 bayt Nick Kennedy'nin Jelly cevabını kullanarak .

Dizede farklı bir noktadan bölmeden -1 bayt. Ayrıca eski bayt sayımın yanlış olduğunu da farkettim.

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

açıklama

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

Çevrimiçi deneyin!

Pas , 41 bayt

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

Çevrimiçi deneyin!

Toplu, 22 + 3 = 25 bayt

@echo Hi %*, %0 Batch!

Bu dosyayı adlandırmak için +3 bayt I'm( .batToplu iş dosyaları için gerekli uzantıyla). Olarak çağırır I'm hungry, o yankı zaman Hi hungry, I'm Batch!.

Perl 6 , 30 28 27 bayt

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

Çevrimiçi deneyin!

Perl 5 -p , 31 24 bayt

OP’deki açıklamalara ve @NahuelFouilleul’in önerisine göre azaltın.

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

Çevrimiçi deneyin!

Jöle ,  16  15 bayt

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

Sonucu basan (Python formatlı) bir string argümanını kabul eden tam bir program.

Çevrimiçi deneyin!

Nasıl?

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

Not: Ḋ⁾Hio...Çok çalışır.

Jöle , 20 17 bayt

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

Çevrimiçi deneyin!

Girdiyi argüman olarak alan ve bir Jelly string döndüren monadik bir link.

açıklama

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

VBA (Excel), 27 28 bayt

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

Giriş, Excel'deki Aktif Sayfa'nın A1 hücresine gider, Komut Penceresinde kodu çalıştır

Gerçeği yararlanır "SomeString"SomeValueve SomeValue"SomeString"örtük concatenate ve üçüncü argüman ihmal olduğunu edecektir MIDfonksiyonun girdi sonundan itibaren tüm karakterleri alacak - dönüştürerek bir "başlangıç karakterleri dökümü" fonksiyonu

(Shaggy sayesinde -1 bayt, ancak OP tüm cevapların ünlem işareti ile bitmesi gerektiğini doğruladığında +1)
(-1 çift bayt, son teklifin isteğe bağlı olduğunu hatırlattığını hatırlattı)

J , 22 bayt

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

Çevrimiçi deneyin!

05AB1E , 23 21 bayt

Kevin Cruijssen sayesinde 2 bayt kaydedildi

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

Çevrimiçi deneyin!

açıklama

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

QuadR , 22 bayt

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

Çevrimiçi deneyin!

Bu değiştirir:

^... üç ilk karakter
ve
$ satır sonu

ile

Hi
ve
,I'm QuadR
sırasıyla

Retina , 22 21 bayt

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

Çevrimiçi deneyin! Link, test durumlarını içerir. Retina 0.8.2'de çalışmadığından, bunun yerine @ Adám'ın QuadR yanıtını uyarlayın. Açıklama: Desen boştur, bu nedenle giriş dizesindeki her konumda eşleşir. Ancak üçüncü (veya dördüncü çalışmanın) maçına ihtiyacımız var. İkame daha sonra o maça uygulanır. Bu ikame $'içinde, dizenin geri kalanını ve dizenin $`başlangıcını ifade eder.

Retina 0.8.2 , 26 25 23 bayt

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

@ Attinat sayesinde -1 bayt . @ Adám'ın QuadR cevabını taşıyarak
-2 bayt , bu yüzden onu yenmeyi unutma!

PS: @Neil , yeni sürümde daha kısa bir Retina cevabı gönderdi , bu yüzden bu cevabı açıkça Retina 0.8.2 olarak değiştirdim.

Çevrimiçi deneyin.

Açıklama:

İlk üç karakteri "Hi" ile değiştirin:

^...
Hi

Ve sonra bir son ekleyin ", Ben Retina!" (dizenin sonunu değiştirerek):

$
, I'm Retina!

bash, 24 bayt

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

TIO