Позитивна обізнаність

Ваше завдання - створити програму, яка для кожної перестановки своїх символів (яка включає оригінальну програму) виводить позиції кожного символу відносно вихідної програми.

Якщо ваша програма є

Derp

ви повинні вивести

[0, 1, 2, 3]

(або якийсь еквівалент). Це тому , що Dзнаходиться в 0ій позиції, eзнаходиться в 1ст, г на 2й, і - й.p3

Візьмемо ще одну програму, яка є оригінальною програмою, але з перестановками її символів:

epDr

Ви повинні вивести

[1, 3, 0, 2]

тому що eзнаходиться в 1положенні й оригінальної програми, pзнаходиться в 3положенні я, Dна 0е, і rв 2е.

Якщо в оригінальній програмі є два повторювані символи:

abcda -> [0, 1, 2, 3, 4]

Тоді для перестановки масив 0і 4в масиві має бути у порядку зростання:

baadc -> [1, 0, 4, 3, 2] (0 first, then 4)

Правила:

• Ваша програма повинна містити принаймні два унікальних символи.

• У більшості floor(n/2)символи повинні бути однаковими.

   aabb (acceptable)
   aaaabc (not acceptable, only floor(6/2) = 3 a's allowed)
  

• Вихід вашої програми може бути або масивом (або чимось подібним), що містить усі позиції символів за порядком, або рядок з будь-яким роздільником, так що ці ідеально добре:

  [0, 1, 2, 3]
  0,1,2,3
  0 1 2 3
  

Власне , 2 байти

10

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

Це відбитки

0
1

тоді як (тільки) інша перестановка

01

відбитки

1
0

Як це працює

Насправді послідовні цифри аналізуються окремо, тому 10натискаємо 1 на стек, а потім 0 на верхній частині.

Коли програма закінчується, стек друкується зверху вниз, тому він спочатку надрукує 0 , потім передачу рядків, потім 1 .

Програмована програма 01робить те саме, у зворотному порядку.

Желе , 2 байти

;J

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

Виходи: [0, 1]

Інші перестановочні J;виходи:[1, 0]

Як це працює:

;J
;          Concats 0 with...
 J         [1...len(z)], here just [1]

J;
J          [1...len(z)], here just [1]
 ;         ...Concatted with 0