Довідка! Я щойно увійшов до Stack Exchange, але забув, що таке мій пароль! Мені потрібен спосіб опрацювати це, перш ніж вийти з системи.

На щастя, я відмінний хакер. Не тільки я зміг знайти хеш мого пароля, але і знайшов алгоритм хешування Stack Exchange! Він приймає значення ASCII кожної цифри, помножене на місце цієї цифри, а потім підсумовує всі ці значення разом. Наприклад:

"135" -> 1*49 + 2*51 + 3*53 = 310

Я пам’ятаю, що мій пароль має три цифри і що кожен символ є числом від 0 до 5 включно (таким чином, щоб він відповідав регулярному вираженню:) ^[0-5]{3}$, але це ще занадто багато можливостей здогадатися. Мені потрібна програма, яка може перетворити хеш назад у потенційні паролі, але, не дивлячись на те, що я є хакерським експертом, я не можу кодувати, щоб врятувати своє життя! Мені вдалося написати ці тести вручну:

input -> output
288   -> 000                      // lowest possible hash
290   -> 200, 010
298   -> 022, 050, 103, 131, 212, 240, 321, 402, 430, 511   
318   -> 555                      // highest possible hash

Чи може хтось із вас написати мені програму, яка візьме в хеш і надрукує всі можливі паролі, які я міг би використати?

Вхід завжди зможе створити принаймні один дійсний пароль. Дозволений будь-який вихідний формат, якщо рядки можна чітко визначити. Я також не переймаюся провідними нулями, тому, якщо потенційний пароль 001, я також прийму 01або 1.

Будь ласка, допоможіть мені, щоб я не був закритий з Stack Exchange!

Оцінка балів

Це код-гольф , тому найкоротша відповідь на кожній мові виграє!

05AB1E , 9 байт

5Ý3ãʒÇƶOQ

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

Повертає список списків цифр.

C , 113 108 байт

f(int h){int i=47,j,k;while(++i<54)for(j=47;++j<54)for(k=47;++k<54;)if(h==i+j+j+k*3)printf("%c%c%c",i,j,k);}

Унікально бачити, що призначено для виводу, вихід має формат: 200010

Усі паролі записуються у вигляді 3-х цифр без роздільника.

Желе , 16 байт

Ṿ€Oæ.J
6Ḷṗ3Ç⁼¥Ðf

Монадійне посилання, що повертає список списків цифр.

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

Як?

Ṿ€Oæ.J - Link 1, hash: list of integers (the digits of a password)
Ṿ€     - unevaluate €ach (giving a list of characters)
  O    - cast to ordinals (Ṿ€O could actually be replaced with +48 too)
     J - range of length (i.e. [1,2,3] in all use-cases)
   æ.  - dot product

6Ḷṗ3Ç⁼¥Ðf - Main link: number, n
6Ḷ        - lowered range of 6 = [0,1,2,3,4,5]
  ṗ3      - Cartesian power with 3 = [[0,0,0],[0,0,1],...,[5,5,5]] (all passwords)
       Ðf - filter keep if:
      ¥   -   last two links as a dyad (right implicitly n):
    Ç     -     call last link (1) as a monad
     ⁼    -     equals right?

Python 2 , 126 75 байт

-2 завдяки @ArnoldPalmer

lambda h:[(P/36,P%36/6,P%6)for P in range(216)if P/36+P%36/6*2+P%6*3==h&31]

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

MATL , 20 байт

'0':'5'3Z^t3:*!si=Y)

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

Пояснення

'0':'5'   % Push inclusive range from '0' to '5', that is, '012345'
3Z^       % Cartesian power with exponent 3. Each Cartesian tuple is a row
t         % Duplicate
3:        % Push [1 2 3]
*         % Multiply element-wise with broadcast
!s        % Sum of each row
i         % Input number
=         % Logical mask of values that equal the input
Y)        % Use as logical index into the rows of the matrix. Implicit display

Python 2 , 81 байт

lambda h:[(a,b,c)for a in r for b in r for c in r if a+2*b+3*c+288==h]
r=range(6)

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

Haskell, 71 70 64 61 байт

l=[0..5]
f p=[show=<<[a,b,c]|a<-l,b<-l,c<-l,p-288==a+2*b+3*c]

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

C # (.NET Core) , 133 131 125 123 байт

n=>{int i,j,k;for(i=48;i<54;++i)for(j=48;j<54;++j)for(k=48;k<54;++k)if(i+j*2+k*3==n)Console.Write($"{i%48}{j%48}{k%48},");}

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

Вугілля деревне , 33 байти

Ｆ⁶Ｆ⁶Ｆ⁶¿⁼⁺℅Ｉι⁺×℅Ｉκ²×℅Ｉλ³Ｉθ«ＩιＩκＩλ⸿

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

Аналогічний підхід до інших відповідей: обведіть тричі від 0 до 5, обчисліть хеш і надрукуйте стан змінних ітерації, якщо він збігається з вхідним хешем.

Посилання на багатослівну версію .

CJam , 26 25 байт

-1 байт завдяки Challenger5

{:H;6Zm*{s:i3,:).*:+H=},}

Анонімний блок очікує хеш на стеку (як ціле число) і залишає результат у стеку (як список рядків).

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

Пояснення

:H;    e# Store the hash in H.
6Zm*   e# 3rd Cartesian power of [0 1 2 3 4 5].
{      e# For each tuple in the power:
 s     e#  Stringify the tuple.
 :i    e#  Get the code point of each digit.
 3,:)  e#  Push [1 2 3].
 .*    e#  Element-wise multiplication of the two lists.
 :+    e#  Sum the result.
 H=    e#  Check if it's equal to the hash.
},     e# Filter the tuples to only ones for which this block gave a truthy result.

Java, 162 байт

static void f(int n){for(int i=48;i<54;i++){for(int j=48;j<54;j++){for(int k=48;k<54;k++){if(i+j*2+k*3==n)System.out.println((char)i+""+(char)j+""+(char)k);}}}}

JavaScript (Firefox 30-57), 72 байти

n=>[for(i of s="012345")for(j of s)for(k of s)if(n-i-j*2-k*3==288)i+j+k]

Піт, 18 байт

fqQs*VS3CMT^jkU6 3

QBIC , 40 байт

[0,5|[0,5|[0,5|~a+b+b+c+c+c+288=:\?a,b,c

Пояснення

[0,5|                Make a FOR loop run through the possible digits for pos 1, called a
[0,5|                Loop for #2, b
[0,5|                Loop for #3, c
                     Calculate the hash by taking a once, b twice and c thrice, 
                     and raising all to their ASCII codepoints
 a+b+b+c+c+c+288       
~               =:   IF thta is euqal to the given hash (read from cmd line)
\?a,b,c              THEN print the digits
                     (the IF and the FOR loops are auto-closed by QBIC)

R , 67 62 61 байт

-5 байт завдяки Джарко Дуббелдам

b=t(t(expand.grid(rep(list(0:5),3))));b[b%*%1:3==scan()-288,]

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

читає число з stdin; повертає матрицю, де рядки є символами.

Він генерує всі можливі трійки цифр у матричному форматі ( b), обчислює добуток матриці b * [1,2,3], приймає рядки, bякі відповідають (віднімаючи 288з вхідних даних 1*48+2*28+3*48) і повертає їх.