Herausforderung

Schreiben Sie das kürzeste Programm P so, dass

• P nimmt eine beliebige positive ganze Zahl n als Eingabe und gibt eine Programmzeichenfolge P _{1 aus}

• Durch Ausführen von P ₁ (ohne Eingabe) wird eine Programmzeichenfolge P ₂ ausgegeben.

• Durch Ausführen von P ₂ (ohne Eingabe) wird eine Programmzeichenfolge P ₃ ausgegeben.

• ...

• Das Ausführen von P _n (ohne Eingabe) gibt genau "Hallo!" (ohne die Anführungszeichen).

Schematisch:

                P (n) → P ₁ → P ₂ → ... → P _n → Hallo!

Kriterien

• E / A erfolgt über stdin / stdout.
• Die Programmlänge wird in Bytes gemessen.
• Programme bestehen nur aus ASCII-druckbaren Zeichen.
• Es dürfen keine Duplikate zwischen den Programmen P, P ₁ , ..., P _{n vorhanden sein} .

BEARBEITEN: Die Programme P, P ₁ , ..., P _n sind als Quellcode gedacht, und "Ausführen des Programms" bezieht sich auf die Verarbeitung, die die Ausgabe erzeugt (dh Interpretation, Kompilierung und Ausführung usw.).

Golfscript 39 14

~'Hello!'{`}@*

Beispiel:

Unter der Annahme, dass n = 4 ist und unser Programm P ist , sind dies die Schritte:

1. Führen Sie P mit Parameter 4 aus . Der Ausgang ist "\"\\\"\\\\\\\"Hello!\\\\\\\"\\\"\""( P ₁ )

2. Ausführen von P ₁ -Ausgängen "\"\\\"Hello!\\\"\""( P ₂ )

3. Ausführen von P ₂ -Ausgängen "\"Hello!\""( P ₃ )

4. Ausführen von P ₃ -Ausgängen "Hello!"( P ₄ )

5. Ausführen von P ₄ -Ausgängen Hello!. Wenn Sie mir nicht vertrauen, folgen Sie diesem Link ☺.

JavaScript, 58 Zeichen

function $(_){alert(_?$+'$('+--_+')':'Hello!')}$(prompt())

Perl ( 45 36)

say"say q("x($m=<>),"Hello!",")"x$m         

Führen Sie mit perl -M5.010zu verwenden say.

Für n=1, Ausgänge say q(Hello!)
Für n=2, Ausgänge say q(say q(Hello!))
Für n=3, Ausgänge say q(say q(say q(Hello!)))
und so weiter.

Python3, 66

r="print(%r)";e=eval;n=e(input())+1;e(e("(r%"*n+"'Hello!'"+")"*n))

Common Lisp, 68 Zeichen

(do((n(read)(1- n))(s'(princ"Hello!")`(print',s)))((= 0 n)(eval s)))

(do ((n (read) (1- n))
     (s '(princ "Hello!") `(print ',s)))
    ((= 0 n) (eval s)))

Das einzig Unkomplizierte: Es generiert eine Programmebene mehr als nötig und wertet sie aus, da evalein Zeichen kürzer als ist print.

Common Lisp: 65

#1=(SETF N(READ)(CADDR'#1#)(1- N)W(PRINT(IF(= N 0)"Hello!"'#1#)))

Diese Version ist kleiner als die vorhandene CL-Antwort. Wenn Ihr Lisp mit einem Stackoverflow krächzt, müssen Sie dies verwenden, 81 Bytes:

#1=(SETF N(READ)*PRINT-CIRCLE* T(CADDR'#1#)(1- N)W(PRINT(IF(= N 0)"Hello!"'#1#)))

Ich weiß, dass ich zu spät zur Party komme und ich bin sicher, dass dies noch optimiert werden könnte.

Demonstration (Vorsicht, einige Online-REPLs funktionieren nicht richtig):

* #1=(SETF N(READ)*PRINT-CIRCLE* T(CADDR'#1#)(1- N)W(PRINT(IF(= N 0)"Hello!"'#1#)))
2
#1=(SETF N 1
         *PRINT-CIRCLE* T
         (CADDR '#1#) (1- N)
         W
           (PRINT
            (IF (= N 0)
                "Hello!"
                '#1#))) 
#1=(SETF N 1
         *PRINT-CIRCLE* T
         (CADDR '#1#) (1- N)
         W
           (PRINT
            (IF (= N 0)
                "Hello!"
                '#1#)))
* (eval *)

#1=(SETF N 0
         *PRINT-CIRCLE* T
         (CADDR '#1#) (1- N)
         W
           (PRINT
            (IF (= N 0)
                "Hello!"
                '#1#))) 
#1=(SETF N 0
         *PRINT-CIRCLE* T
         (CADDR '#1#) (1- N)
         W
           (PRINT
            (IF (= N 0)
                "Hello!"
                '#1#)))
* (eval *)
"Hello!" 
"Hello!"
* 

Beachten Sie, dass:

• Getestet mit SBCL 1.2.11.debian

• Es gibt viele Warnungen, weil ich Dinge tue, die ernsthaft nicht getan werden sollen. Zum Glück werden alle Warnungen mit einem Semikolon gedruckt, sodass sie sowieso als Kommentare behandelt werden.

• Die Duplizierung erfolgt, weil einer der Rückgabewert und eine tatsächliche Ausgabe ist. Wenn der Rückgabewert auch zählen würde, vereinfacht er sich auf 58 Bytes:#1=(SETF N(READ)(CADDR'#1#)(1- N)W(IF(= N 0)"Hello!"'#1#))

• Ich weiß immer noch, dass ich zu spät zur Party komme

Python 2.7, 57

print reduce(lambda x,y:y+`x`,input()*["print"],"Hello!")

Haskell, 62

main=interact$(iterate(("main=putStr"++).show)"Hello!"!!).read

Bash, 47 oder 12 (wenn ich Golfbash benutze)

Code:

read x;for((;x>=0;x--)){ O+=" echo";};$O Hello!

Golfbash-Code:

R;n e Hello!

Vorheriger Code (49):

read x;E=echo;eval \"\${E[0]\"{0..$x}\"}\" Hello!

Verwenden:

Programm P erstellen

$ echo '<paste code here>' > P

$ chmod +x P

Beispiel

Machen Sie P1:

$> echo 4 | ./P > 
echo echo echo echo Hello!

Machen Sie P2:

$> echo 4 | ./P | bash
echo echo echo Hello!

Machen Sie P3:

$ echo 4 | ./P | bash | bash
echo echo Hello!

Machen Sie P4:

$ echo 4 | ./P | bash | bash | bash
echo Hello!

Führen Sie P4 aus:

$ echo 4 |./P | bash | bash | bash | bash
Hello!

Angenommen, ich erstelle eine neue Allzwecksprache namens Golfbash - ähnlich wie Golfscript - mit einigen nützlichen Befehlen wie diesen:

R which reads stdin and places result into variable $REPLY.
n $1 $2 which echo's $1 $REPLY times followed by $2.
e which echo's all parameters to stdout.

Dann könnte ich folgendes schreiben:

R;n e Hello!

Das wäre legal, nicht wahr?

F #, 182

let say msg = sprintf "%s" msg
let gen num = 
    let rec g n a =
        match n with
        | i when i > 0 -> g (i-1) ("say \"" + a + "\"")
        | _ -> say a
    g num "Hello!"

J - 31 char

Beachten Sie, dass J Zeichenfolgen im Pascal-Stil verwendet: 'It''s too easy!'

'Hello!'(],,)''''#~<:2^".1!:1]1

Erklärt:

• ".1!:1]1 - Lesen Sie eine Zeile von stdin ein und konvertieren Sie sie in eine Zahl.
• <:2^ - Nehmen Sie 2 hoch von dieser Zahl und dekrementieren Sie.
• ''''#~ - Erstellen Sie eine Zeichenfolge mit so vielen Kopien des einfachen Anführungszeichens.
• 'Hello!'(],,)- Fügen Sie diese Anführungszeichen vorne und hinten an Hello!.

Verwendungszweck:

   'Hello!'(],,)''''#~<:2^".1!:1]1   NB. let's try 3
3
'''''''Hello!'''''''
   '''''''Hello!'''''''  NB. P1
'''Hello!'''
   '''Hello!'''          NB. P2
'Hello!'
   'Hello!'              NB. and P3 prints Hello!
Hello!

Python 2.7: 75

def h(n):
 return "Hello"if n<1 else'print %s' % `h(n-1)`
print h(input())

Beim ersten Golfen bin ich mir nicht sicher, ob ich es richtig mache

Clojure, 36 Bytes

(str(apply str(repeat 5\'))"Hello!")

Symbol

'something

bewertet zu

something

Erstellen Sie ein Symbol mit 5 einfachen Anführungszeichen und führen Sie das Ergebnis aus, bis keine Anführungszeichen mehr vorhanden sind.