Kendi kaynak kodunu geriye doğru yazdıran bir program, bir başka deyişle bir eniuq yazın .

Puanlama:

• İnternetten veri çekme kullanıyorsanız +50.
• Kendi kaynak kodunuzu okursanız +25.
• Karakter başına +1 puan
• En düşük puan kazanır.

Kurallar:

• Başka dosyalar kullanmamak (örneğin reverse.txt)
• Minimum kod uzunluğu iki karakterdir.
• Programınız bir palindrom olamaz.

GolfScript - 2

1

(yani , newline karakteri \n1nerede \n)

Çıktı:

1

(yani 1\n)

Ilmari'den alıntı yapmak için :

GolfScript otomatik olarak çıkışın sonuna yeni satır ekler

Böylece bir sayının takip ettiği bir yeni satır, ardından bir sayının yeni bir satır tarafından yazdırılması gerekir.

ha? , 5 karakter

!hcuO

Aslında nasıl çalıştığı hakkında hiçbir fikrim yok, ancak tercümanı indirirseniz ve yazarsanız !hcuO, o zamanOuch!

Bunu çalıştırmak için, programı böyle yürütmeniz gerekir:

huh.exe !hcuO

Aslında adında bir dosyayı arayacak !hcuO, ancak yok, bu yüzden çıktılarOuch!

Mathematica, 3 karakter

a 2

a 2a2 kez anlamına gelir . Yani cevap 2 a.

H9 + , 13 karakter

!dlrow ,olleH

Web sayfası söylediği gibi olmayan tüm karakterler H, 9ya +görmezden, yani programım yazdırırHello, world!

Javascript: 34 karakter

reifitnedi detcepxenU :rorrExatnyS

çıktılar SyntaxError: Unexpected identifier, en azından Chrome konsolunda

Python, 43 41

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

Mathematica, 2 bayt

1#

Çıktılar:

1.

TI-BASIC, 2

i2

iHayali sayı nerede .

çıktılar 2i

TEMEL, 22 12 7 karakter

:-)

1 enil ni rorre xatnyS

EDIT: Programa hemen modda girme izniniz varsa, bu daha sonra rorre xatnyS(12 karakter) azaltılabilir .

BBC BASIC'de sadece 7 karaktere ihtiyacınız var:

ekatsiM

C ++ 472 karakter

Çok fazla karakter var ama c tabanlı bir dilde daha basit bir yol düşünemiyorum.

#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#");}

darbe

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

Uzunluk: 31 karakter.

sh

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

Uzunluk: 29 karakter.

Bu bir Linux dağıtımında işe yaramadı, ama OSX'de çalıştı.

tcsh

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

Uzunluk: 26 karakter.

csh

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

Uzunluk: 26 karakter.

Kazanan:

ksh

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

Uzunluk: 21 karakter.

Yukarıdakilerin tümü * unix tabanlı işletim sistemlerinde çalışmalıdır.

GolfScript, 12 karakter

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

Bu kod çift tırnaklı dizgiyi alır "-1%.`", tersine çevirir ( -1%), çoğaltır ( .) ve `ikinci kopyayı kaldırır ( ) etrafındaki çift tırnakları geri yükler.

Önceki giriş (13 karakter):

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

8-Char Quine'ın göre {'.~'}.~gelen Bu yanıt ; Çıktıyı dizmek ve tersine çevirmek için ekstra 5 karakter gerekir.

Ps. GolfScript'in otomatik olarak çıkışın sonuna yeni bir satır eklediğini unutmayın. Bu, çıktının bir parçası olarak sayılırsa, ilgili yeni satır, çıktısını etkilemeden kodun her iki sürümüne de ek bir karaktere karşılık hazırlanabilir.

Befunge 98 - 10 karakter

"8k,'!1+,@

Bu, tercümanınızın "eklenmiş bir boşluk ekledikten sonra sarılmış satırları yorumlamaması durumunda işe yarar . Tercümanınız sarılmış çizgileri böyle yorumlarsa, bu 11 karakterli çözüm işe yarar ( çünkü bir dizgede yazılan çift boşluklar tek olarak yorumlanır ):

"9k,'!1+,@ 

gCeza olmadan kullanabilirsem , bunlar da işe yarar (sırasıyla 7 ve 8 karakter):

"5k,g,@

ve

"6k,g,@ 

Ruby, 60

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

Klasik bir Ruby quine dayanarak.

Perl, 41

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

Eski 52 karakter cevabı (27 + 25 ceza)

open+0;print ~~ reverse <0>

Kendi kaynağını okur, tersini bir skalaya kaydeder ve yazdırır.

Fisyon , 6 bayt

Normal quine ile aynı uzunlukta olan nadir bir jeneralize kın vakası :

"LO+!'

Bu fikir normal quine ile aynıdır, ancak sol Ltarafa bir atom kullanıyoruz (başlangıçtan itibaren ), böylece baskı modu kodu ters sırada hareket ettirir.

J: 26

Standart sorgulama (26 karakter) : bir fonksiyon tanımlayarak ve kendi tanımını geçirerek, tırnak işaretleri halinde:

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

Muhtemelen daha kısa yapılabilir.

J-özel (33 karakter) : bir değişkeni tanımlayarak ve değişkenin hangi dosyada tanımlandığını sorarak, yani bu durumda, o dosyanın içeriğini yazdırarak:

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

Bir komut dosyasından kaydedilmeli ve çalıştırılmalıdır (örneğin REPL'de değil, çünkü sorunun cevabı "argümanınız bir dosyada tanımlanmadı" dır, bu nedenle okunacak dosya yoktur).

> <> , 25 bayt

Bunun henüz yapılmamasına şaşırdım. :)

...yhsif sllems gnihtemoS

Kodu buraya yapıştırın ve çalıştırın.

.haşhaş, Atlama komuttur xve yyığın kapalı ve IP'yi hareketli (x, y)kod kutusunda. Bu durumda, yığın boştur, yani dilin tek hata mesajı yazdırılıyor:

Something smells fishy...

Mikroscript , 11 bayt

Bunu yapmak zorunda kaldım.

0"Caxq"Caxq

Şaşırtıcı bir şekilde, bu aslında dilin bilinen en kısa gerçek yüzgeçinden daha kısa. qve aaksi halde eşittir, ancak qyapmazken tırnak işaretleri ekler a.

JavaScript jQuery 119 92 74 70 karakter

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

Minitech'in yorumlarda önerdiği gibi şimdi jQuery kullanıyorum ve el ile sarmalanıyorum bu yazıdaki diğer blok bloklarından korkmadan <pre><code>kullanabilirim text(). El ile sarma, <h4>test ettiğimde kromla uyumsuzdu, bu nedenle şimdi çoğu tarayıcıda çalışması gerekiyor.

Bu program, bu sayfadan çalıştırıldığında, kod bloğunu doğrudan yukarıda bulur, içeriğini tersine çevirir ve bir uyarı kutusuna koyar.

Doğrulamak için yeterince kolay, sadece dev konsola yapıştırın.

PHP, 41 karakter (+25)

Ödevi doğru anladım mı bilmiyorum. Ama burada bir PHP denemek:

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

düzenleme: bu çok daha kısa olabilir:

echo strrev(file_get_contents(__FILE__));

Ama bu kadar basit olabileceğinden, muhtemelen sorulan şey bu değildir ...

MATLAB, 78 karakter:

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

Çözümün özel bir karakterle (alt + 0160) başlamanızı gerektirdiğini ve tam olarak tersine çevrilmiş mesajı yazdırdığını unutmayın. (Python çözümünün aksine)

UNIX kabuğu, 31

52 karakterde gerçek çözüm :

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

Ama dikkat et! Dürüstlük bugünün dünyasında işe yaramaz! Ceza çok düşük!

6 karakter + 25 = 31:

rev $0

MS-DOS, 24 bayt

eman elif ro dnammoc daB

Çıktı:

Bad command or file name

JavaScript, 62

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

En son Chrome'da benim için çalışıyor (v 31.0.1650.63). Diğer bazı tarayıcılar farklı bir çıktı verebilir. (Bu çıkışı ters çevirirseniz çalışacaktır: P)

SmileBASIC, 118 102 bayt

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 bayt

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

Diğer etiketlerle çakışmamak için boş bir html sayfası yerleştirin.

JavaScript, 53 50 46 43 bayt

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

Lütfen bunu kısaltmama yardım et.

Bulanık Octo Guacamole, 4 bayt

KNU_

Kyazdırır _UNK, Niter Noneve Uiter 0. Ve _yığında en üstteki değeri açar (ancak yazdırmaz). Yani sadece _UNKyazdırılır.