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

Что такое анаграмма?

Qua 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 байт

Гольф 1 байт благодаря @WheatWizard, используя !и увеличивая его, чтобы получить"

Гольф 1 байт благодаря @ 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 байта

печать ( "" "р" г "я" п "т" 2 ( ") *" "" * 2)

Отпечатки p"r"i"n"t"2(")*p"r"i"n"t"2(")*\n, отсортированный вывод:\n""""""""""""(())**22iinnpprrtt

Рубин , 8 байт

p"p*2"*2

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

Это печатает

"p*2p*2"

объяснение

Это работает аналогично Python ответ на вопрос. Он создаст строку, а p*2p*2затем с помощью Ruby 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:

"iQ ²"iQ ²

Но я не верю, что есть какой-либо простой способ вставить кавычку в середине строки для 9-байтовой квинны.

Рубин, 20 байтов

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

Это выводы

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

Использование %q(...)строкового синтаксиса Ruby , который поддерживает вложенные скобки.

Сетчатка , 8 байт

_

$nn$

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

Печать

n$_
n$

Оба содержат один _, два n, два $и три перевода строки.

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

объяснение

_

Замените пустой ввод на _.

$nn$

Сопоставьте пустую строку, которая происходит как до, так и после, _и вставьте перевод строки ( $n), an nи a $. Так как мы сначала вставили это _, это добавляет каждый из этих символов дважды, поэтому и nи $учитывают $n, и мы получаем два из трех перевода строки, которые нам нужны в выводе. Третий перевод строки печатается, потому что Retina печатает завершающий перевод строки по умолчанию.

Мы могли бы также использовать n$n$на этом этапе, который бы напечатал:

n
$_n
$

Python Repl, 4 байта

Это мое первое решение Code Golf, поэтому я надеюсь, что оно соответствует правилам. В Python 2 или 3 интерактивный переводчик:

>>> (1),
(1,)

Вывод представляет собой анаграмму ввода.

Другая:

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

В Python 2:

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

В Python 3:

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

Обновление 2017-06-15: Еще одно:

>>> 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-сову)

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

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

Выход:

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

Groovy, 24 20 байт

{"""{""*""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.

Баш, 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 поддерживает конкатенацию строковых литералов, просто помещая их рядом друг с другом, поэтому добавление "''"к строке и вставка ""внутри части одинарных кавычек дает это решение.

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

Я только что понял, как сделать правильный quine в QBIC. Создание из нее анаграммы осуществляется простым переключением символов в строковом литерале. Таким образом, существует 24 возможных анаграммы.

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, который движется вправо. Этот атом затем попадает в точку ", которая запускает режим печати. В режиме печати все символы (до совпадения ") печатаются. Это означает, что он печатает '!+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

Запускать и отлаживать онлайн!

Альтернативная версия с довольно дешевым трюком, который может быть применен к нужным ссылкам практически на любом языке.

"43bL"34bL

Запускать и отлаживать онлайн!

Потому что "34bL"34bL что это правильный Quine в Stax.

Еще одна версия, использующая только строковые литералы с одним символом.

''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