Trong một thế giới đa chiều hơi nước, ông chủ của chúng tôi muốn dán nhãn chỉ mục được in vào mỗi ngăn kéo trong tủ hồ sơ đa chiều của tập đoàn chúng tôi.

Sếp muốn sắp xếp toàn bộ tờ nhãn dưới dạng đơn, sử dụng phông chữ chỉ mua cho mục đích này, vì vậy chúng tôi phải đặt hàng các loại (miếng biểu tượng kim loại). Vì các loại rất đắt tiền, thứ tự của chúng tôi phải được tính chính xác cho từng ký hiệu chữ số.

Đối với một tập hợp chiều dài nhất định (bằng bất kỳ phương tiện nào), 0, trả về (bằng bất kỳ phương tiện nào) thứ tự của chúng tôi, đó là bảng tần số của các chữ số cần thiết để sắp xếp tất cả các tọa độ của Cartesian. Nó phải được sắp xếp theo thứ tự xuất hiện của bàn phím (tức là 0 sau 9) và có thể không bao gồm các lệnh 0 loại, vì vậy nếu không có loại nào được sắp xếp theo thứ tự (vì kích thước có độ dài 0); không in gì cả

• Phần thưởng -3 sắp xếp nếu mã của bạn có thể xử lý (tức là không in gì) 0 kích thước.
• Chars dòng cuối cùng được chấp nhận.
• Cấm các sơ hở tiêu chuẩn áp dụng.
• Như đã đề cập, các loại đắt tiền, do đó, đây là codecolf .

Một linh hồn tốt bụng có thể chỉnh sửa thử thách này để bao gồm ghi điểm tự động, do đó, bao gồm một tiêu đề như:
# LanguageName, 123 sorts

Các trường hợp thử nghiệm

Đưa ra 11, in:

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

vì các nhãn cần thiết là 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, và 11.

Đưa ra 2 3, in:

1 5
2 5
3 2

vì các nhãn cần thiết là 1 1, 1 2, 1 3, 2 1, 2 2, và 2 3.

Cho 2 0, in một dòng trống:

hoặc không có gì.

Đưa ra 1 2 3, in:

1 11
2  5
3  2

vì các nhãn cần thiết là 1 1 1, 1 1 2, 1 1 3, 1 2 1, 1 2 2, và1 2 3

Đưa ra 5 5 5 5, in:

1 500
2 500
3 500
4 500
5 500

Và không, tôi sẽ không liệt kê tất cả 625 nhãn.

Thuốc nhuộm APL, 10 7

Mã này dài 10 byte và đủ điều kiện nhận thưởng.

Cảm ơn người dùng46915 cho 3 byte!

,∘≢⌸∊⍕¨∊⍳⎕

Lưu ý rằng ⎕(đầu vào) không hoạt động trên TryAPL; bạn có thể thử mẫu hàm ở đây .

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

Tôi hoàn toàn không hiểu ⌸toán tử, nhưng {⍺}⌸liệt kê các giá trị duy nhất được thực hiện và {⍵}⌸liệt kê các vị trí của chúng trong đối số.

Điều này có thứ tự đúng bởi vì nó là thứ tự xuất hiện các chữ số trong mảng đa chiều của nhãn.

Toán học, 48 byte - 3 = 45

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

Toán học, 111 85 byte

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

Hầu hết các công việc ở đây được thực hiện bởi DigitCount.

R, 110 byte

Đã cứu 4 nhờ Alex A. (cảm ơn!)

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

Ruby, 92 byte

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

Lấy độ dài làm đối số dòng lệnh:

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

CJam, 31 byte

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

Dùng thử trực tuyến

Mã là 34 byte và mất 3 byte tiền thưởng để làm việc với danh sách đầu vào trống. Đầu vào là một danh sách ở định dạng CJam, ví dụ:

[1 2 3]

Giải trình:

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.

Bình thường, 15 byte

rjko%N_Ts*FSMQ8

Haskell, 125 byte

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