Dalam pertanyaan ini saya meminta Anda untuk menebak quine anagram berdasarkan outputnya. Namun sepertinya kami belum memiliki pertanyaan untuk golf anine quine. Jadi tugas Anda adalah membuat anagram terpendek yang Anda bisa.

Apa itu anagram quine?

Anagram quine adalah program yang tidak kosong yang mencetak anagram dari kode sumbernya, selain dari sumber aslinya.

Berikut adalah contoh quine anagram dengan Python 2:

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

Anda seharusnya tidak membaca sumber Anda sendiri untuk tantangan ini.

Pyth , 2 byte

)(

Keluaran

()

Cobalah online!

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

V , 4 byte

2ii2

Output:

i2i2

Cobalah online!

> <> , 9 8 7 byte

Golf 1 byte berkat @WheatWizard dengan menggunakan !dan menambahkannya untuk mendapatkannya"

Golf 1 byte berkat @ ConorO'Brien dengan menggunakan #bukan<!

":1->o#

Cobalah online!

Keluaran "#o>-1:.

Penjelasan

":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 byte

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

Cobalah online!

Ini mungkin bukan versi terpendek, tetapi setidaknya itu berfungsi.

Fakta yang menyenangkan , kode output sebenarnya dapat dieksekusi (dan itu tidak berakhir).

Keluaran

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

Penjelasan

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

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

Python 3, 32 byte

cetak ("" "p" r "i" n "t" 2 (") *" "" * 2)

p"r"i"n"t"2(")*p"r"i"n"t"2(")*\nHasil cetak , diurutkan:\n""""""""""""(())**22iinnpprrtt

Ruby , 8 byte

p"p*2"*2

Cobalah online!

Ini mencetak

"p*2p*2"

Penjelasan

Ini berfungsi mirip dengan jawaban python dalam pertanyaan. Ini akan membuat string p*2p*2kemudian menggunakan Ruby pakan mencetak representasi dari string.

JavaScript (ES6), 40 32 byte

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

Tidak main-main dengan Function.toString juga. Sebagai bonus, kode di dalam string hampir terlihat legal. Sunting: Disimpan 8 byte dengan menggunakan +alih-alih repeat(2).

Klein , 7 + 6 = 13 byte

Inilah jawaban berdasarkan >> jawaban .

":1+@!

Cobalah online!

Ini output

:1+@!"

Japt , 10 9 byte

Menemukan cara yang lebih baik :-)

Q+2ç"Q+2ç

Keluaran "Q+2çQ+2ç.Uji secara online!

Penjelasan

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

Bisa juga Qi2ç"Qi2ç, yang dicetak Qi2çQi2ç". Yang ini lebih dekat ke standar Japt quine:

"iQ ²"iQ ²

Tapi saya tidak percaya ada cara mudah untuk memotong tanda kutip di tengah string untuk quine 9-byte.

Ruby, 20 byte

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

Ini output

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

Mengambil keuntungan dari %q(...)sintaks string Ruby , yang mendukung tanda kurung bersarang.

Retina , 8 byte

_

$nn$

Cobalah online!

Cetakan

n$_
n$

Keduanya mengandung satu _, duan , dua $dan tiga umpan baris.

Perhatikan bahwa linefeed yang diikuti oleh hampir semua karakter lain adalah solusi sepele, tetapi dipertanyakan apakah itu valid, karena karakter kedua hanya mengkodekan dirinya sendiri dan linefeed tidak benar-benar menyandikan salah satu karakter output.

Penjelasan

_

Ganti input kosong dengan a _.

$nn$

Cocokkan string kosong, yang terjadi sebelum atau sesudah _dan masukkan baris baris ( $n), an n, dan a $. Sejak pertama kali kami menyisipkan itu _, ini menambahkan masing-masing karakter tersebut dua kali, jadi ndan $akun untuk$n , dan kita mendapatkan dua dari tiga baris baris yang kita butuhkan dalam output. Linefeed ketiga dicetak karena Retina mencetak linefeed trailing secara default.

Kita juga bisa menggunakan n$n$pada tahap ini, yang kemudian akan mencetak:

n
$_n
$

Python Repl, 4 byte

Ini adalah solusi Code Golf pertama saya, jadi saya harap ini memenuhi aturan. Dalam interpreter interaktif Python 2 atau 3:

>>> (1),
(1,)

Outputnya adalah anagram input.

Lain:

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

Dengan Python 2:

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

Dengan Python 3:

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

Pembaruan 2017-06-15: Satu lagi:

>>> 01.
1.0

Haskell , 38 39 byte

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

Cobalah online! Keluaran:

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

Sunting: +1 byte karena saya sebelumnya lupa tentang baris baru trailing implisit dari print.

Alternatif: (Jumlah byte yang sama tetapi tidak mengandung ASCII-owl)

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

Cobalah online!

Keluaran:

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

Groovy, 24 20 byte

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

-4 Berkat CalculatorFeline, spasi putih tidak diperlukan sama sekali!

Keluaran:

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

Penjelasan:

Penutupan anonim yang, ketika dipanggil, kembali {""*""2""}dua kali (bersambung).

05AB1E , 10 byte

'∞∞''∞'JJ∞

Cobalah online!

Keluaran:

∞∞''JJ''∞∞

Penjelasan:

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 byte

"_`"_`

Cobalah online!

Cetakan

_`"_`"

Penjelasan

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

Bash, 36 byte

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

Ini output

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

(dan membuat file f sebagai efek samping, tapi itu diperbolehkan per meta .)

Baik program dan output memiliki baris baru.

Proses pemikiran: Saya pikir cara termudah untuk mengeluarkan string dua kali, selain menetapkannya ke variabel, adalah dengan melakukan

tee f<<<string
cat f

String perlu dikutip karena akan berisi spasi dan <karakter, jadi aku punya

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

yang hampir berhasil, kecuali itu tidak menampilkan tanda kutip. Untungnya, Bash mendukung penggabungan string literal dengan hanya menempatkannya di sebelah satu sama lain, jadi menambahkan "''"ke herestring dan memasukkan ""ke dalam bagian kutipan tunggal menghasilkan solusi ini.

PHP , 44 byte

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

Cobalah online!

CJam , 8 byte

"2*`"2*`

Cobalah online!

Penjelasan

Mirip dengan contoh Python dalam pertanyaan

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

Outputnya adalah "2*`2*`".

Befunge, 11 byte

' 2+">:#,_@

Cetakan:

+2 '@_,#:>"

Penjelasan:

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

QBIC , 8 byte

?A+@?A@+

Saya baru tahu cara melakukan quine yang tepat di QBIC. Membuat anagram dari itu dilakukan dengan hanya beralih di sekitar karakter dalam string literal. Ada 24 anagram yang mungkin dengan cara ini.

Befunge-98 , 8 byte

"'$<@,k7

Cobalah online!

Ohm , 14 byte

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

Cobalah online!

Keluaran:

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

Penjelasan

"æ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 byte

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

Output:

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

Potongan:

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

console.log(f());

Fisi 2 , 9 8 6 byte

R"'!+O

Cobalah online!

Penjelasan

Sebuah atom diciptakan di R, yang bergerak ke kanan. Atom ini kemudian menemukan a ", yang memulai mode pencetakan. Dalam mode pencetakan, semua karakter (hingga pencocokan ") dicetak. Ini berarti ia mencetak '!+ORdalam kasus ini. Kemudian, semua yang tersisa adalah pencetakan ", yang dilakukan oleh karakter yang tersisa. '!menetapkan massa atom ke kode karakter !, dan +menambahkannya ke kode karakter ". Kemudian, kode karakter dihasilkan olehO dan atom dihancurkan, mengakhiri program.

(Sebenarnya, ini hanyalah rotasi dari quine terpendek)

Mathematica, 2 byte

.0

Keluaran:

0.

Angka yang dimulai dengan titik desimal seperti .123ditafsirkan 0.123, sehingga .0ditafsirkan sebagai 0.0. Karena bagian dari angka setelah titik desimal adalah nol, Mathematica tidak mencetaknya.

JavaScript (satu lagi), 11 byte

f=_=>'=f'+f

Dipanggil dengan f(), keluaran

=f_=>'=f'+f

f=_=>'=f'+f

console.log(f());

Python 3, 31 byte

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

Stax , 8 4 byte

.S.S

Jalankan dan debug online!

Port langsung dari jawaban ini .

Versi lama, 8 byte

..b..LbL

Jalankan dan debug online!

Versi alternatif dengan trik yang cukup murah yang dapat diterapkan ke quines yang tepat di hampir semua bahasa.

"43bL"34bL

Jalankan dan debug online!

Karena "34bL"34bL merupakan quine yang tepat di Stax.

Namun versi lain, hanya menggunakan string string single-char.

''c'Lc'cccLcLL

Jalankan dan debug online!

Penjelasan

.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 byte

"34çJ∞"34çJ∞

Output:

34çJ∞""∞Jç43

Cobalah online!

"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