Tüm ifade düzeylerini sırala

Question

Bir ifadenin tüm düzeylerini sıralamanın iyi bir yolu nedir? Aşağıda, I ifadesi dikdörtgen bir yapıya sahip olduğunda istediğimizi yapar ama

Map[Sort, {expr}, Depth[expr] - 1] 

Örneğin aşağıdaki Doğru yazdırmalısınız yanı dikdörtgen olmayan ifadeler için çalışmak seveceğini

sorted = deepSort[{{{1, 3, 8}, {3, 7, 6}, {10, 4, 9}, {3, 8, 10, 
     6}, {8, 2, 5, 10}, {8, 5, 10, 
     9}}, {{{1, 3, 8}, {3, 8, 10, 6}}, {{3, 7, 6}, {3, 8, 10, 
     6}}, {{10, 4, 9}, {8, 5, 10, 9}}, {{3, 8, 10, 6}, {8, 2, 5, 
     10}}, {{8, 2, 5, 10}, {8, 5, 10, 9}}}}]; 
checkSortedLevel[k_] := Map[OrderedQ, sorted, {k}]; 
And @@ Flatten[checkSortedLevel /@ Range[0, 2]] 

Answer 1

deepSort[expr_] := Map[Sort, expr, {0, -2}]

Bu durum, expr'inizin Listeden başka başlıklar içeriyor olsa bile çalışacağını unutmayın.

Answer 2

List dışında bir başlık içeren bir ifadeniz varsa ve bunları sıralamak istemiyorsanız, bu yararlı olabilir.

expr /. List :> Composition[Sort, List]