Ecrivez un programme qui affiche son propre code source à l'envers, en d'autres termes, une éniuq .

Notation:

• +50 si vous utilisez des données extraites d’Internet.
• +25 si vous lisez votre propre code source.
• +1 point par caractère
• Le score le plus bas gagne.

Règles:

• Non en utilisant d'autres fichiers (par exemple reverse.txt)
• La longueur minimale du code est de deux caractères.
• Votre programme ne peut pas être un palindrome.

GolfScript - 2

1

(ie \n1où \nest le caractère de nouvelle ligne)

Sortie:

1

(ie 1\n)

Pour citer Ilmari :

GolfScript ajoute automatiquement une nouvelle ligne à la fin de la sortie

Ainsi, une nouvelle ligne suivie d'un numéro imprimera le numéro suivi d'une nouvelle ligne.

hein? , 5 personnages

!hcuO

En fait, je ne sais PAS du tout comment cela fonctionne, mais si vous téléchargez l’interprète, et si vous écrivez !hcuO, vous obtenezOuch!

Pour exécuter ceci, vous devez exécuter le programme comme ceci:

huh.exe !hcuO

Il cherchera en fait un fichier appelé !hcuO, mais il n’existe pas, donc il afficheOuch!

Mathematica, 3 caractères

a 2

a 2signifie afois 2. Donc, la réponse est 2 a.

H9 + , 13 caractères

!dlrow ,olleH

Comme la page Web dit, tous les caractères qui ne sont pas H, 9ou +sont ignorés, donc mon programme imprimerontHello, world!

Javascript: 34 caractères

reifitnedi detcepxenU :rorrExatnyS

sorties SyntaxError: Unexpected identifier, au moins dans la console Chrome

Python, 43 41

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

Mathematica, 2 octets

1#

Les sorties:

#1

TI-BASIC, 2

i2

Où iest le nombre imaginaire.

Les sorties 2i

BASIC, 22 12 7 caractères

:-)

1 enil ni rorre xatnyS

EDIT: Si vous êtes autorisé à entrer dans le programme en mode immédiat, cela pourrait être réduit à rorre xatnyS(12 caractères).

Dans BBC BASIC, vous n'avez besoin que de 7 caractères:

ekatsiM

C ++ 472 caractères

Beaucoup de caractères, mais je ne peux pas penser à un moyen plus simple dans un langage basé sur 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#");}

frapper

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

Longueur: 31 caractères.

sh

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

Longueur: 29 caractères.

Celui-ci ne pourrait pas fonctionner sur certaines distributions Linux, mais fonctionnait sous OSX.

tcsh

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

Longueur: 26 caractères.

csh

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

Longueur: 26 caractères.

Le gagnant est:

ksh

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

Longueur: 21 caractères.

Ci-dessus devrait fonctionner sur tous les systèmes d'exploitation basés sur * Unix.

GolfScript, 12 caractères

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

Ce code prend la chaîne entre guillemets "-1%.`", l'inverse ( -1%), le duplique ( .) et un-evals ( `) la deuxième copie, en restaurant les guillemets autour.

Entrée précédente (13 caractères):

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

Basé sur la quine à 8 caractères {'.~'}.~de cette réponse ; les 5 caractères supplémentaires sont nécessaires pour stringifier et inverser la sortie.

Ps. Notez que GolfScript ajoute automatiquement une nouvelle ligne à la fin de la sortie. Si cela fait partie de la sortie, une nouvelle ligne correspondante peut être ajoutée à l'une des versions du code sans affecter la sortie, moyennant un coût d'un caractère supplémentaire.

Befunge 98 - 10 caractères

"8k,'!1+,@

Cela fonctionne si votre interprète n'interprète pas les lignes après avoir "ajouté un espace supplémentaire. Si votre interprète interprète les lignes encapsulées de cette manière, cette solution à 11 caractères fonctionne ( car les espaces en double dans un littéral de chaîne sont interprétés comme une seule chose ):

"9k,'!1+,@ 

Si je peux utiliser gsans pénalité, ceux-ci fonctionnent également (7 et 8 caractères respectivement):

"5k,g,@

et

"6k,g,@ 

Ruby, 60 ans

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

Basé sur un classique Ruby Quine.

Perl, 41

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

Ancienne réponse de 52 caractères (27 + 25 pénalités)

open+0;print ~~ reverse <0>

Lit sa propre source, stocke l’inverse dans un scalaire et l’imprime.

Fission , 6 octets

Un cas rare de quine généralisé qui a la même longueur que le quine normal :

"LO+!'

L'idée est la même que celle de la quine normale, mais nous utilisons un atome de gauche (commençant par le L) pour que le mode d'impression traverse le code dans l'ordre inverse.

J: 26

Quining standard (26 caractères) : en définissant une fonction et en lui passant sa propre définition, entre guillemets:

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

Pourrait probablement être raccourci.

Spécifique à J (33 caractères) : en définissant une variable et en demandant dans quel fichier la variable a été définie, c'est-à-dire celui-ci, puis en imprimant le contenu de ce fichier:

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

Doit être sauvegardé et exécuté à partir d'un script (c'est-à-dire pas dans le REPL, car la réponse à la question est "votre argument n'a pas été défini dans un fichier", il n'y a donc aucun fichier à lire).

> <> , 25 octets

J'ai été surpris de constater que cela n'avait pas encore été fait. :)

...yhsif sllems gnihtemoS

Collez le code ici et lancez-le.

.est la commande Jump sautant xet ysortant de la pile et déplaçant l'adresse IP (x, y)dans la zone de code. Dans ce cas, la pile est vide, le seul message d'erreur de la langue est alors imprimé:

Something smells fishy...

Microscript , 11 octets

Je devais faire ça.

0"Caxq"Caxq

Étonnamment, c'est en fait plus court que le vrai quine le plus court connu de la langue. qet asont par ailleurs équivalents, à l'exception de l' qajout de guillemets, alors que ce an'est pas le cas.

JavaScript jQuery 119 92 74 70 caractères

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

Maintenant, en utilisant jQuery, comme minitech a suggéré dans les commentaires, et envelopper manuellement avec <pre><code>afin que je puisse utiliser text()sans crainte d'autres blocs de code dans ce post interférer. <h4>Lorsque je l'ai testé, le wrapping manuel avec était incompatible avec le chrome, il devrait donc maintenant fonctionner dans la plupart des navigateurs.

Ce programme, s’il est exécuté à partir de cette page, trouve le bloc de code directement au-dessus, inverse son contenu et le place dans une boîte d’alerte.

C'est assez facile à vérifier, il suffit de le coller dans la console de développement.

PHP, 41 caractères (+25)

Je ne sais pas si j'ai bien compris la tâche. Mais voici un essai PHP:

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

edit: cela peut être beaucoup plus court:

echo strrev(file_get_contents(__FILE__));

Mais comme cela peut être aussi simple, ce n’est probablement pas ce qui est demandé ...

MATLAB, 78 caractères:

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

Notez que la solution nécessite de commencer par un caractère spécial (alt + 0160) et d’imprimer exactement le message inversé. (Contrairement à la solution python)

Shell UNIX, 31

Véritable solution à 52 caractères:

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

Mais méfiez-vous! L'honnêteté ne paie pas dans le monde d'aujourd'hui! La pénalité est trop basse !!

6 caractères + 25 = 31:

rev $0

MS-DOS, 24 octets

eman elif ro dnammoc daB

Sortie:

Bad command or file name

JavaScript, 62

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

Fonctionne pour moi sur la dernière version de Chrome (v 31.0.1650.63). Certains autres navigateurs peuvent donner une sortie différente. (Si vous inversez cette sortie, alors cela fonctionnerait: P)

SmileBASIC, 118 102 octets

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 octets

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

Mettez une page HTML vide pour éviter tout conflit avec d’autres balises.

JavaScript, 53 50 46 43 octets

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

S'il vous plaît aidez-moi à raccourcir cela.

Fuzzy Octo Guacamole, 4 octets

KNU_

Kimprime _UNK, Npousse Noneet Upousse 0. Et _affiche la valeur la plus élevée sur la pile (mais n’imprime pas). Alors seulement _UNKest imprimé.