Quine

[FAlter]

Hi,

das macht einfach mal Spaß. Da fühlt man sich gleich häppi und is viel besser als Drogen

Der Sinn ist es, was lustiges zu tun. Am einfachsten geht es natürlich in HQ9+:

Code:

Q

Mein erster Gedanke war es, einen HQ9+-Interpreter zu programmieren. Dann habe ich stattdessen einen Quine in Delphi geschrieben. Nur so, einfach als Gag, und weil ich in der DP noch keinen gefunden habe. Sowas darf doch nicht fehlen!

Mfg
FAlter

[edit] Nachtrag:

Zitat von mr_emre_d:

ich habs mir angeschaut !
Den Sinn versteh ich aber trotzdem nicht .. !!!


da, mein Einzeiler

Code:

program a;{$APPTYPE CONSOLE}const b='program a;{$APPTYPE CONSOLE}const a=begin end.';begin write(b) end.

Hi,

jaa, was dein Programm ausgibt, lässt sich nicht mal compilieren:

program a;{$APPTYPE CONSOLE}const a=begin end. Wenn du die Ausgabe meines Programmes compilierst, erhältst du wieder mein Programm, das ist ein Quine. Es gehört schon ein wenig denken dazu, daher musste ich ja den String in sich selbst so komisch einfügen.

Einen Fehler hab ich allerdings gemacht

Code:

program Quine; {$APPTYPE CONSOLE} var x: String = 'program Quine; {$APPTYPE CONSOLE} var x: String = ; begin Insert(#39 + x + #39, x, [b]50[/b]); writeln(x); readln; end.'; begin Insert(#39 + x + #39, x, [b]51[/b]); writeln(x); readln; end.

Naja, ist schnell geändert... werds gleich mal korrigieren.

[/edit]