Tulis program yang mencetak kode sumbernya sendiri ke belakang, dengan kata lain eniuq .

Mencetak:

• +50 jika Anda menggunakan data tarikan dari Internet.
• +25 jika Anda membaca kode sumber Anda sendiri.
• +1 poin per karakter
• Skor terendah menang.

Aturan:

• Tidak menggunakan file lain (mis. reverse.txt)
• Panjang kode minimum adalah dua karakter.
• Program Anda tidak bisa menjadi palindrome.

GolfScript - 2

1

(yaitu di \n1mana \nkarakter baris baru)

Keluaran:

1

(yaitu 1\n)

Mengutip Ilmari :

GolfScript secara otomatis menambahkan baris baru ke akhir output

Dengan demikian, baris baru diikuti oleh nomor akan mencetak nomor diikuti oleh baris baru.

Hah? , 5 karakter

!hcuO

Saya benar-benar TIDAK tahu cara kerjanya, tetapi Jika Anda mengunduh juru bahasa, dan jika Anda menulis !hcuO, maka Anda dapatOuch!

Untuk menjalankan ini, Anda perlu menjalankan program seperti ini:

huh.exe !hcuO

Ini benar-benar akan mencari file yang dipanggil !hcuO, tetapi tidak ada, jadi itu outputOuch!

Mathematica, 3 karakter

a 2

a 2berarti akali 2. Jadi jawabannya adalah 2 a.

H9 + , 13 karakter

!dlrow ,olleH

Seperti yang dikatakan halaman web, semua karakter yang tidak H, 9atau +diabaikan, jadi program saya akan mencetakHello, world!

Javascript: 34 karakter

reifitnedi detcepxenU :rorrExatnyS

output SyntaxError: Unexpected identifier, setidaknya di konsol Chrome

Python, 43 41

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

Mathematica, 2 byte

1#

Output:

# 1

TI-BASIC, 2

i2

Di mana iangka imajiner.

Keluaran 2i

BASIC, 22 12 7 karakter

:-)

1 enil ni rorre xatnyS

EDIT: Jika Anda diizinkan untuk masuk ke program dalam mode langsung, maka ini dapat dikurangi menjadi rorre xatnyS(12 karakter).

Di BBC BASIC, Anda hanya perlu 7 karakter:

ekatsiM

C ++ 472 karakter

Banyak karakter tapi saya tidak bisa memikirkan cara yang lebih sederhana dalam bahasa berbasis 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#");}

pesta

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

Panjangnya: 31 karakter.

SH

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

Panjangnya: 29 karakter.

Yang ini tidak bisa bekerja di beberapa distribusi Linux, tetapi bekerja di OSX.

tcsh

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

Panjangnya: 26 karakter.

csh

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

Panjangnya: 26 karakter.

Pemenangnya adalah:

ksh

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

Panjangnya: 21 karakter.

Di atas harus bekerja pada semua * OS berbasis unix.

GolfScript, 12 karakter

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

Kode ini mengambil string yang dikutip ganda "-1%.`", membaliknya ( -1%), menduplikatnya ( .) dan menghapuskan ( `) salinan kedua, mengembalikan tanda kutip ganda di sekitarnya.

Entri sebelumnya (13 karakter):

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

Berdasarkan quine 8-char {'.~'}.~dari jawaban ini ; 5 karakter tambahan diperlukan untuk meregangkan dan membalikkan output.

Ps. Perhatikan bahwa GolfScript secara otomatis menambahkan baris baru ke akhir output. Jika ini dihitung sebagai bagian dari output, baris baru yang sesuai dapat ditambahkan ke salah satu versi kode tanpa mempengaruhi output, dengan biaya satu karakter tambahan.

Befunge 98 - 10 karakter

"8k,'!1+,@

Ini berfungsi jika penerjemah Anda tidak menginterpretasikan garis yang dibungkus setelah "menambahkan ruang tambahan. Jika penerjemah Anda menginterpretasikan garis yang dibungkus seperti itu, maka solusi char 11 ini berfungsi ( karena ruang duplikat dalam string literal ditafsirkan sebagai satu ):

"9k,'!1+,@ 

Jika saya dapat menggunakan gtanpa penalti, maka ini juga berfungsi (masing-masing 7 dan 8 karakter):

"5k,g,@

dan

"6k,g,@ 

Ruby, 60

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

Berdasarkan quine Ruby klasik.

Perl, 41

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

Jawaban 52 karakter lama (27 + 25 penalti)

open+0;print ~~ reverse <0>

Membaca sumbernya sendiri, menyimpan yang terbalik dalam skalar, dan mencetaknya.

Fission , 6 byte

Kasus langka quine umum yang panjangnya sama dengan quine normal :

"LO+!'

Idenya sama dengan yang ada pada quine normal, tetapi kami menggunakan atom yang pergi-kiri (mulai dari L) sehingga mode cetak melintasi kode dalam urutan yang berlawanan.

J: 26

Quining standar (26 karakter) : dengan mendefinisikan fungsi dan memberikan definisi sendiri, dalam tanda kutip:

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

Mungkin bisa dibuat lebih pendek.

J-specific (33 chars) : dengan mendefinisikan suatu variabel dan menanyakan file apa yang dimaksud dengan variabel, yaitu yang ini, lalu mencetak konten file itu:

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

Harus disimpan & dijalankan dari skrip (mis. Tidak dalam REPL, karena dengan demikian jawaban atas pertanyaan adalah "argumen Anda tidak didefinisikan dalam file", jadi tidak ada file untuk dibaca).

> <> , 25 byte

Saya terkejut menemukan ini belum dilakukan. :)

...yhsif sllems gnihtemoS

Tempel kode di sini dan jalankan.

.adalah perintah Langsung, muncul xdan ykeluar dari tumpukan, dan memindahkan IP ke (x, y)dalam kotak kode. Dalam hal ini, tumpukan kosong, sehingga hanya pesan kesalahan bahasa yang dicetak:

Something smells fishy...

Microscript , 11 byte

Saya semacam harus melakukan ini.

0"Caxq"Caxq

Anehnya, ini sebenarnya lebih pendek dari quine true bahasa terpendek yang diketahui. qdan asebaliknya, kecuali qmenambahkan tanda kutip sementara atidak.

JavaScript jQuery 119 92 74 70 karakter

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

Sekarang menggunakan jQuery, seperti yang disarankan minitech dalam komentar, dan membungkusnya secara manual <pre><code>sehingga saya dapat menggunakan text()tanpa takut blok kode lain dalam posting ini mengganggu. <h4>Membungkus dengan secara manual tidak kompatibel dengan kromium ketika saya mengujinya, jadi sekarang ini akan berfungsi di sebagian besar browser.

Program ini, jika dijalankan dari halaman ini, menemukan blok kode tepat di atas, membalikkan isinya, dan meletakkannya di kotak peringatan.

Cukup mudah untuk memverifikasi, cukup tempelkan ke konsol dev.

PHP, 41 karakter (+25)

Tidak tahu apakah saya memahami tugas dengan benar. Tapi di sini coba PHP:

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

sunting: ini bisa menjadi jauh lebih pendek:

echo strrev(file_get_contents(__FILE__));

Tapi karena bisa sesederhana itu, ini mungkin bukan yang diminta ...

MATLAB, 78 karakter:

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

Perhatikan bahwa solusinya mengharuskan Anda untuk memulai dengan karakter khusus (alt + 0160) dan mencetak persis pesan yang dibalik. (Berbeda dengan solusi python)

UNIX shell, 31

Solusi nyata di 52 karakter:

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

Tapi waspadalah! Kejujuran tidak membuahkan hasil di dunia saat ini! Penalti terlalu rendah !!

6 karakter + 25 = 31:

rev $0

MS-DOS, 24 byte

eman elif ro dnammoc daB

Keluaran:

Bad command or file name

JavaScript, 62

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

Bekerja untuk saya di Chrome terbaru (v 31.0.1650.63). Beberapa browser lain mungkin memberikan output yang berbeda. (Jika Anda membalikkan output itu, maka itu akan berhasil: 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>

Masukkan halaman html kosong untuk menghindari konflik dengan tag lain.

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

Tolong bantu saya mempersingkat ini.

Fuzzy Octo Guacamole, 4 byte

KNU_

Kmencetak _UNK, Nmendorong None, dan Umendorong 0. Dan _muncul nilai teratas pada tumpukan (tetapi tidak mencetak). Jadi hanya _UNKdicetak.