ในโลกหลายมิติไอพังก์หัวหน้าของเราต้องการพิมพ์ฉลากดัชนีลงในลิ้นชักแต่ละอันในตู้เก็บเอกสารหลายมิติของกลุ่ม บริษัท ของเรา

เจ้านายต้องการพิมพ์แผ่นป้ายผนึกทั้งหมดเป็นแบบฟอร์มเดียวโดยใช้แบบอักษรที่ซื้อมาเพื่อการนี้เท่านั้นดังนั้นเราจึงต้องเรียงลำดับ (ชิ้นส่วนสัญลักษณ์โลหะ) เนื่องจากการเรียงลำดับมีราคาแพงมากคำสั่งซื้อของเราต้องเป็นตัวเลขที่แน่นอนสำหรับแต่ละสัญลักษณ์

สำหรับชุดของความยาวของมิติที่กำหนด (โดยวิธีการใด ๆ ) return 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, และ1011

ป.ร. ให้2 3ไว้พิมพ์:

1 5
2 5
3 2

เพราะป้ายที่จำเป็นมี1 1, 1 2, 1 3, 2 1, และ2 22 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 รายการ

Dyalog APL, 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

ฉันไม่เข้าใจ⌸ผู้ประกอบการอย่างสมบูรณ์แต่{⍺}⌸แสดงรายการค่าที่ไม่ซ้ำกันและ{⍵}⌸รายการสถานที่ในการโต้แย้ง

สิ่งนี้มีการจัดลำดับที่ถูกต้องเพราะเป็นลำดับที่ตัวเลขปรากฏในอาร์เรย์หลายมิติของฉลาก

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 ขอบคุณ Alex A. (ขอบคุณ!)

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

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