Anagram Quines (Нить грабителей)


11

Это бросить вызов нити ментов можно найти здесь

Ваша задача, как грабителей, состоит в том, чтобы взять выходные данные из потока полицейских и найти анаграммы выходных данных, которые при запуске в качестве программы выводят исходные выходные данные.

Победителем станет тот, у кого на этот вопрос больше всего трещин.

правила

  • Вы не можете взломать ответы, помеченные как безопасные с помощью предоставленной программы.

  • Если полицейский предоставляет язык, на котором намечено предполагаемое решение, вы должны взломать его на этом конкретном языке, если они не захотят, вы можете взломать его на любом конкурирующем языке.

  • Применяются стандартные правила для Quines.

  • Трещины не должны быть идеальными. то есть они не должны выводить свой точный источник, а переупорядочивать его (порядок обеспечивается полицейским).


Ответы:


5

Неуказанный язык (CJam), 254 байта, 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       ..............

Попробуйте онлайн!

Как это работает

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

Брейн-Флак , Райли

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

Попробуйте онлайн!

объяснение

Это было немного проще, чем я ожидал.

Я написал 3 отдельных цикла для печати каждого типа скобок:

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

Я использовал стандартную технику Mini-Flak, чтобы избежать использования <...>монады, и, честно говоря, я никогда не чувствовал необходимости использовать <>nilad.

Должно быть, это было очень похоже на то, что Райли сделала в первую очередь, потому что, когда я закончил, у меня остался лишний (). Это не проблема, потому что ()по сути это неактивный режим на верхнем уровне, поэтому я поставил его перед моей программой.


1
Это именно то, что / как я написал это. Мне нужно было дополнительное, ()чтобы все соответствовало. Отлично сработано!
Райли,

4

Haskell, 107 байтов, лайкони

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

Плюс завершающий перевод строки.

Попробуйте онлайн! (требуется несколько секунд для запуска, потому что он перебирает все символы Юникода).

В программе есть id(прямо перед ['$'..]), которая не нужна для логики программы, но мне как-то приходится тратить iи d.


Вывод не в том же порядке.
Laikoni

1
@Laikoni: я неправильно понял вызов. Теперь это исправлено.
Ними

4

Питон, 96 байт, Агаргара

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

Попробуйте онлайн!

Как только я заметил, что некоторые символы повторяются парами, это был просто вопрос поиска подходящей карты ascii между персонажами.


Поздравляем! Именно так я и написал.
Агаргара

3

Pyth, 32 байта, род

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

Попробуйте онлайн!

Я не очень хорошо знаю Pyth, но я начал с печати необходимого результата и пошел оттуда.

 +"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 байтов, Business Cat

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

Попробуйте онлайн!

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

Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.