Escreva um programa que imprima seu próprio código fonte de trás para frente, ou seja, um eniuq .

Pontuação:

• +50 se você usar dados extraídos da Internet.
• +25 se você ler seu próprio código-fonte.
• +1 ponto por personagem
• Menor pontuação ganha.

Regras:

• Não é possível usar outros arquivos (por exemplo reverse.txt)
• O comprimento mínimo do código é de dois caracteres.
• Seu programa não pode ser um palíndromo.

GolfScript - 2

1

(ou seja, \n1onde \nestá o caractere de nova linha)

Resultado:

1

(ie 1\n)

Para citar Ilmari :

O GolfScript anexa automaticamente uma nova linha ao final da saída

Assim, uma nova linha seguida por um número imprimirá o número seguido por uma nova linha.

Hã? 5 caracteres

!hcuO

Na verdade, eu não faço ideia de como isso funciona, mas se você baixar o intérprete e se você escreve !hcuO, você obtémOuch!

Para executar isso, você precisa executar o programa como este:

huh.exe !hcuO

Na verdade, ele procurará um arquivo chamado !hcuO, mas ele não existe, portanto, geraOuch!

Mathematica, 3 caracteres

a 2

a 2significa avezes 2. Então a resposta é 2 a.

H9 + , 13 caracteres

!dlrow ,olleH

Como a página web diz, todos os caracteres que não são H, 9ou +são ignorados, então meu programa irá imprimirHello, world!

Javascript: 34 caracteres

reifitnedi detcepxenU :rorrExatnyS

saídas SyntaxError: Unexpected identifier, pelo menos no console do Chrome

Python, 43 41

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

Mathematica, 2 bytes

1#

Saídas:

# 1

TI-BASIC, 2

i2

Onde iestá o número imaginário.

Saídas 2i

BASIC, 22 12 7 caracteres

:-)

1 enil ni rorre xatnyS

EDIT: Se você tiver permissão para entrar no programa no modo imediato, isso poderá ser reduzido para rorre xatnyS(12 caracteres).

No BBC BASIC, você precisa apenas de 7 caracteres:

ekatsiM

C ++ 472 caracteres

Muitos personagens, mas não consigo pensar em uma maneira mais simples em uma linguagem baseada em 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#");}

bater

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

Comprimento: 31 caracteres.

sh

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

Comprimento: 29 caracteres.

Este não poderia funcionar em algumas distribuições Linux, mas funciona no OSX.

tcsh

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

Comprimento: 26 caracteres.

csh

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

Comprimento: 26 caracteres.

O vencedor é:

ksh

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

Comprimento: 21 caracteres.

Acima deve funcionar em todos os sistemas operacionais * baseados em unix.

GolfScript, 12 caracteres

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

Esse código pega a cadeia de caracteres entre aspas duplas "-1%.`", a inverte ( -1%), a duplica ( .) e desvaloriza ( `) a segunda cópia, restaurando as aspas duplas ao seu redor.

Entrada anterior (13 caracteres):

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

Baseado no quine {'.~'}.~de 8 caracteres desta resposta ; são necessários 5 caracteres extras para especificar e reverter a saída.

Ps. Observe que o GolfScript anexa automaticamente uma nova linha ao final da saída. Se isso for contado como parte da saída, uma nova linha correspondente poderá ser anexada a qualquer versão do código sem afetar a saída, por um custo de um caractere extra.

Befunge 98-10 caracteres

"8k,'!1+,@

Isso funciona se o seu intérprete não interpretar as linhas quebradas depois de "adicionar um espaço extra. Se o seu intérprete interpreta linhas quebradas assim, esta solução de 11 caracteres funciona ( porque os espaços duplicados em uma literal de cadeia de caracteres são interpretados como um ):

"9k,'!1+,@ 

Se eu puder usar gsem penalidade, eles também funcionarão (7 e 8 caracteres, respectivamente):

"5k,g,@

e

"6k,g,@ 

Ruby, 60

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

Baseado em um clássico ruby ​​quine.

Perl, 41

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

Resposta antiga de 52 caracteres (penalidade de 27 + 25)

open+0;print ~~ reverse <0>

Lê sua própria fonte, armazena o reverso em um escalar e imprime isso.

Fissão , 6 bytes

Um caso raro de uma quine generalizada com o mesmo comprimento da quine normal :

"LO+!'

A idéia é a mesma do quine normal, mas estamos usando um átomo de esquerda (começando no L) para que o modo de impressão atravesse o código na ordem oposta.

J: 26

Quining padrão (26 caracteres) : definindo uma função e passando sua própria definição, entre aspas:

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

Provavelmente poderia ser reduzido.

Específico para J (33 caracteres) : definindo uma variável e perguntando em qual arquivo a variável foi definida, ou seja, esta, e imprimindo o conteúdo desse arquivo:

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

Deve ser salvo e executado a partir de um script (ou seja, não no REPL, porque a resposta para a pergunta é "seu argumento não foi definido em um arquivo", portanto, não há arquivo para ler).

> <> , 25 bytes

Fiquei surpreso ao descobrir que isso ainda não havia sido feito. :)

...yhsif sllems gnihtemoS

Cole o código aqui e execute-o.

.é o comando Jump, saltando xe ysaindo da pilha e movendo o IP para (x, y)na caixa de código. Nesse caso, a pilha está vazia, portanto, a única mensagem de erro do idioma é impressa:

Something smells fishy...

Microscript , 11 bytes

Eu meio que tive que fazer isso.

0"Caxq"Caxq

Surpreendentemente, isso é realmente mais curto do que o quine verdadeiro mais curto e conhecido da língua. qe, acaso contrário, são equivalentes, exceto que qadiciona citações de quebra automática enquanto anão o faz.

JQuery JavaScript 119 92 74 70 caracteres

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

Agora, usando jQuery, como sugerido pela minitech nos comentários, e envolto manualmente com <pre><code>para que eu possa usar text()sem medo de outros blocos de código neste post interferirem. O empacotamento manual <h4>era incompatível com o chromeium quando o testei; agora, ele deve funcionar na maioria dos navegadores.

Este programa, se executado a partir desta página, localiza o bloco de código diretamente acima, reverte seu conteúdo e o coloca em uma caixa de alerta.

É fácil verificar, basta colá-lo no console de desenvolvimento.

PHP, 41 caracteres (+25)

Não sei se entendi a tarefa corretamente. Mas aqui está uma tentativa de PHP:

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

edit: isso pode ser muito mais curto:

echo strrev(file_get_contents(__FILE__));

Mas, como pode ser assim tão simples, provavelmente não é isso que está sendo perguntado ...

MATLAB, 78 caracteres:

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

Observe que a solução exige que você comece com um caractere especial (alt + 0160) e imprima exatamente a mensagem invertida. (Diferente da solução python)

Shell UNIX, 31

Solução real com 52 caracteres:

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

Mas cuidado! A honestidade não compensa no mundo de hoje! A penalidade é muito baixa !!

6 caracteres + 25 = 31:

rev $0

MS-DOS, 24 bytes

eman elif ro dnammoc daB

Resultado:

Bad command or file name

JavaScript, 62

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

Funciona para mim no Chrome mais recente (v 31.0.1650.63). Alguns outros navegadores podem fornecer uma saída diferente. (Se você reverter essa saída, funcionaria: 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>

Coloque uma página html em branco para evitar conflitos com outras tags.

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

Por favor, ajude-me a diminuir isso.

Fuzzy Octo Guacamole, 4 bytes

KNU_

Kimprime _UNK, Nempurra Nonee Uempurra 0. E _aparece o valor superior na pilha (mas não é impresso). Então, apenas _UNKé impresso.