Dalam dunia multidimensi steam-punk, bos kami ingin menambahkan label indeks yang dicetak ke setiap laci di lemari arsip multidimensi konglomerat kami.

Bos ingin mengeset seluruh lembar label sebagai bentuk tunggal, menggunakan font yang dibeli hanya untuk tujuan ini, jadi kita harus memesan jenisnya (potongan simbol logam). Karena jenisnya sangat mahal, pesanan kami harus sesuai dengan jumlah persis dari setiap simbol angka.

Untuk satuan dimensi tertentu yang diberikan (dengan cara apa pun) ≥ 0, kembalikan (dengan cara apa pun) pesanan kami, yang merupakan tabel frekuensi digit yang diperlukan untuk mengeset semua koordinat Cartesius. Itu harus diatur oleh urutan tampilan keyboard (yaitu 0 setelah 9), dan mungkin tidak termasuk urutan 0 macam, jadi jika tidak ada jenis yang harus dipesan sama sekali (karena dimensi memiliki panjang 0); cetak apa-apa.

• Bonus -3 macam jika kode Anda dapat menangani (yaitu mencetak apa-apa) 0 dimensi juga.
• Karakter baris baru dapat diterima.
• Larangan pada celah standar berlaku.
• Seperti disebutkan, jenis mahal, ini karena itu codecolf .

Jiwa yang baik hati dapat mengedit tantangan ini untuk memasukkan penilaian otomatis, jadi sertakan tajuk seperti:
# LanguageName, 123 sorts

Uji kasus

Diberikan 11, cetak:

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

karena label dibutuhkan adalah 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, dan 11.

Diberikan 2 3, cetak:

1 5
2 5
3 2

karena label dibutuhkan adalah 1 1, 1 2, 1 3, 2 1, 2 2, dan 2 3.

Diberikan 2 0, cetak baris kosong:

atau tidak sama sekali.

Diberikan 1 2 3, cetak:

1 11
2  5
3  2

karena label dibutuhkan adalah 1 1 1, 1 1 2, 1 1 3, 1 2 1, 1 2 2, dan1 2 3

Diberikan 5 5 5 5, cetak:

1 500
2 500
3 500
4 500
5 500

Dan tidak, saya tidak akan mencantumkan semua 625 label.

Dyalog APL, 10 7

Panjang kode 10 byte dan memenuhi syarat untuk bonus.

Terima kasih kepada user46915 selama 3 byte!

,∘≢⌸∊⍕¨∊⍳⎕

Perhatikan bahwa ⎕(input) tidak berfungsi di TryAPL; Anda dapat mencoba formulir fungsi di sini .

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

Saya tidak sepenuhnya memahami ⌸operator, tetapi {⍺}⌸mencantumkan nilai unik yang diambil, dan {⍵}⌸mencantumkan tempat mereka dalam argumen.

Ini memiliki urutan yang benar karena ini adalah urutan di mana angka muncul dalam array label multidimensi.

Mathematica, 48 byte - 3 = 45

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

Mathematica, 111 85 byte

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

Sebagian besar pekerjaan di sini dilakukan oleh DigitCount.

R, 110 byte

Disimpan 4 berkat Alex A. (terima kasih!)

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)]*" "}

Mengambil panjang sebagai argumen baris perintah:

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

CJam, 31 byte

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

Cobalah online

Kode adalah 34 byte, dan membutuhkan 3 byte bonus untuk bekerja dengan daftar input kosong. Input adalah daftar dalam format CJam, misalnya:

[1 2 3]

Penjelasan:

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