排版多维标签

Question

在一个蒸汽朋克多维世界中，我们的老板想在我们集团的多维文件柜的每个抽屉上贴上印刷的索引标签。

老板想要把整个标签纸作为一个单一的表格排版，只使用为此目的购买的字体，所以我们必须订购分类 (金属符号件)。由于种类非常昂贵，我们的订单必须是每个数字符号的准确计数。

对于给定的(以任何方式)维度长度集≥0，返回(无论如何)我们的顺序，这是排字所有笛卡尔坐标所需的数字频率表。它必须按键盘的外观顺序排列(即9之后的0)，并且可能不包括0排序的顺序，因此如果根本没有排序(因为维度的长度为0)，则不打印任何排序。

• 如果您的代码可以处理(即不打印任何)0维，则为-3排序。
• 最后的换行符是可以接受的。
• 禁止标准漏洞。
• 如前所述，排序是昂贵的，因此这是编码人。

一个善良的灵魂可能会编辑这个挑战以包括自动评分，所以包括一个标题，如：

# 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个标签。

Answer 1

Mathematica，48字节-3= 45

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

Answer 2

R，110个字节

感谢亚历克斯A. (谢谢！)

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

Answer 3

Pyth，15字节

rjko%N_Ts*FSMQ8