Schreiben Sie ein Programm, das seinen eigenen Quellcode rückwärts ausgibt, also eine eniuq .

Wertung:

• +50, wenn Sie Pull-Daten aus dem Internet verwenden.
• +25, wenn Sie Ihren eigenen Quellcode lesen.
• +1 Punkt pro Zeichen
• Die niedrigste Punktzahl gewinnt.

Regeln:

• Keine Verwendung anderer Dateien (zB reverse.txt)
• Die Mindestcodelänge beträgt zwei Zeichen.
• Ihr Programm kann kein Palindrom sein.

GolfScript - 2

1

(dh \n1wo \nist das Newline-Zeichen)

Ausgabe:

1

(ie 1\n)

Um Ilmari zu zitieren :

GolfScript fügt automatisch eine neue Zeile an das Ende der Ausgabe an

Eine neue Zeile gefolgt von einer Nummer gibt also die Nummer gefolgt von einer neuen Zeile aus.

huh? 5 Zeichen

!hcuO

Ich habe eigentlich KEINE Ahnung, wie es funktioniert, aber wenn du den Interpreter herunterlädst und schreibst !hcuO, dann bekommst duOuch!

Um dies auszuführen, müssen Sie das Programm folgendermaßen ausführen:

huh.exe !hcuO

Es wird tatsächlich nach einer aufgerufenen Datei gesucht !hcuO, diese existiert jedoch nicht, sodass sie ausgegeben wirdOuch!

Mathematica, 3 Zeichen

a 2

a 2bedeutet amal 2. Die Antwort ist also 2 a.

H9 + , 13 Zeichen

!dlrow ,olleH

Wie die Webseite sagt, alle Zeichen , die nicht sind H, 9oder +ignoriert werden, so wird mein Programm druckenHello, world!

Javascript: 34 Zeichen

reifitnedi detcepxenU :rorrExatnyS

Ausgänge SyntaxError: Unexpected identifier, zumindest in der Chrome-Konsole

Python, 43 41

_=']0~::[_%%_ tnirp;%r=_';print _%_[::~0]

Mathematica, 2 Bytes

1#

Ausgänge:

# 1

TI-BASIC, 2

i2

Wo i ist die imaginäre Zahl?

Ausgänge 2i

BASIC, 22 12 7 Zeichen

:-)

1 enil ni rorre xatnyS

BEARBEITEN: Wenn Sie das Programm im Sofortmodus aufrufen dürfen, kann dies auf rorre xatnyS(12 Zeichen) reduziert werden .

In BBC BASIC benötigen Sie nur 7 Zeichen:

ekatsiM

C ++ 472 Zeichen

Viele Charaktere, aber ich kann mir keinen einfacheren Weg in einer C-basierten Sprache vorstellen.

#include<iostream>
#include<string.h>
#define p(t) std::cout<<'}'<<';'<<')'<<strrev(&std::string(#t)[0])<<t;
char* strrev(char*p){char*t=p;char*q=p;while(q&&*q)++q;for(--q;p<q;++p,--q)*p=*p^*q,*q=*p^*q,*p=*p^*q;return t;}
int main(){p("(p{)(niam tni};t nruter;q*^p*=p*,q*^p*=q*,q*^p*=p*)q--,p++;q<p;q--(rof;q++)q*&&q(elihw;p=q*rahc;p=t*rahc{)p*rahc(verrts *rahc;t<<)]0[)t#(gnirts::dts&(verrts<<')'<<';'<<'}'<<tuoc::dts )t(p enifed#>h.gnirts<edulcni#>maertsoi<edulcni#");}

Bash

$ dnuof ton dnammoc :found :hsab-
-bash: dnuof: command not found

Länge: 31 Zeichen.

Sch

$ dnuof ton dnammoc :found :hs-
sh: dnuof: command not found

Länge: 29 Zeichen.

Dieser konnte auf einigen Linux-Distributionen nicht funktionieren, funktioniert aber unter OSX.

tcsh

$ .dnuof ton dnammoC :found.
.dnuof: Command not found.

Länge: 26 Zeichen.

csh

% .dnuof ton dnammoC :found.
.dnuof: Command not found.

Länge: 26 Zeichen.

Der Gewinner ist:

ksh

$ dnuof ton :found :hsk
ksh: dnuof: not found

Länge: 21 Zeichen.

Oben sollte auf allen * Unix-basierten Betriebssystemen funktionieren.

GolfScript, 12 Zeichen

"-1%.`"-1%.`

Dieser Code verwendet die doppelte Zeichenfolge in Anführungszeichen "-1%.`", kehrt sie um ( -1%), dupliziert sie ( .) und entfernt ( `) die zweite Kopie und stellt die doppelten Anführungszeichen wieder her.

Vorheriger Eintrag (13 Zeichen):

{`'.~'+-1%}.~

Basierend auf der 8-Zeichen-Quine {'.~'}.~aus dieser Antwort ; Die zusätzlichen 5 Zeichen werden benötigt, um die Ausgabe zu stringifizieren und umzukehren.

Ps. Beachten Sie, dass GolfScript automatisch eine neue Zeile an das Ende der Ausgabe anfügt. Wenn dies als Teil der Ausgabe gezählt wird, kann jeder Version des Codes ein entsprechender Zeilenumbruch vorangestellt werden, ohne dass sich dies auf die Ausgabe auswirkt. Dies kostet ein zusätzliches Zeichen.

Befunge 98 - 10 Zeichen

"8k,'!1+,@

Dies funktioniert, wenn Ihr Interpreter umgebrochene Zeilen nach "dem Hinzufügen eines zusätzlichen Leerzeichens nicht interpretiert . Wenn Ihr Interpreter umbrochene Zeilen so interpretiert, funktioniert diese 11-Zeichen-Lösung ( da doppelte Leerzeichen in einem Zeichenfolgenliteral als eins interpretiert werden ):

"9k,'!1+,@ 

Wenn ich gohne Strafe verwenden kann, dann funktionieren diese auch (7 bzw. 8 Zeichen):

"5k,g,@

und

"6k,g,@ 

Rubin, 60

puts(2,s=<<2.chop.reverse,s)
puts(2,s=<<2.chop.reverse,s)
2

Basierend auf einem klassischen Ruby Quine.

Perl, 41

$_=q{print~~reverse"\$_=q{$_};eval"};eval

Alte Antwort mit 52 Zeichen (27 + 25 Strafpunkte)

open+0;print ~~ reverse <0>

Liest seine eigene Quelle, speichert die Rückseite in einem Skalar und druckt diese aus.

Fission , 6 Bytes

Ein seltener Fall einer verallgemeinerten Quine, die die gleiche Länge wie die normale Quine hat :

"LO+!'

Die Idee ist die gleiche wie bei der normalen Quine, aber wir verwenden ein linkes Atom (beginnend bei L), damit der Druckmodus den Code in umgekehrter Reihenfolge durchläuft.

J: 26

Standard-Quining (26 Zeichen) : durch Definieren einer Funktion und Übergeben einer eigenen Definition in Anführungszeichen:

|.(,],2#{:)'|.(,],2#{:)'''

Könnte wahrscheinlich kürzer gemacht werden.

J-spezifisch (33 Zeichen) : indem Sie eine Variable definieren und fragen, in welcher Datei die Variable definiert wurde, dh in dieser, und dann den Inhalt dieser Datei ausdrucken:

1!:2&2|.1!:1(4!:4 a=:<'a'){4!:3''

Muss von einem Skript aus gespeichert und ausgeführt werden (dh nicht in der REPL, da die Antwort auf die Frage "Ihr Argument wurde nicht in einer Datei definiert" lautet, sodass keine Datei zum Lesen vorhanden ist).

> <> 25 Bytes

Ich war überrascht, dass dies noch nicht geschehen war. :)

...yhsif sllems gnihtemoS

Code hier einfügen und ausführen.

.Befehl ist der Sprung, Popping xund yvom Stapel, und die IP zu bewegen (x, y)in der Code - Box. In diesem Fall ist der Stapel leer, sodass die einzige Fehlermeldung der Sprache ausgegeben wird:

Something smells fishy...

Microscript , 11 Byte

Ich musste das irgendwie tun.

0"Caxq"Caxq

Überraschenderweise ist dies tatsächlich kürzer als die kürzeste bekannte wahre Quine der Sprache. qund asind ansonsten äquivalent, mit der Ausnahme, dass qumschließende Anführungszeichen hinzugefügt werden, während adies nicht der Fall ist.

JavaScript jQuery 119 92 74 70 Zeichen

alert($("#answer-16051 pre code").text().split("").reverse().join(""))

Jetzt benutze <pre><code>ich jQuery, wie es Minitech in den Kommentaren vorgeschlagen hat, und setze es manuell ein, damit ich es verwenden kann, text()ohne Angst davor zu haben, dass andere Codeblöcke in diesem Beitrag stören. Das <h4>manuelle Umschließen mit war beim Testen mit Chromeium nicht kompatibel, daher sollte es jetzt in den meisten Browsern funktionieren.

Wenn dieses Programm auf dieser Seite ausgeführt wird, findet es den Codeblock direkt darüber, kehrt seinen Inhalt um und legt ihn in eine Warnbox.

Es ist einfach zu überprüfen, fügen Sie es einfach in die Entwickler-Konsole ein.

PHP, 41 Zeichen (+25)

Ich weiß nicht, ob ich die Aufgabe richtig verstanden habe. Aber hier ist ein PHP-Versuch:

while(!isset($s) || $s) echo isset($s) ? array_pop($s) : ($s = str_split(file_get_contents(__FILE__)) and null);

edit: das kann viel kürzer sein:

echo strrev(file_get_contents(__FILE__));

Aber da es so einfach sein kann, wird wahrscheinlich nicht danach gefragt ...

MATLAB, 78 Zeichen:

 
|
.snoisserpxe ro stnemetats BALTAM ni dilav ton si retcarahc tupni ehT :rorrE

Beachten Sie, dass die Lösung erfordert, dass Sie mit einem Sonderzeichen (alt + 0160) beginnen und dass genau die umgekehrte Nachricht gedruckt wird. (Im Gegensatz zur Python-Lösung)

UNIX-Shell, 31

Echte Lösung mit 52 Zeichen:

A='printf "A$ lave;\047`echo $A|rev`\047=A"';eval $A

Aber Vorsicht! Ehrlichkeit zahlt sich in der heutigen Welt nicht aus! Strafe ist zu niedrig !!

6 Zeichen + 25 = 31:

rev $0

MS-DOS, 24 Bytes

eman elif ro dnammoc daB

Ausgabe:

Bad command or file name

JavaScript, 62

function f(){alert((f+'f()').split('').reverse().join(''))}f()

Funktioniert für mich auf dem neuesten Chrome (v 31.0.1650.63). Einige andere Browser geben möglicherweise eine andere Ausgabe aus. (Wenn Sie diese Ausgabe umkehren, dann würde es funktionieren: P)

SmileBASIC, 118 102 Bytes

FOR I=-101TO.?MID$(("+CHR$(34))*3,30,102)[-I];:NEXTFOR I=-100TO.?MID$(("+CHR$(34))*3,30,102)[-I];:NEXT

JavaScript, 56

($=_=>_!=$._?_?$(_.slice(1))+_[0]:')':$('($='+$+')('))()

CSS, 88 Bytes

<style>:before,*{display:block;unicode-bidi:bidi-override;direction:rtl;content:'<style>

Fügen Sie eine leere HTML-Seite ein, um Konflikte mit anderen Tags zu vermeiden.

JavaScript, 53 50 46 43 Bytes

q=_=>("q="+q+";q()").split("").reverse().join("");q()

(q=_=>`(q=${q})()`.split("").reverse().join(""))()

(q=_=>`(q=${q})()`.split``.reverse().join``)()

(q=_=>[...`(q=${q})()`].reverse().join``)()

Bitte helfen Sie mir, dies zu verkürzen.

Fuzzy Octo Guacamole, 4 Bytes

KNU_

Kdruckt _UNK, Ndrückt Noneund Udrückt 0. Und _legt den obersten Wert auf dem Stapel ab (druckt aber nicht). Also wird nur _UNKgedruckt.