У багатовимірному світі парових панків наш начальник хоче прикріпити надруковані етикетки до кожного ящика в багатовимірному шафі файлів нашого конгломерату.

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

Для заданого (будь-яким способом) набору довжин розмірів ≥ 0 поверніть (будь-якими способами) наш порядок, який є таблицею частот цифр, необхідних для набору всіх декартових координат. Він повинен бути розташований за порядком появи клавіатури (тобто 0 після 9), і не може включати порядки 0 сортів, тому якщо сорти не потрібно замовляти взагалі (оскільки розмір має довжину 0); нічого не друкувати.

• Бонус -3 сорти, якщо ваш код може обробляти (тобто нічого не друкувати) 0 розмірів.
• Остаточні символи нового рядка прийнятні.
• Заборона на стандартні лазівки діє.
• Як згадувалося, сорти коштують дорого, тому це кодольф .

Добре душа може відредагувати цей виклик, щоб включити автоматизований бал, тому включіть заголовок, наприклад:
# LanguageName, 123 sorts

Тестові справи

Дано 11, надрукуйте:

1 4
2 1
3 1
4 1
5 1
6 1
7 1
8 1
9 1
0 1

тому що необхідні ярлики 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, і 11.

Дано 2 3, надрукуйте:

1 5
2 5
3 2

тому що необхідні ярлики 1 1, 1 2, 1 3, 2 1, 2 2, і 2 3.

Дано 2 0, надрукуйте порожній рядок:

або нічого.

Дано 1 2 3, надрукуйте:

1 11
2  5
3  2

тому що необхідні ярлики 1 1 1, 1 1 2, 1 1 3, 1 2 1, 1 2 2, і1 2 3

Дано 5 5 5 5, надрукуйте:

1 500
2 500
3 500
4 500
5 500

І ні, я не збираюся перераховувати всі 625 етикетки.

Діялог АПЛ, 10 7

Код завдовжки 10 байтів і відповідає критерію премії.

Дякуємо user46915 за 3 байти!

,∘≢⌸∊⍕¨∊⍳⎕

Зауважте, що ⎕(введення) не працює на TryAPL; ви можете спробувати форму функції тут .

            ⎕      Get input
           ⍳       Index vector
       ∊⍕¨∊        Flatten, stringify, flatten again
      ⌸            From the key, display the
{⍺,  }             elements concatenated with the
   ≢⍵              number of times they occur

Я не повністю розумію ⌸оператора, але {⍺}⌸перераховує унікальні значення, взяті на себе, і {⍵}⌸перераховує їх місця в аргументі.

Це правильне впорядкування, оскільки це порядок, в якому цифри з'являються у багатовимірному масиві міток.

Математика, 48 байт - 3 = 45

Grid@Tally@Flatten@IntegerDigits@Tuples@Range@#&

Математика, 111 85 байт

Grid[Thread@{Range@10~Mod~10,DigitCount@Tuples@Range@#~Total~2}~DeleteCases~{_,‌​0}]&

Більша частина роботи тут виконується DigitCount.

R, 110 байт

Збережено 4 подяки Алексу А. (спасибі!)

U=unlist
X=table(U(strsplit(as.character(U(expand.grid(Map(seq_len,scan())))),"")))
z=Map(cat,names(X),X,"\n")

Рубін, 92 байти

f,*r=$*.map{|n|[*1..n.to_i]}
a=f.product(*r)*''
puts a.chars.uniq.map{|c|[c,a.count(c)]*" "}

Приймає довжини як аргументи командного рядка:

$ ruby foo.rb 1 2 3
1 11
2 5
3 2

CJam, 31 байт

Laq~{,m*}/e_:)s{_'0=A*+}$e`{(S\N}%

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

Код становить 34 байти та займає 3-байтний бонус за роботу з порожнім вхідним списком. Вхід - це список у форматі CJam, наприклад:

[1 2 3]

Пояснення:

La    Push list containing empty list to seed Cartesian products.
q~    Get and interpret input.
{     Loop over values in input list.
  ,     Built range from 0 to value-1.
  m*    Form Cartesian product with the list we already have.
}/    End loop over values in input list.
e_    Resulting list has extra nesting. Flatten it.
:)    Increment all values in list, since it is 0-based, and we need 1-based.
s     Convert it to string, so we can operate on digits.
{     Block to calculate source key, needed to get 0 to the end.
  _     Copy the digit.
  '0=   Compare with '0.
  A*    Multiply comparison result by 10...
  +     ... and add it to digit.
}$    End of sort key block.
e`    RLE.
{     Start of loop over RLE entries, for generating output in specified format.
  (     Pop off the first value, which is the count.
  S     Push a space...
  \     ... and swap it with the count.
  N     Push a newline.
}%    End of loop over RLE entries.

Піт, 15 байт

rjko%N_Ts*FSMQ8

Haskell, 125 байт

import Data.List
l=mapM_(putStrLn.(\(h:r)->h:' ':show(length r+1))).group.sort.concatMap show.concat.sequence.map(\n->[1..n])