Ea 发表于 2004-6-5 00:13:00

(mapcar'(lambda (x)
       (nthx
    '(a d c b a)
       )
   )
(vl-sort-i
   '(a d c b a)
   '(lambda (s1 s2)
         (< (vl-symbol-name s1) (vl-symbol-name s2))
       )
)
)

badgirl 发表于 2004-6-7 09:23:00

谢谢各位大侠!
页: 1 [2]
查看完整版本: 请教关于(VL-SORT list comparision-function)函数的用法？