Anagram Quines (Robbers 'Thread)

11

Ini adalah tantangan . Utas Polisi dapat ditemukan di sini

Tantangan Anda, sebagai perampok adalah untuk mengambil output dari utas polisi dan menemukan anagram dari output yang ketika dijalankan sebagai program menghasilkan output asli yang disediakan.

Pemenang akan menjadi orang dengan celah paling valid pada pertanyaan ini.

Aturan

  • Anda tidak boleh memecahkan jawaban yang ditandai aman dengan program yang disediakan.

  • Jika seorang polisi menyediakan bahasa tempat solusi yang dimaksud ada di dalam Anda harus memecahkannya dalam bahasa tertentu, jika mereka memilih untuk tidak melakukannya, Anda dapat memecahkannya dalam bahasa apa pun yang bersaing.

  • Aturan standar untuk Quines berlaku.

  • Celah tidak harus Quines sempurna. yaitu mereka tidak harus mengeluarkan sumber persisnya tetapi menyusun ulangnya (urutannya disediakan oleh polisi).

Ad Hoc Garf Hunter
sumber

Jawaban:

5

Bahasa yang tidak ditentukan (CJam), 254 byte, DJMcMayhem

0000000: 3235 362c 583e 3130 2d5b 445d 2f41 612a  256,X>10-[D]/Aa*
0000010: 3a63 6523 0102 0304 0506 0708 090b 0c0e  :ce#............
0000020: 0f10 1112 1314 1516 1718 191a 1b1c 1d1e  ................
0000030: 1f20 2122 2425 2627 2829 2b2e 3334 3738  . !"$%&'()+.3478
0000040: 393b 3c3d 3f40 4243 4546 4748 494a 4b4c  9;<=?@BCEFGHIJKL
0000050: 4d4e 4f50 5152 5354 5556 5759 5a5c 5e5f  MNOPQRSTUVWYZ\^_
0000060: 6062 6466 6768 696a 6b6c 6d6e 6f70 7172  `bdfghijklmnopqr
0000070: 7374 7576 7778 797a 7b7c 7d7e 7f80 8182  stuvwxyz{|}~....
0000080: 8384 8586 8788 898a 8b8c 8d8e 8f90 9192  ................
0000090: 9394 9596 9798 999a 9b9c 9d9e 9fa0 a1a2  ................
00000a0: a3a4 a5a6 a7a8 a9aa abac adae afb0 b1b2  ................
00000b0: b3b4 b5b6 b7b8 b9ba bbbc bdbe bfc0 c1c2  ................
00000c0: c3c4 c5c6 c7c8 c9ca cbcc cdce cfd0 d1d2  ................
00000d0: d3d4 d5d6 d7d8 d9da dbdc ddde dfe0 e1e2  ................
00000e0: e3e4 e5e6 e7e8 e9ea ebec edee eff0 f1f2  ................
00000f0: f3f4 f5f6 f7f8 f9fa fbfc fdfe ff0a       ..............

Cobalah online!

Bagaimana itu bekerja

256,                Push the range [0 ... 255].
    X>              Remove the first item (0).
      10-           Remove 10 (0x0a).
         [D]/       Split at occurrences of 13 (0x0d).
             Aa*    Join, separating by 10 (0x0a).
                :c  Cast all integers to character.
                e#  Begins a comment, terminated by the linefeed at the very end.
Dennis
sumber
5

Brain-Flak , Riley

()((((((()()()){}){}){})()){}{}){({}[()][((((((()()()()()){}){}){})()))]{})}{}((()()()){}()){({}[()][((((((()()()){}){}()){({}[()])}{})()()))]{})}{}((((()()()()){}){}()){}){({}[()][((((((((()()()()()){}){}){}())){}{})()()))]{})}{}

Cobalah online!

Penjelasan

Ini sedikit lebih mudah dari yang saya harapkan.

Saya menulis 3 loop terpisah untuk mencetak setiap jenis brace:

(((((()()()){}){}){})()){}{}){({}[()][((((((()()()()()){}){}){})()))]{})}{}
((()()()){}()){({}[()][((((((()()()){}){}()){({}[()])}{})()()))]{})}{}
((((()()()()){}){}()){}){({}[()][((((((((()()()()()){}){}){}())){}{})()()))]{})}{}

Saya menggunakan teknik Mini-Flak standar untuk menghindari penggunaan <...>monad dan sejujurnya saya tidak pernah benar-benar merasa perlu untuk menggunakan <>nilad.

Ini pasti sangat mirip dengan apa yang Riley lakukan di tempat pertama karena ketika saya selesai saya punya ()sisa ekstra . Ini bukan masalah karena ()pada dasarnya adalah no-op di tingkat atas jadi saya menempelkannya di depan program saya.

Ad Hoc Garf Hunter
sumber
1
Itulah tepatnya bagaimana saya menulisnya. Saya membutuhkan ekstra ()untuk menyesuaikan semuanya. Sudah selesai dilakukan dengan baik!
Riley
4

Haskell, 107 byte, Laikoni

main=print$id=<<['|':[d]>>[d|i<-"$$'''',--..:<<<<====>>[[[[]]]]addddddiiiiiimnnprt|||",i==d]|d<-id['$'..]]

Ditambah baris baru yang tertinggal.

Cobalah online! (perlu beberapa detik untuk menjalankannya, karena ia menggilir semua karakter unicode).

Program ini memiliki id(sebelum ['$'..]) yang tidak diperlukan untuk logika program, tetapi entah bagaimana saya harus menghabiskan idan d.

nimi
sumber
Outputnya tidak dalam urutan yang sama.
Laikoni
1
@Laikoni: Saya salah membaca tantangan. Sekarang sudah diperbaiki.
nimi
4

Python, 96 byte, Agargara

f= 'B7ofx)wdr0o{1{6{{r){1x0sD00qF1{{24}wr2wlo)y))xm2'; print''.join([r+chr(ord(r)-9)for r in f])

Cobalah online!

Setelah saya perhatikan bahwa beberapa karakter diulang berpasangan, itu hanya masalah menemukan peta ascii yang cocok antara karakter.

pecandu matematika
sumber
Selamat! Itulah tepatnya bagaimana saya menulisnya.
Agargara
3

Pyth, 32 byte, Batang

J+"J+J=JJ 1-2#pTN%"N #%2J=T-1pJJ

Cobalah online!

Saya tidak terlalu mengenal Pyth, tetapi saya mulai dengan mencetak output yang diperlukan dan pergi dari sana.

 +"J+J=JJ 1-2#pTN%"N             # Add a '"' to the string in quotes
J                                # Assign result of above step to J
                     #           # Start an infinite loop
                      %2J=T-1    # Loops one iteration, then breaks
                                 # (I have no idea why this works)
                             pJ  # Explicitly print J
                               J # Implicitly print J
pecandu matematika
sumber
2

CJam, 46 byte, Cat Bisnis

93]_:c58]99]95]93]e__:c36]95]95]101]101]e_$_:c

Cobalah online!

93]                                             # Push [93] onto the stack
   _                                            # Copy
    :c                                          # Push ascii char 93 ']'
      58 99 95 93                               # Push these numbers...
        ]  ]  ]  ]                              # Push entire stack as array
                  e__                           # Flatten and copy
                     :c                         # Map ascii values to all elements
                       36]95]95]101]101]        # Same as above
                                        e_      # Flatten
                                          $     # Sort
                                           _    # Copy, implicitly print
                                            :c  # Map ascii values to all elements
                                                # Implicitly print
pecandu matematika
sumber
2

Oktaf, 91 byte, drolex

a=['111111111123666667eeegggkkknnszEEGn};:;:'];
disp(['a=[''',a,'''];',10,[a-10,']);']]);dd

Cobalah online!

Sangat mirip dengan solusi python yang menyalahgunakan nilai ascii untuk mencetak karakter yang dibutuhkan.

pecandu matematika
sumber
Retak memang. Sudah selesai dilakukan dengan baik.
drolex