ในคำถามนี้ฉันขอให้คุณเดา anagram quine ตามผลลัพธ์ อย่างไรก็ตามดูเหมือนว่าเรายังไม่มีคำถามที่ถามคำถามเกี่ยวกับแอนนาแกรมตีกอล์ฟ ดังนั้นงานของคุณคือทำให้แอนนาแกรมสั้นที่สุดที่คุณสามารถทำได้

แอนนาแกรมควินคืออะไร

แอนนาแกรมควินเป็นโปรแกรมที่ไม่ว่างที่พิมพ์แอนนาแกรมของซอร์สโค้ดนอกเหนือจากซอร์สดั้งเดิม

นี่คือตัวอย่างของ anagram quine ใน Python 2:

print`'`print`*2'*2`

คุณไม่ควรอ่านแหล่งที่มาของคุณเองสำหรับความท้าทายนี้

Pyth , 2 ไบต์

)(

เอาท์พุท

()

ลองออนไลน์!

)  # Ends statement, does nothing in this program
 ( # Create an empty tuple
   # Implicitly print the empty tuple

V , 4 ไบต์

2ii2

ขาออก:

i2i2

ลองออนไลน์!

> <> , 9 8 7 ไบต์

Golfed 1 byte ขอบคุณ @WheatWizard โดยใช้!และเพิ่มขึ้นเพื่อรับ"

Golfed 1 byte ขอบคุณ @ ConorO'Brien โดยใช้#แทน<!

":1->o#

ลองออนไลน์!

"#o>-1:เอาท์พุท

คำอธิบาย

":1->o#"        Push this string (note that the IP wraps around)
:               Duplicate the top value of the stack (35 from the "#")
1-              Subtract one from it to get 34 ('"')
>o#             Print every character on the stack until the program cannot pop any more and still tries to pop a value from the stack afterwards
                The program exits with an error from not being able to pop a value from an empty stack

Brainfuck, 158 ไบต์

>>--<<-[[<+>->+>->+++<<<]>-]<<<<<<[--->>.<<]>>++<<<[->>>.<<<]>>-<<<[--->>>.<<<]>>>--<<<<[++>>>>.<<<<]>>>>+++>--.[---<.>]>+.......++.......<<<>>>>>>>>>-----+++

ลองออนไลน์!

มันอาจไม่ใช่เวอร์ชั่นที่สั้นที่สุด แต่อย่างน้อยก็ใช้งานได้

สนุกจริงรหัสออกสามารถดำเนินการจริง (และมันจะยุติ)

เอาท์พุต

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>--------------------------++++++++++++++++++<....................[[[[[[[]]]]]]]

คำอธิบาย

>>--<<-[[<+>->+>->+++<<<]>-]    Initializes the tape with the
                                help of a recurrence relation.
<<<<<<[--->>.<<]>>++<<<[->>>
.<<<]>>-<<<[--->>>.<<<]>>>--    Prints the characters using
<<<<[++>>>>.<<<<]>>>>+++>--.    classic loops.
[---<.>]>+.......++.......

<<<>>>>>>>>>-----+++            Junk to complete the anagram.

Python 3, 32 ไบต์

พิมพ์ ( "" "p" r "i" n "T" 2 ( ") *" "" * 2)

พิมพ์p"r"i"n"t"2(")*p"r"i"n"t"2(")*\n, เรียงลำดับผลลัพธ์:\n""""""""""""(())**22iinnpprrtt

Ruby , 8 ไบต์

p"p*2"*2

ลองออนไลน์!

งานพิมพ์นี้

"p*2p*2"

คำอธิบาย

สิ่งนี้ทำงานคล้ายกับคำตอบของหลามในคำถาม มันจะทำให้สตริงp*2p*2แล้วใช้รูบี้pจะพิมพ์การเป็นตัวแทนของสตริง

JavaScript (ES6), 40 32 ไบต์

f=($=`($)=>{$=$+"${"``"}$"}`)=>$+$

ไม่ยุ่งกับ Function.toString อย่างใดอย่างหนึ่ง เป็นโบนัสโค้ดภายในสตริงเกือบจะดูเหมือนถูกกฎหมาย แก้ไข: บันทึก 8 ไบต์โดยใช้แทน+repeat(2)

ไคลน์ , 7 + 6 = 13 ไบต์

นี่คือคำตอบที่อยู่บนพื้นฐานของ> <> คำตอบ

":1+@!

ลองออนไลน์!

ผลลัพธ์นี้

:1+@!"

Japt , 10 9 ไบต์

พบวิธีที่ดีกว่า :-)

Q+2ç"Q+2ç

"Q+2çQ+2çเอาท์พุท ทดสอบออนไลน์!

คำอธิบาย

Q+2ç"Q+2ç    // Implicit: Q = quotation mark
    "Q+2ç    // Take this string.     Q+2ç
  2ç         // Repeat it twice.      Q+2çQ+2ç
Q+           // Prepend a quote.      "Q+2çQ+2ç
             // Implicit: output result of last expression

ยังอาจเป็นซึ่งพิมพ์Qi2ç"Qi2ç Qi2çQi2ç"อันนี้ใกล้กับ quine Japt มาตรฐาน:

"iQ ²"iQ ²

แต่ฉันไม่เชื่อว่ามีวิธีง่าย ๆ ในการลิ่มเครื่องหมายคำพูดที่อยู่ตรงกลางของสตริงสำหรับ quine 9 ไบต์

Ruby, 20 ไบต์

$><<%q($><<%q()*2)*2

ผลลัพธ์นี้

$><<%q()*2$><<%q()*2

การใช้ประโยชน์จาก%q(...)ไวยากรณ์สตริงของรูบี้ซึ่งรองรับวงเล็บที่ซ้อนกัน

เรติน่า 8 ไบต์

_

$nn$

ลองออนไลน์!

พิมพ์

n$_
n$

ทั้งสองมีหนึ่ง_สองnสอง$และสาม linefeeds

โปรดทราบว่าตัวป้อนบรรทัดตามด้วยตัวละครอื่นเกือบทั้งหมดเป็นวิธีแก้ปัญหาเล็กน้อย แต่ก็น่าสงสัยว่ามันถูกต้องหรือไม่เพราะตัวละครตัวที่สองเข้ารหัสตัวเองเท่านั้นและตัวป้อนบรรทัดไม่ได้เข้ารหัสอักขระตัวจริง

คำอธิบาย

_

_แทนการป้อนข้อมูลที่ว่างเปล่าด้วย

$nn$

ตรงกับสตริงที่ว่างเปล่าที่เกิดขึ้นทั้งก่อนหรือหลัง_และใส่เลื่อนบรรทัด ( $n) เป็นและn $เนื่องจากเราใส่เข้าไปครั้งแรกสิ่ง_นี้จะเพิ่มตัวละครแต่ละตัวสองครั้งดังนั้นnและ$บัญชีสำหรับ$nและเราได้รับสองบรรทัดสามบรรทัดที่เราต้องการในผลลัพธ์ บรรทัดที่สามถูกพิมพ์เพราะ Retina พิมพ์เส้นที่ลากตามค่าเริ่มต้น

เราสามารถใช้n$n$ในขั้นตอนนี้ซึ่งจะพิมพ์:

n
$_n
$

Python Repl ขนาด 4 ไบต์

นี่เป็นวิธีการแก้ปัญหารหัสกอล์ฟครั้งแรกของฉันดังนั้นฉันหวังว่ามันจะเป็นไปตามกฎ ในล่ามแบบโต้ตอบ Python 2 หรือ 3:

>>> (1),
(1,)

เอาท์พุทเป็นแอนนาแกรมของอินพุต

อื่น ๆ :

>>> 2*'2*'
'2*2*'

ใน Python 2:

>>> type('rst <>'),
(<type 'str'>,)

ใน Python 3:

>> {1, 0}
{0, 1}

อัปเดต 2017-06-25: อีก:

>>> 01.
1.0

Haskell , 38 39 ไบต์

main=print$[0,0]>>"main=print$[0,0]>>"

ลองออนไลน์! เอาท์พุท:

"main=print$[0,0]>>main=print$[0,0]>>"

แก้ไข: 1 printไบต์เพราะก่อนหน้านี้ผมลืมเกี่ยวกับการขึ้นบรรทัดใหม่โดยนัยของ

ทางเลือก: (นับไบต์เดียวกัน แต่ไม่มี ASCII-owl)

main=print$e++e;e="main=print$e++e;e="

ลองออนไลน์!

เอาท์พุท:

"main=print$e++e;e=main=print$e++e;e="

Groovy 24 24ไบต์

{"""{""*""2""}"""*2}

-4 ต้องขอบคุณ CalculatorFeline ช่องว่างก็ไม่จำเป็นอีกต่อไป!

เอาท์พุท:

{""*""2""}{""*""2""}

คำอธิบาย:

การปิดนิรนามที่เมื่อถูกเรียกจะส่งคืน{""*""2""}สองครั้ง (ตัดแบ่ง)

05AB1E , 10 ไบต์

'∞∞''∞'JJ∞

ลองออนไลน์!

เอาท์พุท:

∞∞''JJ''∞∞

คำอธิบาย:

Code       | Explanation                | Stack
-----------+----------------------------+-------------------
'∞         | Push literal '∞'.          | ["∞"]
  ∞        | Mirror.                    | ["∞∞"]
   ''      | Push literal "'".          | ["∞∞","'"]
     ∞     | Mirror.                    | ["∞∞","''"]
      'J   | Push literal 'J'.          | ["∞∞","''","J"]
        J  | Join it all together.      | ["∞∞''J"]
         ∞ | Mirror.                    | ["∞∞''JJ''∞∞"]
-----------+----------------------------+-------------------
           | Implicit print.            | ∞∞''JJ''∞∞

CJam , 6 ไบต์

"_`"_`

ลองออนไลน์!

พิมพ์

_`"_`"

คำอธิบาย

"_`"   e# Push this string.
_      e# Duplicate.
`      e# Stringify it, which wraps it in quotes.
       e# Implicitly print stack contents.

Bash, 36 ไบต์

tee f<<<'tee f<<<""cat f'"''"
cat f

ผลลัพธ์นี้

tee f<<<""cat f''
tee f<<<""cat f''

(และสร้างไฟล์fเป็นผลข้างเคียง แต่ได้รับอนุญาตต่อเมตา )

ทั้งโปรแกรมและเอาต์พุตมีการขึ้นบรรทัดใหม่

กระบวนการคิด: ฉันคิดว่าวิธีที่ง่ายที่สุดในการส่งออกสตริงสองครั้งนอกเหนือจากการกำหนดให้กับตัวแปรคือต้องทำ

tee f<<<string
cat f

สตริงต้องถูกยกมาเพราะมันจะมีช่องว่างและ<ตัวอักษรดังนั้นฉันมี

tee f<<<'tee f<<<cat f'
cat f

ซึ่งเกือบใช้งานได้ยกเว้นจะไม่ส่งคำพูด โชคดีที่ Bash รองรับการเรียงตัวอักษรแบบสตริงโดยเพียงแค่วางติดกันดังนั้นการผนวก"''"herestring และการแทรก""เข้าไปในส่วนของ single quote ทำให้ได้คำตอบนี้

PHP , 44 ไบต์

<?=str_repeat('<?=\str_\repeat(\'\',2);',2);

ลองออนไลน์!

CJam , 8 ไบต์

"2*`"2*`

ลองออนไลน์!

คำอธิบาย

คล้ายกับตัวอย่าง Python ในคำถาม

"2*`"     e# Push the string "2*`"
     2*   e# Repeat it twice
       `  e# Get its string representation (wrap in quotes)

"2*`2*`"เอาท์พุทเป็น

Befunge ขนาด 11 ไบต์

' 2+">:#,_@

พิมพ์:

+2 '@_,#:>"

คำอธิบาย:

' 2+"        Put a " on the stack (32 + 2)
    "        Put the rest of the code on stack (wrap-around string)
     >:#,_   Print stack
          @  End

QBICขนาด 8 ไบต์

?A+@?A@+

ฉันเพิ่งรู้วิธีการทำควินินที่เหมาะสมใน QBIC การสร้างแอนนาแกรมออกมาทำได้โดยเพียงแค่สลับไปมารอบตัวอักษรในสตริงตัวอักษร มี 24 anagrams ที่เป็นไปได้ด้วยวิธีนี้

Befunge-98 , 8 ไบต์

"'$<@,k7

ลองออนไลน์!

โอห์ม 14 ไบต์

"æ3M.Cæ"æ3M."C

ลองออนไลน์!

เอาท์พุท:

æ3M.CæC.M3æ"""

คำอธิบาย

"æ3M.Cæ"æ3M."C
"æ3M.Cæ"       # Pushes "æ3M.Cæ"
        æ      # Palindrone of that string
         3M    # 3 times...
           ."   # Push " on the stack
             C  # Concatenate with the string above

JavaScript (ES6), 15 ไบต์

f=(s='f=')=>f+s

ขาออก:

(s='f=')=>f+sf= 

ตัวอย่างข้อมูล:

f=(s='f=')=>f+s

console.log(f());

ฟิชชัน 2 , 9 8 6 ไบต์

R"'!+O

ลองออนไลน์!

คำอธิบาย

อะตอมถูกสร้างขึ้นที่Rซึ่งเคลื่อนที่ไปทางขวา อะตอมนี้จะผ่าน a "ซึ่งจะเริ่มโหมดการพิมพ์ ในโหมดการพิมพ์ตัวละครทั้งหมด (จนกว่าจะมีการจับคู่") จะถูกพิมพ์ นี่หมายความว่ามันพิมพ์'!+ORในกรณีนี้ จากนั้นทั้งหมดที่เหลือคือการพิมพ์"ซึ่งจะทำโดยตัวละครที่เหลือ '!ชุดมวลอะตอมที่จะรหัสตัวละคร!และเพิ่มขึ้นเป็นโค้ดของตัวละคร+ "จากนั้นโค้ดอักขระจะถูกเอาต์พุตโดยOอะตอมถูกทำลายและจบโปรแกรม

(อันที่จริงนี่เป็นเพียงการหมุนของควินที่สั้นที่สุด)

Mathematica, 2 ไบต์

.0

เอาท์พุท:

0.

จำนวนเริ่มต้นด้วยจุดทศนิยมเช่น.123ถูกตีความว่าเป็น0.123จึงถูกตีความว่าเป็น.0 0.0เนื่องจากส่วนของตัวเลขหลังจุดทศนิยมเป็นศูนย์ Mathematica จึงไม่พิมพ์

JavaScript (อีกอันหนึ่ง), 11 ไบต์

f=_=>'=f'+f

เรียกว่าด้วยf()เอาท์พุท

=f_=>'=f'+f

f=_=>'=f'+f

console.log(f());

Python 3, 31 ไบต์

a='a=%r;pritn(a%%a)';print(a%a)

Stax , 8 4 ไบต์

.S.S

เรียกใช้และแก้ไขข้อบกพร่องออนไลน์!

พอร์ตโดยตรงของคำตอบนี้

รุ่นเก่า 8 ไบต์

..b..LbL

เรียกใช้และแก้ไขข้อบกพร่องออนไลน์!

รุ่นทางเลือกพร้อมกับเคล็ดลับราคาถูกที่สามารถนำไปใช้กับ quines ที่เหมาะสมในเกือบทุกภาษา

"43bL"34bL

เรียกใช้และแก้ไขข้อบกพร่องออนไลน์!

เพราะ"34bL"34bLเป็นควินที่เหมาะสมในสแตกซ์

อีกเวอร์ชันหนึ่งโดยใช้ตัวอักษรสตริงอักขระตัวเดียว

''c'Lc'cccLcLL

เรียกใช้และแก้ไขข้อบกพร่องออนไลน์!

คำอธิบาย

.S.S        Generates powerset ["","S","S.","."]
            Implicit flatten and output

..b         Push string ".b"
   ..L      Push string ".L"
      b     Duplicate both strings
       L    Concatenate all 4 strings to a single one.

05AB1E , 13 ไบต์

"34çJ∞"34çJ∞

ขาออก:

34çJ∞""∞Jç43

ลองออนไลน์!

"34çJ∞"      # Push this string                 | [ 34çJ∞ ]
       34ç   # Push a quote (")                 | [ 34çJ∞, " ]
          J  # Join                             | [ 34çJ∞" ]
           ∞ # Mirror                           | [ 34çJ∞""∞Jç43 ]
             # Implicitly output with a newline