Напишите программу, которая печатает свой собственный исходный код задом наперед, другими словами, eniuq .

Подсчет очков:

• +50, если вы используете данные из интернета.
• +25, если вы читаете свой собственный исходный код.
• +1 очко за персонажа
• Самый низкий балл побеждает.

Правила:

• Не используйте другие файлы (например reverse.txt)
• Минимальная длина кода составляет два символа.
• Ваша программа не может быть палиндромом.

GolfScript - 2

1

(т.е. \n1где \nнаходится символ перевода строки)

Выход:

1

(то есть 1\n)

Процитирую Илмари :

GolfScript автоматически добавляет новую строку в конец вывода

Таким образом, новая строка, за которой следует число, напечатает число, за которым следует новая строка.

да? , 5 символов

!hcuO

Я на самом деле понятия не имею, как это работает, но если вы загрузите переводчик, и если вы напишите !hcuO, то вы получитеOuch!

Чтобы запустить это, вам нужно выполнить программу следующим образом:

huh.exe !hcuO

На самом деле он будет искать файл с именем !hcuO, но он не существует, поэтому он выводитOuch!

Mathematica, 3 символа

a 2

a 2значит aраз 2. Так ответ 2 a.

H9 + , 13 символов

!dlrow ,olleH

Как говорится на веб - странице, все символы, которые не являются H, 9или +игнорируются, так что моя программа будет печататьHello, world!

Javascript: 34 символа

reifitnedi detcepxenU :rorrExatnyS

выходы SyntaxError: Unexpected identifier, по крайней мере, в консоли Chrome

Python, 43 41

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

Mathematica, 2 байта

1#

Выходы:

# 1

TI-BASIC, 2

i2

Где iмнимое число.

Выходы 2i

Бейсик, 22 12 7 знаков

:-)

1 enil ni rorre xatnyS

РЕДАКТИРОВАТЬ: Если вам разрешено войти в программу в непосредственном режиме, то это может быть уменьшено до rorre xatnyS(12 символов).

В BBC BASIC вам нужно всего 7 символов:

ekatsiM

C ++ 472 символа

Много символов, но я не могу придумать более простой способ на языке 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#");}

удар

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

Длина: 31 символов.

ш

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

Длина: 29 символов.

Этот не может работать на некоторых дистрибутивах Linux, но работает на OSX.

Tcsh

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

Длина: 26 символов.

CSH

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

Длина: 26 символов.

Победителем является:

КШ

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

Длина: 21 символов.

Выше должно работать на всех * ОС Unix.

GolfScript, 12 символов

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

Этот код берет строку в двойных кавычках "-1%.`", переворачивает ее ( -1%), дублирует ее ( .) и отменяет evals ( `) вторую копию, восстанавливая двойные кавычки вокруг нее.

Предыдущая запись (13 символов):

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

Основано на 8-символьной квине {'.~'}.~из этого ответа ; дополнительные 5 символов необходимы для строкового преобразования и обратного вывода.

Ps. Обратите внимание, что GolfScript автоматически добавляет новую строку в конец вывода. Если это считается частью вывода, соответствующий символ новой строки может быть добавлен перед любой версией кода без влияния на вывод за стоимость одного дополнительного символа.

Befunge 98 - 10 символов

"8k,'!1+,@

Это работает, если ваш интерпретатор не интерпретирует переносимые строки после "добавления дополнительного пробела. Если ваш интерпретатор интерпретирует обернутые строки, как это, то это решение с 11 символами работает ( потому что повторяющиеся пробелы в строковом литерале интерпретируются как один ):

"9k,'!1+,@ 

Если я могу использовать gбез штрафа, то они также работают (7 и 8 символов соответственно):

"5k,g,@

а также

"6k,g,@ 

Руби, 60

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

По мотивам классического рубинового квайна.

Perl, 41

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

Старый 52-символьный ответ (27 + 25 штрафов)

open+0;print ~~ reverse <0>

Читает собственный источник, сохраняет обратное в скаляре и печатает его.

Деление , 6 байт

Редкий случай обобщенной квин такой же длины, что и нормальная квин :

"LO+!'

Идея та же, что и у обычного quine, но мы используем левый атом (начиная с L), поэтому режим печати пересекает код в обратном порядке.

J: 26

Стандартное цитирование (26 символов) : путем определения функции и передачи ей собственного определения в кавычках:

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

Возможно, может быть сделано короче.

Специфично для J (33 символа) : определив переменную и спросив, в каком файле была определена переменная, т.е. этот, затем распечатав содержимое этого файла:

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

Должен быть сохранен и запущен из скрипта (т.е. не в REPL, потому что тогда ответ на вопрос «ваш аргумент не был определен в файле», поэтому нет файла для чтения).

> <> , 25 байт

Я был удивлен, обнаружив, что это еще не было сделано. :)

...yhsif sllems gnihtemoS

Вставьте код здесь и запустите его.

.это команда Jump, выскакивают xи yиз стека, и перемещение IP к (x, y)в окне кода. В этом случае стек пуст, поэтому выводится единственное сообщение об ошибке языка:

Something smells fishy...

Microscript , 11 байт

Я вроде должен был сделать это.

0"Caxq"Caxq

Удивительно, но это на самом деле короче самого короткого из известных истинных языков языка. qи aв остальном эквивалентны, за исключением того, что qдобавляет кавычки, а aне -.

JavaScript jQuery 119 92 74 70 персонажей

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

Теперь использую jQuery, как предложено в комментариях minitech, и вручную оборачивая, <pre><code>чтобы я мог использовать, text()не опасаясь, что другие блоки кода в этом посте будут мешать. <h4>Обертывание вручную с chrome было несовместимо, когда я тестировал его, поэтому теперь он должен работать в большинстве браузеров.

Эта программа, если запустить ее с этой страницы, находит блок кода прямо над ним, переворачивает его содержимое и помещает его в окно оповещения.

Его достаточно легко проверить, просто вставьте его в консоль разработчика.

PHP, 41 символ (+25)

Не знаю, правильно ли я понял задание. Но вот попытка PHP:

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

редактировать: это может быть намного короче:

echo strrev(file_get_contents(__FILE__));

Но так как это может быть так просто, это, вероятно, не то, что спрашивают ...

MATLAB, 78 знаков:

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

Обратите внимание, что решение требует, чтобы вы начали со специального символа (alt + 0160) и что оно печатает в точности перевернутое сообщение. (В отличие от решения Python)

UNIX shell, 31

Реальное решение на 52 персонажа:

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

Но будьте осторожны! Честность не окупается в современном мире! Штраф слишком низкий !!

6 символов + 25 = 31:

rev $0

MS-DOS, 24 байта

eman elif ro dnammoc daB

Выход:

Bad command or file name

JavaScript, 62

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

Работает для меня на последнем Chrome (v 31.0.1650.63). Некоторые другие браузеры могут выдавать другой вывод. (Если вы измените этот вывод, он будет работать: P)

SmileBASIC, 118 102 байта

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 байт

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

Вставьте пустую HTML-страницу, чтобы избежать конфликта с другими тегами.

JavaScript, 53 50 46 43 байта

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

Пожалуйста, помогите мне сократить это.

Нечеткое окто гуакамоле, 4 байта

KNU_

Kпечатает _UNK, Nтолкает Noneи Uтолкает 0. И _выскакивает верхнее значение в стеке (но не печатает). Так что только _UNKпечатается.