В многомерном мире steam-панк наш босс хочет прикрепить напечатанные индексные этикетки к каждому ящику в многомерной картотеке нашего конгломерата.

Начальник хочет набрать весь лист с надписью в виде единой формы, используя шрифт, купленный только для этой цели, поэтому мы должны заказать сортировки (металлические символы). Так как сортировки очень дороги, наш заказ должен быть для точного подсчета каждого цифрового символа.

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

• Бонус -3 сортирует, если ваш код может обрабатывать (т.е. ничего не печатать) тоже 0 измерений.
• Окончательные символы новой строки являются приемлемыми.
• Запрет на стандартные лазейки применяются.
• Как уже упоминалось, сортировки стоят дорого, поэтому это codecolf .

Добрый человек может отредактировать этот вызов, чтобы включить автоматический подсчет очков, поэтому добавьте заголовок, например:
# 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 байтов и соответствует условиям бонуса.

Спасибо пользователю 46915 за 3 байта!

,∘≢⌸∊⍕¨∊⍳⎕

Обратите внимание, что ⎕(вход) не работает на TryAPL; Вы можете попробовать форму функции здесь .

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

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

Это имеет правильный порядок, потому что это порядок, в котором цифры появляются в многомерном массиве меток.

Mathematica, 48 байтов - 3 = 45

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

Mathematica, 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.

Pyth, 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])