У цьому запитанні я попросив відгадати квітку анаграму на основі її результатів. Однак, схоже, у нас ще немає запитань про те, щоб пограти в гольф з анаграмою. Отже, ваше завдання полягатиме в тому, щоб зробити найкоротший анаграм-квін, який ви можете.

Що таке анаграма ангіна?

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

print ("" "p" r "i" n "t" 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"

Пояснення

Це працює аналогічно відповіді пітона в питанні. Це зробить рядокp*2p*2 після чого за допомогою Ruby's 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ç". Цей ближче до стандартної джапт-квіне:

"iQ ²"iQ ²

Але я не вірю, що існує якийсь простий спосіб закріпити лапки посеред рядка для 9-байтової квінти.

Рубін, 20 байт

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

Це виводить

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

Скористаючись %q(...)рядковим синтаксисом Ruby , який підтримує вкладені дужки.

Сітківка , 8 байт

_

$nn$

Спробуйте в Інтернеті!

Друкує

n$_
n$

Обидва містять один _, два n, два$ та три канали.

Зауважте, що передача рядків, що супроводжується майже будь-яким іншим символом, є тривіальним рішенням, але сумнівно, чи він дійсний, оскільки другий символ кодує себе сам, а передача рядків насправді не кодує жодного символу виводу.

Пояснення

_

Замініть порожній вхід на a _.

$nn$

Збіжіть порожній рядок, що відбувається перед або після, _і вставіть рядок рядків ( $n), an nі a $. Оскільки ми вперше вставили це _, до цього додається кожен із цих символів двічі, так що nі $обліковий запис$n , і ми отримуємо два з трьох каналів рядків, які нам потрібні у висновку. Третій канал передачі рядків друкується через те, що Retina друкує за замовчуванням зворотну стрічку.

На n$n$цьому етапі ми також могли використати , який потім надрукував:

n
$_n
$

Python Repl, 4 байти

Це моє перше рішення Golf 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@+

Я щойно придумав, як зробити належну квінку в 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());

Fission 2 , 9 8 6 байт

R"'!+O

Спробуйте в Інтернеті!

Пояснення

Атом створюється на R, який рухається вправо. Потім цей атом натрапляє на a ", який запускає режим друку. У режимі друку всі символи (до відповідності ") друкуються. Це означає, що він друкує '!+ORв цьому випадку. Потім все, що залишилося, - це друк ", який робиться іншими символами. '!встановлює масу атома до символьного коду !та +збільшує його до коду символів ". Потім код символу виводиться поO і атом знищується, закінчуючи програму.

(Власне, це лише обертання найкоротшої лайки)

Математика, 2 байти

.0

Вихід:

0.

Число, що починається з десяткової крапки, як .123інтерпретується як 0.123, так .0і інтерпретується як 0.0. Оскільки частина числа після десяткової крапки дорівнює нулю, Mathematica не друкує його.

JavaScript (yet another one), 11 bytes

f=_=>'=f'+f

Called with f(), outputs

=f_=>'=f'+f

f=_=>'=f'+f

console.log(f());

Python 3, 31 байт

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

Стакс , 8 4 байти

.S.S

Запуск та налагодження в Інтернеті!

Прямий порт відповіді.

Стара версія, 8 байт

..b..LbL

Запуск та налагодження в Інтернеті!

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

"43bL"34bL

Запуск та налагодження в Інтернеті!

Тому що "34bL"34bL is a proper quine in 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