Anagram Quines (Discussione dei ladri)


11

Questa è una sfida di che puoi trovare qui

La tua sfida, in quanto rapinatori, è quella di prendere gli output dal thread dei poliziotti e trovare anagrammi dell'output che, quando eseguiti come output del programma, hanno fornito l'output originale.

Il vincitore sarà la persona con le crepe più valide su questa domanda.

Regole

  • Non è possibile decifrare le risposte contrassegnate come sicure con un programma fornito.

  • Se un poliziotto fornisce una lingua in cui si trova la soluzione desiderata, devi decifrarla in quella particolare lingua, se scelgono di non farlo potresti decifrarla in qualsiasi lingua concorrente.

  • Si applicano le regole standard per Quines.

  • Le crepe non devono essere perfette. cioè non devono emettere la loro esatta fonte ma un loro riordino (l'ordine è fornito dal poliziotto).


Risposte:


5

Linguaggio non specificato (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       ..............

Provalo online!

Come funziona

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.

5

Brain-Flak , Riley

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

Provalo online!

Spiegazione

Questo è stato un po 'più facile di quanto mi aspettassi.

Ho scritto 3 anelli separati per stampare ogni tipo di parentesi graffa:

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

Ho usato la tecnica Mini-Flak standard per evitare l'uso della <...>monade e, a dire il vero, non ho mai sentito il bisogno di usare il <>nilad.

Questo deve essere stato estremamente simile a quello che Riley ha fatto in primo luogo perché quando avevo finito mi restava un extra (). Questo non è un problema perché ()è essenzialmente una no-op ai massimi livelli, quindi l'ho bloccato all'inizio del mio programma.


1
Questo è esattamente cosa / come l'ho scritto. Avevo bisogno di un extra ()per far combaciare tutto. Molto bene!
Riley,

4

Haskell, 107 byte, Laikoni

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

Più una nuova riga finale.

Provalo online! (ha bisogno di alcuni secondi per essere eseguito, perché scorre tutti i caratteri Unicode).

Il programma ha un id(subito prima ['$'..]) che non è necessario per la logica del programma, ma in qualche modo devo spendere ie d.


L'output non è nello stesso ordine.
Laikoni,

1
@Laikoni: ho letto male la sfida. Ora è stato risolto.
nimi,


3

Pyth, 32 byte, Rod

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

Provalo online!

Non conosco molto bene Pyth, ma ho iniziato con la stampa dell'output richiesto e sono partito da lì.

 +"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

2

CJam, 46 byte, Business Cat

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

Provalo 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

Utilizzando il nostro sito, riconosci di aver letto e compreso le nostre Informativa sui cookie e Informativa sulla privacy.
Licensed under cc by-sa 3.0 with attribution required.