Wir alle kennen den klassischen Vaterwitz, der ungefähr so ​​aussieht:

1. Jemand sagt einen Satz, um sich selbst zu beschreiben (zB I'm tiredoder I'm confused).

2. Ein Dad-Joke-Enthusiast kommt vorbei und antwortet Hi <adjective>, I'm Dad!, weil die Einführungen dem gleichen Format folgen ( I'm Peterfolgt dem gleichen Format wie I'm hungry).

Ihre Aufgabe ist es, eine Eingabe in Form eines Selbstdeskriptors aufzunehmen und das entsprechende Dad-Joke-Formular auszugeben. Statt des Wortes "Dad" verwenden Sie jedoch den Namen der Programmiersprache, die Sie programmieren im.

Testfälle (setzen voraus, dass sie von Python analysiert werden):

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!

Nehmen wir nun an, dass diese Testfälle von Golfscript analysiert werden:

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!

Die genaue Herausforderung:

1. Nehmen Sie eine Zeichenfolge im Selbstdeskriptor-Format ( I'm <adjective>oder I'm a(n) <noun>) über die Standardeingabe oder über eine Funktion auf.

   • Angenommen, es gibt keine abschließende Interpunktion.

   • Angenommen, das Wort I'mwird verwendet und nicht I am.

2. Konvertieren Sie es in ein Dad-Joke-Format - sehen Sie sich die obigen Beispiele an, um genau zu sehen, wie das aussehen soll.

Andere Sachen:

• Das ist Code-Golf , also gewinnt die kürzeste Anzahl an Bytes.

• Befolgen Sie die Standardregeln für Lücken - bitte keine.

• Habe Spaß!

Bestenliste

Sie können die Bestenliste für diesen Beitrag anzeigen, indem Sie das Widget / Snippet unten erweitern. Damit Ihr Beitrag in die Rangliste aufgenommen wird, benötigen Sie einen Header ( # header text) mit folgenden Informationen:

• Der Name der Sprache (Ende mit Komma ,oder Bindestrich -), gefolgt von ...

• Die Anzahl der Bytes als letzte Zahl in Ihrer Kopfzeile.

Beispielsweise JavaScript (ES6), 72 bytesist gültig, aber Fortran, 143 bytes (8-bit)ungültig, da die Byteanzahl nicht die letzte Zahl in der Kopfzeile ist (Ihre Antwort wird als 8 Byte erkannt - nutzen Sie dies nicht).

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

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

Probieren Sie es online!

Inspiriert von der Antwort von tsh

Dies macht sich die Tatsache zunutze, dass I'mbeim Löschen des Texts von Anfang an vom Anfang der Zeichenfolge an gereiht und <C-r>"im Einfügemodus bis zum Ende eingefügt wird .

C (gcc) , 59 42 33 Bytes

-17 Bytes dank @Conor O'Brien, der bemerkte, dass der Import nicht notwendig war

-9 Bytes dank @tsh, das auf eine kürzere UB-Schreibweise der Funktion hinweist

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

Probieren Sie es online!

Schneidet die ersten 3 Zeichen der Eingabe ab (entfernt I'm) und umgibt sie mit dem gewünschten Text.

V , 13 Bytes

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

Probieren Sie es online!

Neu bei V. Ich wusste es gerade vor ungefähr 30 Minuten. Wie auch immer, diese Sprache wird nur gewählt, weil ihr Name nur 1 Byte kostet. Ich bin nicht sicher, wie ich <End>Schlüssel in V senden soll . Die meisten vim-Umgebungen würden in diesem Beispiel <End>als Ersatz akzeptieren <Esc>A. Aber Sie wissen, V ist 2 Zeichen kürzer als vim. :)

Spart dank @Candy Gumdrop 1 Byte.

Stax , 13 Bytes

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

Führen Sie es aus und debuggen Sie es

Ausgepackt, ungolfed und kommentiert sieht es so aus.

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

Ich habe den letzten Kommentar um eine Zeile nach oben verschoben, da einem nicht abgeschlossenen Zeichenfolgenliteral möglicherweise nichts folgt.

Führen Sie dieses aus

Gehirnfick, 164

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

Probieren Sie es online!

Der "Brainfuck!" Ein Teil der Saite wird mit diesem Werkzeug erzeugt, kann wahrscheinlich von Hand weiter golfen werden.

Excel, 36 33 Bytes

-3 Bytes danke an Johan du Toit.

Die Eingabe erfolgt in A1.

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

Erster Versuch:

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

Python 3 , 35 34 Bytes

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

Probieren Sie es online!

-1 Byte dank Verkörperung der Ignoranz

Dank Gábor Fekete auch 34 Bytes mit den neueren formatierten Zeichenfolgen:

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

Probieren Sie es online!

R 45 44 39 Bytes

@ Giuseppe Bearbeiten

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

@ AaronHayman Bearbeiten

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

Probieren Sie es online!

PHP ,34 32 Bytes

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

Probieren Sie es online!

Eingabe über STDIN, Aufruf mit -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 Bytes

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

Zerlegt:

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

Ein eigenständiges ausführbares DOS-Programm. Eingabe über die Befehlszeile, Ausgabe auf dem Bildschirm.

Laden Sie DAD.COM herunter und testen Sie es .

* Der genaue Name der "Sprache" ist hier etwas mehrdeutig, da der CPU-Maschinencode nicht wirklich eine Sprache im formalen Sinne ist. Mit "x86" als allgemein bekanntem und akzeptiertem Namen für die Zielplattform.

Java, 36 Bytes

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

Probieren Sie es online aus.

Leerzeichen , 267 Bytes

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

Buchstaben S(Leerzeichen), T(Tabulator) und (Zeilenvorschub) werden Nnur als Hervorhebungen hinzugefügt.
[..._some_action]nur als Erklärung hinzugefügt.

Da Whitespace jeweils ein Zeichen eingibt, sollte die Eingabe eine abschließende neue Zeile enthalten, damit bekannt ist, wann das Lesen von Zeichen zu beenden ist und die Eingabe abgeschlossen ist.

Probieren Sie es online aus (nur mit Leerzeichen, Tabulatoren und Zeilenumbrüchen).

Erklärung im Pseudocode:

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

Die Zeichen von ", I'm Whitespace!"werden in umgekehrter Reihenfolge verschoben und dann in einer Schleife gedruckt. Alle Werte dieser Zeichen werden ebenfalls um 102 verringert, die vor dem Drucken in der Schleife hinzugefügt werden, um Bytes zu sparen. Diese Konstante 102 zum Verringern jedes Zeichens mit wird mit diesem Java-Programm erzeugt . Anstatt den Wert -70für beide Leerzeichen zweimal zu verschieben, wird das zweite Leerzeichen "!ecapsetihW m'I ,"aus dem ersten mit der eingebauten Copy-Funktion kopiert, um einige Bytes zu sparen.

IBM / Lotus Notes Formula Language, 61 62 Byte

+1 weil ich das !am Ende der Ausgabe nicht bemerkt hatte .

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

Berechnete Feldformel, deren Eingabe von einem bearbeitbaren Feld stammt i. Es würde für "Ich bin ein Ich" scheitern, aber da das überhaupt keinen Sinn ergibt, gehe ich davon aus, dass es nicht passieren wird.

Schade, dass bei 32 Bytes der Name der Sprache mehr als die Hälfte der Gesamtlänge der Formel beträgt!

Screenshot unten mit einem Beispiel für Ein- und Ausgabe:

sed ( -r), 31 28 25 Bytes

-3 Bytes dank Shaggy -3 Bytes, da -rin der Ausgabe nicht benötigt

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

TIO

Japt , 18 Bytes

`Hi{s3}, I'm Japt!

Wenn die String-Komprimierungsbibliothek von Japt eine Komprimierungsrate von 0% erreicht ...

Versuch es

Eine weitere 18-Byte-Alternative:

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

Oktave , 35 Bytes

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

Probieren Sie es 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 Bytes:

Ich habe versucht, "Octave" irgendwie abzurufen, ohne es aufzuschreiben, da 6 Zeichen im Vergleich zu einigen anderen Sprachnamen hier ziemlich viel sind. Leider konnte ich nur feststellen ver, welche Struktur mit kommagetrennten Feldern ausgegeben wird. Nimmt weit mehr als 6 Bytes. :(

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

Probieren Sie es online!

Ruby -p , 32 27 26 Bytes

-5 Bytes durch Nutzung von Nick Kennedys Jelly-Antwort .

-1 Byte vom Teilen an einem anderen Punkt in der Zeichenfolge. Außerdem wurde mir klar, dass mein alter bytecount falsch war.

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

Erläuterung

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

Probieren Sie es online!

Rust , 41 Bytes

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

Probieren Sie es online!

Batch, 22 + 3 = 25 Bytes

@echo Hi %*, %0 Batch!

+3 Byte für die Benennung dieser Datei I'm(mit der erforderlichen .batErweiterung für Batch-Dateien). Rufen Sie as auf I'm hungry, wenn es wiedergegeben wird Hi hungry, I'm Batch!.

Perl 6 , 30 28 27 Bytes

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

Probieren Sie es online!

Perl 5 -p , 31 24 Bytes

Kürzung basierend auf Erläuterungen von OP und einem Vorschlag von @NahuelFouilleul.

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

Probieren Sie es online!

Jelly ,  16  15 Bytes

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

Ein vollständiges Programm, das ein (Python-formatiertes) String-Argument akzeptiert, das das Ergebnis ausgibt.

Probieren Sie es online!

Wie?

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

Hinweis: Ḋ⁾Hio...funktioniert auch.

Jelly , 20 17 Bytes

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

Probieren Sie es online!

Ein monadischer Link, der die Eingabe als Argument verwendet und eine Jelly-Zeichenfolge zurückgibt.

Erläuterung

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

VBA (Excel), 27 28 Bytes

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

Die Eingabe erfolgt in Zelle A1 des aktiven Arbeitsblatts in Excel. Führen Sie den Code im Direktfenster aus

Nutzt die Tatsache aus, dass "SomeString"SomeValueund SomeValue"SomeString"implizit verkettet wird, und dass das Weglassen des dritten Arguments in der MIDFunktion alle Zeichen vom Ende der Eingabe in eine Funktion zum Speichern der Anfangszeichen umwandelt

(-1 Byte dank Shaggy, aber +1, wenn OP bestätigt, dass alle Antworten mit einem Ausrufezeichen enden sollen)
(-1 Byte dank Taylor Scott, der mich daran erinnert, dass das letzte Anführungszeichen optional war)

J , 22 Bytes

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

Probieren Sie es online!

05AB1E , 23 21 Bytes

2 Bytes dank Kevin Cruijssen gespeichert

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

Probieren Sie es online!

Erläuterung

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

QuadR , 22 Bytes

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

Probieren Sie es online!

Dies ersetzt:

^... drei Anfangsbuchstaben
und
$ das Zeilenende

mit

Hi
und
,I'm QuadR
jeweils

Netzhaut , 22 21 Bytes

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

Probieren Sie es online! Link enthält Testfälle. Funktioniert nicht in Retina 0.8.2, passen Sie stattdessen die QuadR-Antwort von @ Adám an. Erläuterung: Das Muster ist leer, sodass es an jeder Position in der Eingabezeichenfolge übereinstimmt. Wir brauchen aber nur die dritte (oder vierte) Übereinstimmung. Die Auswechslung wird dann auf diese Übereinstimmung angewendet. $'Bezieht sich innerhalb dieser Ersetzung auf den Rest der Zeichenfolge und $`auf den Anfang der Zeichenfolge.

Retina 0.8.2 , 26 25 23 Bytes

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

-1 Byte danke an @attinat .
-2 Bytes durch Portierung der QuadR-Antwort von @ Adám , also stelle sicher, dass du ihn positiv bewertest !!

PS: @Neil hat in der neuen Version eine kürzere Retina-Antwort gepostet , daher habe ich diese Antwort explizit auf Retina 0.8.2 geändert.

Probieren Sie es online aus.

Erläuterung:

Ersetzen Sie die ersten drei Zeichen durch "Hi":

^...
Hi

Und fügen Sie dann ein abschließendes ", ich bin Retina!" (durch Ersetzen des Stringendes):

$
, I'm Retina!

Bash, 24 Bytes

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

TIO