R , 84 77 byte

-7 byte berkat mb7744

unique(lapply(x<-sort(table(scan()),T),function(y)as.double(names(x[x==y]))))

Baca dari stdin; mengembalikan daftar dengan subvektor bilangan bulat dalam urutan yang meningkat. Jika kita bisa mengembalikan string alih-alih int, maka saya bisa menjatuhkan 11 byte (menghapus panggilan ke as.double), tapi hanya itu. tableFungsi R melakukan pengangkatan berat di sini, menghitung kemunculan setiap anggota dari inputnya; lalu menggabungkannya dengan hitungan ( names). Tentu saja, itu sebuah string, jadi kita harus memaksanya ke integer / double.

Cobalah online!

JavaScript (ES6), 100 98 96 93 byte

Disimpan 2 byte berkat @Neil (ditambah lagi ia memperbaiki bug kasus tepi dalam kode saya). Disimpan 3 byte lebih banyak berkat @TomasLangkaas.

a=>a.sort().map((_,n)=>a.filter((v,i)=>i-a.indexOf(v)==n&v!=a[i+1])).filter(a=>a+a).reverse()

Uji kasus

f=
a=>a.sort().map((_,n)=>a.filter((v,i)=>i-a.indexOf(v)==n&v!=a[i+1])).filter(a=>a+a).reverse()

console.log(JSON.stringify(f([1,2,3])))
console.log(JSON.stringify(f([1,1,1,2,2,3,3,4,5,6])))
console.log(JSON.stringify(f([1,1,1,4,5,6,6,6,7,7,8,8,8,8,8,8,8,9,5,6,5,6,5,6,5,6,-56])))
console.log(JSON.stringify(f([])))

V , 60 , 54 byte

Úòͨ¼¾©î±/± ±òHòø 
pkJjòú!
Ǩ^ƒ ©î±/o
Îf ld|;D
òV{Jk

Cobalah online!

Hexdump:

00000000: daf2 cda8 bc81 bea9 eeb1 2fb1 20b1 f248  ........../. ..H
00000010: f2f8 200a 706b 4a6a f2fa 210a c7a8 5e83  .. .pkJj..!...^.
00000020: 20a9 81ee b12f 6f0a ce66 206c 647c 3b44   ..../o..f ld|;D
00000030: 0af2 567b 4a6b                           ..V{Jk

Seperti saya suka V, saya cukup yakin ini adalah bahasa yang paling buruk untuk tugas ini. Terutama mengingat tidak memiliki dukungan untuk daftar, dan pada dasarnya tidak ada dukungan untuk angka. Hanya manipulasi string.

C #, 119 byte

Cukup menusuknya:

using System.Linq;
a=>a.GroupBy(x=>x)
    .GroupBy(x=>x.Count(),x=>x.Key)
    .OrderBy(x=>-x.Key)
    .Select(x=>x.ToArray())
    .ToArray()

R , 66 byte

(l=lapply)(l(split(x<-table(scan()),factor(-x)),names),as.integer)

Cobalah online!

Jika dalam output bilangan bulat mungkin dalam format string, dapat turun menjadi 48 byte (seperti yang disebutkan dalam jawaban @ Giuseppe).

Tidak Disatukan:

input <- scan(); # read input
x <- table(input); # count how many times each integer appears, in a named vector
y <- split(x, factor(-x)) # split the count into lists in increasing order
z <- lapply(y, names) # access the the original values which are still
                      # attached via the names
lapply(z, as.integer) # convert the names back to integers

PowerShell, 77, 70 byte

($a=$args)|group{($a-eq$_).count}|sort n* -Des|%{,($_.group|sort -u)}

NB: Untuk melihat bahwa hasil ini dikelompokkan dengan benar (karena secara visual tidak ada deliniasi antara konten setiap array), Anda mungkin ingin menambahkan | write-hostke akhir baris di atas.

Ucapan Terima Kasih

Terimakasih untuk:

• TessellatingHeckler untuk menghemat 7 byte dengan melakukan refactoring / penulisan ulang secara besar-besaran dengan cara yang lebih pegolf.

Sebelumnya

77 byte

param($x)$x|group|sort count -desc|group count|%{,($_.group|%{$_.group[0]})}

Groovy, 71 byte

{a->a.groupBy{a.count(it)}.sort{-it.key}.values().collect{it.unique()}}

Saya sebenarnya baru belajar tentang groupBy setelah membuat ini. Saya tidak tahu mengoleksi bukan satu-satunya pilihan saya.

{
    a->                 // [1,2,1,2,3,3,3,6,5,4]
    a.groupBy{      
        a.count(it)     // [2:[1,2,1,2],3:[3,3,3],1:[6,5,4]]
    }.sort{             
        -it.key         // [3:[3,3,3],2:[1,2,1,2],1:[6,5,4]]
    }.values().collect{ // [[3,3,3],[1,2,1,2],[6,5,4]]
        it.unique()
    }                   // [[3],[1,2],[6,5,4]]
}

Ruby , 62 byte

->a{a.group_by{|e|a.count(e)}.sort_by{|x,_|-x}.map{|_,i|i|[]}}

Cobalah online!

Harus ada cara yang lebih singkat untuk melakukan ini.