จงเขียนโปรแกรมที่พิมพ์รหัสที่มาของตัวเองออกมาจากข้างหลังในคำอื่น ๆ อีกด้วยeniuq

เกณฑ์การให้คะแนน:

• +50 ถ้าคุณใช้ดึงข้อมูลจากอินเทอร์เน็ต
• +25 ถ้าคุณอ่านซอร์สโค้ดของคุณเอง
• +1 แต้มต่อตัวละคร
• คะแนนต่ำสุดชนะ

กฎ:

• ไม่ใช้ไฟล์อื่น (เช่นreverse.txt)
• ความยาวรหัสขั้นต่ำคือสองอักขระ
• โปรแกรมของคุณต้องไม่เป็นแบบ palindrome

GolfScript - 2

1

(เช่นตัวอักษรขึ้นบรรทัดใหม่อยู่\n1ที่ไหน\n)

เอาท์พุท:

1

(เช่น1\n)

หากต้องการอ้างอิงIlmari :

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 ตัวอักษร

ตัวละครจำนวนมาก แต่ฉันไม่สามารถคิดถึงวิธีที่ง่ายกว่าในภาษาซี

#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 ตัวอักษร

ผู้ชนะคือ:

ksh

$ 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+,@

วิธีนี้ใช้ได้ผลถ้าล่ามของคุณไม่ตีความบรรทัดที่ถูกห่อหลังจาก"เพิ่มพื้นที่พิเศษ หากล่ามของคุณตีความบรรทัดที่ถูกห่อเช่นนั้นโซลูชัน char 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 ไบต์

กรณีที่หายากของ quine ทั่วไปที่มีความยาวเท่ากับquine ปกติ :

"LO+!'

ความคิดนั้นเหมือนกับ quine ปกติ แต่เรากำลังใช้ atom ซ้าย (เริ่มต้นที่L) เพื่อให้โหมดการพิมพ์เคลื่อนที่ไปตามโค้ดในลำดับตรงกันข้าม

J: 26

มาตรฐาน quining (26 ตัวอักษร) : โดยการกำหนดฟังก์ชั่นและผ่านมันความหมายของตัวเองในคำพูด:

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

อาจทำให้สั้นลง

J-specific (33 chars) : โดยการกำหนดตัวแปรและถามว่าไฟล์ใดที่ตัวแปรนั้นถูกนิยามไว้เช่นอันนี้แล้วพิมพ์เนื้อหาของไฟล์นั้น:

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

ต้องบันทึกและเรียกใช้จากสคริปต์ (เช่นไม่ได้อยู่ใน REPL เพราะคำตอบสำหรับคำถามคือ "อาร์กิวเมนต์ของคุณไม่ได้ถูกกำหนดในไฟล์" ดังนั้นจึงไม่มีไฟล์ที่จะอ่าน)

> <> , 25 ไบต์

ฉันรู้สึกประหลาดใจที่พบว่าสิ่งนี้ยังไม่เสร็จ :)

...yhsif sllems gnihtemoS

วางรหัสที่นี่และเรียกใช้

.คือคำสั่ง Jump, popping xและyoff stack และย้าย IP ไป(x, y)ไว้ในกล่องรหัส ในกรณีนี้สแต็กว่างเปล่าดังนั้นข้อความแสดงข้อผิดพลาดเฉพาะภาษาจะถูกพิมพ์:

Something smells fishy...

ไมโคร , 11 ไบต์

ฉันต้องทำเช่นนี้

0"Caxq"Caxq

น่าแปลกที่นี่สั้นกว่าจริงจริง quine ของภาษา qและaจะเทียบเท่ากันยกเว้นqเพิ่มเครื่องหมายคำพูดล้อมรอบขณะที่aไม่

jQuery JavaScript 119 92 74 70 ตัวอักษร

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

ตอนนี้ใช้ jQuery ตามที่ minitech แนะนำไว้ในคอมเม้นต์และใช้การพันด้วยตัวเอง<pre><code>ดังนั้นฉันสามารถใช้text()โดยไม่ต้องกลัวบล็อคโค้ดอื่น ๆ ในโพสต์นี้รบกวน การห่อด้วยตนเอง<h4>ไม่สามารถใช้กับโครเมียมได้เมื่อฉันทดสอบดังนั้นตอนนี้ควรทำงานกับเบราว์เซอร์ส่วนใหญ่

โปรแกรมนี้หากเรียกใช้จากหน้านี้จะพบบล็อกโค้ดด้านบนย้อนกลับเนื้อหาของมันและวางลงในกล่องเตือน

ง่ายพอที่จะตรวจสอบเพียงแค่วางลงในคอนโซล dev

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) และมันจะพิมพ์ข้อความตรงกันข้าม (ต่างจากโซลูชันงูหลาม)

เชลล์ UNIX, 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``)()

โปรดช่วยฉันย่อให้สั้นลง

Fuzzy Octo Guacamole, 4 ไบต์

KNU_

Kพิมพ์_UNK, NผลักดันNoneและผลักดันU 0และ_ปรากฏค่าสูงสุดบนสแต็ก (แต่ไม่พิมพ์) ดังนั้น_UNKจะถูกพิมพ์เท่านั้น