表 排序 分级

kblh

("1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" "16")
("11" "12" "13" "14" "15" "16") ("12" "13") ("12" "13" "14" "15""16")
("16") ("2") ("2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" "16")
("2" "3") ("4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" "16")
("4" "5") ("5") ("6") ("6" "7" "8" "9" "10") ("7" "8") ("8" "12") ("9")("1")
("14") ("14" "15") ("10") ("11")  
表比较得到
("1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" "16")  1
("1")  2
("2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" "16")  2
("2" "3")  3
("4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" "16") 3
("8" "12") 4   ("2")  4   ("4" "5")  4  ("6" "7" "8" "9" "10") 4
("11" "12" "13" "14" "15" "16")  4  
("5") 5   ("6")  5  ("10")  5    ("9") 5   ("11")  5
("7" "8")  5  ("12" "13" "14" "15""16")  5  
("16")  6  ("12" "13") 6    ("14" "15")  6  ("14") 7

数字表示级别

kblh

(defun xxj ( / )
(setq tth (xxh) tti (xxi) ttc (xxc)oba '()obb '())
(setq ls (del-same tth)  lt (del-same tti) lc (del-same ttc) i 0 xs'())
(repeat (length ls)
  (setq aa (nth i ls))
  (setq bb (cdr aa)cc (remove bb lt) k 0)
  (if (=(length lc)(car aa))
   (setq oa (list (cons 1 bb)) oba (append oa oba))
  )
  (while (< k (length cc))
   (setq dd (nth k cc))
   (if (<(length bb)(length dd))
    (progn
     (setq ob'()oc'()od'()oe'())
     (foreach x  bb  (setq dd (vl-remove x dd)))
     (if dd
      (progn
       (setq ob (list(cons((length dd) bb))) oc (append ob oc) od (l_ssort oc 0 '>))
      )
     )
     (if od (setq oe od)(setq oe oc))
    )
   )
   (setq k (+ k 1))
  )
  (setq oba (append oe oba))
  (setq i (+ i 1))
)
oba
)  不行

llsheng_73

1. (defun xxj(a)
   
2.   (vl-sort(mapcar'(lambda(x)(list x(length(vl-remove'nil(mapcar'(lambda(y)(apply'and(mapcar'(lambda(z)(member z y))x)))a)))))a)'(lambda(x y)(<(last x)(last y))))
   
3.   )

(defun xxj(a)<br />   (vl-sort(mapcar'(lambda(x)(list x(length(vl-remove'nil(mapcar'(lambda(y)(apply'and(mapcar'(lambda(z)(member z y))x)))a)))))a)'(lambda(x y)(<(last x)(last y))))<br />   )

(xxj'(("1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" "16")
("11" "12" "13" "14" "15" "16") ("12" "13") ("12" "13" "14" "15""16")
("16") ("2") ("2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" "16")
("2" "3") ("4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" "16")
("4" "5") ("5") ("6") ("6" "7" "8" "9" "10") ("7" "8") ("8" "12") ("9")("1")
("14") ("14" "15") ("10") ("11")))
((("1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" "16") 1) (("2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" "16") 2) (("1") 2) (("2" "3") 3) (("4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" "16") 3) (("11" "12" "13" "14" "15" "16") 4) (("2") 4) (("4" "5") 4) (("6" "7" "8" "9" "10") 4) (("8" "12") 4) (("12" "13" "14" "15" "16") 5) (("5") 5) (("6") 5) (("7" "8") 5) (("9") 5) (("10") 5) (("11") 5) (("12" "13") 6) (("16") 6) (("14" "15") 6) (("14") 7))

kblh

这种情况下不对

kblh

llsheng_73 发表于 2015-5-28 16:11
(xxj'(("1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" "16")
("11" "12" "13" ...

还有问题 请帮我看一下啊

kblh

已经解决1121312312