Scrivi un programma che stampa il proprio codice sorgente all'indietro, in altre parole un eniuq .

punteggio:

• +50 se si utilizzano i dati pull da Internet.
• +25 se leggi il tuo codice sorgente.
• +1 punto per personaggio
• Il punteggio più basso vince.

Regole:

• Non usare altri file (ad es. reverse.txt)
• La lunghezza minima del codice è di due caratteri.
• Il tuo programma non può essere un palindromo.

GolfScript - 2

1

(ovvero \n1dove si \ntrova il carattere di nuova riga)

Produzione:

1

(ie 1\n)

Per citare Ilmari :

GolfScript aggiunge automaticamente una nuova riga alla fine dell'output

Quindi una nuova riga seguita da un numero stamperà il numero seguito da una nuova riga.

eh? , 5 caratteri

!hcuO

In realtà non ho idea di come funzioni, ma se scarichi l'interprete e se scrivi !hcuO, allora ottieniOuch!

Per eseguire questo, è necessario eseguire il programma in questo modo:

huh.exe !hcuO

In realtà cercherà un file chiamato !hcuO, ma non esiste, quindi viene generatoOuch!

Mathematica, 3 caratteri

a 2

a 2significa avolte 2. Quindi la risposta è 2 a.

H9 + , 13 caratteri

!dlrow ,olleH

Come pagina web dice, tutti i caratteri che non sono H, 9o +vengono ignorati, quindi il mio programma stamperàHello, world!

Javascript: 34 caratteri

reifitnedi detcepxenU :rorrExatnyS

output SyntaxError: Unexpected identifier, almeno nella console di Chrome

Python, 43 41

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

Mathematica, 2 byte

1#

Uscite:

# 1

TI-BASIC, 2

i2

Dov'è iil numero immaginario.

Uscite 2i

BASIC, 22 12 7 caratteri

:-)

1 enil ni rorre xatnyS

MODIFICA: Se ti è permesso accedere al programma in modalità immediata, questo potrebbe essere ridotto a rorre xatnyS(12 caratteri).

In BBC BASIC, hai solo bisogno di 7 personaggi:

ekatsiM

C ++ 472 caratteri

Molti personaggi, ma non riesco a pensare a un modo più semplice in un linguaggio basato su c.

#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

Lunghezza: 31 caratteri.

sh

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

Lunghezza: 29 caratteri.

Questo non potrebbe funzionare su alcune distribuzioni Linux, ma funziona su OSX.

tcsh

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

Lunghezza: 26 caratteri.

csh

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

Lunghezza: 26 caratteri.

Il vincitore è:

ksh

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

Lunghezza: 21 caratteri.

Sopra dovrebbe funzionare su tutti i sistemi operativi basati su * unix.

GolfScript, 12 caratteri

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

Questo codice prende la stringa tra virgolette doppie "-1%.`", la inverte ( -1%), la duplica ( .) e un-evals ( `) la seconda copia, ripristinandone le doppie virgolette.

Voce precedente (13 caratteri):

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

Basato sul quine a 8 caratteri {'.~'}.~di questa risposta ; i 5 caratteri extra sono necessari per restringere e invertire l'output.

Ps. Si noti che GolfScript aggiunge automaticamente una nuova riga alla fine dell'output. Se questo viene conteggiato come parte dell'output, una nuova riga corrispondente può essere anteposta a entrambe le versioni del codice senza influire sull'output, al costo di un carattere aggiuntivo.

Befunge 98 - 10 caratteri

"8k,'!1+,@

Questo funziona se il tuo interprete non interpreta le linee avvolte dopo aver "aggiunto uno spazio extra. Se il tuo interprete interpreta le linee avvolte in questo modo, allora questa soluzione a 11 caratteri funziona ( perché gli spazi duplicati in una stringa letterale vengono interpretati come uno ):

"9k,'!1+,@ 

Se posso usare gsenza penalità, allora funzionano anche questi (7 e 8 caratteri rispettivamente):

"5k,g,@

e

"6k,g,@ 

Ruby, 60 anni

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

Basato su un classico quino di rubini.

Perl, 41

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

Vecchia risposta di 52 caratteri (27 + 25 penalità)

open+0;print ~~ reverse <0>

Legge la propria fonte, memorizza il contrario in uno scalare e lo stampa.

Fissione , 6 byte

Un raro caso di un quine generalizzato della stessa lunghezza del quine normale :

"LO+!'

L'idea è la stessa di quella normale, ma stiamo usando un atomo di sinistra (a partire dal L) in modo che la modalità di stampa attraversi il codice nell'ordine opposto.

J: 26

Quining standard (26 caratteri) : definendo una funzione e passandone la propria definizione, tra virgolette:

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

Probabilmente potrebbe essere ridotto.

Specifico di J (33 caratteri) : definendo una variabile e chiedendo in quale file è stata definita la variabile, cioè questa, quindi stampando il contenuto di quel file:

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

Deve essere salvato ed eseguito da uno script (cioè non nella REPL, perché la risposta alla domanda è "il tuo argomento non è stato definito in un file", quindi non c'è nessun file da leggere).

> <> , 25 byte

Sono stato sorpreso di scoprire che questo non era ancora stato fatto. :)

...yhsif sllems gnihtemoS

Incolla il codice qui ed eseguilo.

.è il comando Salta, saltando xe scagliando ylo stack e spostando l'IP (x, y)nella casella del codice. In questo caso, lo stack è vuoto, quindi viene stampato l'unico messaggio di errore della lingua:

Something smells fishy...

Microscript , 11 byte

In un certo senso ho dovuto farlo.

0"Caxq"Caxq

Sorprendentemente, questo è in realtà più breve del quine vero più breve conosciuto della lingua. qe asono altrimenti equivalenti, salvo l' qaggiunta di virgolette mentre anon lo fa.

JavaScript jQuery 119 92 74 70 caratteri

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

Ora usando jQuery, come suggerito da minitech nei commenti, e eseguendo il wrapping manuale in <pre><code>modo che io possa usare text()senza timore che altri blocchi di codice in questo post interferiscano. Il wrapping manuale con è <h4>stato incompatibile con il cromo quando l'ho testato, quindi ora dovrebbe funzionare nella maggior parte dei browser.

Questo programma, se eseguito da questa pagina, trova il blocco di codice direttamente sopra, ne inverte il contenuto e lo inserisce in una finestra di avviso.

È abbastanza facile da verificare, basta incollarlo nella console di sviluppo.

PHP, 41 caratteri (+25)

Non so se ho capito bene l'incarico. Ma ecco una prova di PHP:

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

modifica: questo può essere molto più breve:

echo strrev(file_get_contents(__FILE__));

Ma dal momento che può essere così semplice, questo probabilmente non è ciò che viene chiesto ...

MATLAB, 78 caratteri:

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

Si noti che la soluzione richiede di iniziare con un carattere speciale (alt + 0160) e che stampa esattamente il messaggio invertito. (A differenza della soluzione Python)

Shell UNIX, 31

Vera soluzione a 52 caratteri:

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

Ma attenzione! L'onestà non paga nel mondo di oggi! La pena è troppo bassa !!

6 caratteri + 25 = 31:

rev $0

MS-DOS, 24 byte

eman elif ro dnammoc daB

Produzione:

Bad command or file name

JavaScript, 62

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

Funziona per me sull'ultimo Chrome (v 31.0.1650.63). Alcuni altri browser potrebbero fornire un output diverso. (Se si inverte quell'output, allora funzionerebbe: P)

SmileBASIC, 118 102 byte

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 byte

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

Inserisci una pagina HTML vuota per evitare conflitti con altri tag.

JavaScript, 53 50 46 43 byte

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``)()

Per favore, aiutatemi ad abbreviare.

Fuzzy Octo Guacamole, 4 byte

KNU_

Kstampa _UNK, Nspinge Nonee Uspinge 0. E _fa apparire il valore più alto nella pila (ma non stampa). Quindi _UNKviene stampato solo .