《表排序》重金求助

redcat · 发表于 2012-8-7 08:58

本帖最后由 redcat 于 2012-8-10 10:28 编辑

【排序规则】
1、比较每个表的第1个元素从小到大排列表alist
2、如果表的第1个元素相等，则以第2个元素从小到大排列表alist
3、如果表的第2个元素相等，则以第3个元素从小到大排列表alist
...
4、以此类推

高山兄的代码错误，先将自己代码放入二楼，期待高手能将我的算法再加改进
示例1:
(sort '((36 90.0 6)
      (3 6)
      (4 5)
      (36 900.00 6)
      (4 5 45)
      (1 4567 900)
      (2 81)
      (2 5 88 1200 900)
      (2 188 7890)
   )
) ;_ 结束sort
((1 4567 900) (2 5 88 1200 900) (2 81) (2 188 7890) (3 6) (4 5) (4 5 45) (36 90.0 6) (36 900.0 6))
示例2:
(sort '(("[" 25 "a")
      ("[" 8)
      ("H" 400 "x" 200 "x" 6 "x" 12)
      ("H" 400 "~" 800 "x" 200 "x" 6 "x" 12)
      ("HW" 350 "x" 350 "x" 10 "x" 19)
      ("H" 80 "x" 20 "x" 6 "x" 8)
      ("L" 50 "x" 4)
      ("L" 100 "x" 10)
      ("~" 8)
      ("H" 400 "x" 200 "x" 6 "x" 8)
      (2 "[" 8)
      ("H" 500 "x" 240 "x" 8 "x" 12)
      ("H" 700 "x" 240 "x" 8 "x" 12)
   )
) ;_ 结束sort
(("H" 80 "x" 20 "x" 6 "x" 8)
  ("H" 400 "x" 200 "x" 6 "x" 8)
  ("H" 400 "x" 200 "x" 6 "x" 12)
  ("H" 400 "~" 800 "x" 200 "x" 6 "x" 12)
  ("H" 500 "x" 240 "x" 8 "x" 12)
  ("H" 700 "x" 240 "x" 8 "x" 12)
  ("HW" 350 "x" 350 "x" 10 "x" 19)
  ("L" 50 "x" 4)
  ("L" 100 "x" 10)
  ("[" 8)
  ("[" 25 "a")
  ("~" 8)
  (2 "[" 8)
)

redcat · 发表于 2012-8-7 09:00

本帖最后由 redcat 于 2012-8-8 10:01 编辑

保留区
【排序规则】
1、比较每个表的第1个元素从小到大排列表alist
2、如果表的第1个元素相等，则以第2个元素从小到大排列表alist
3、如果表的第2个元素相等，则以第3个元素从小到大排列表alist
...
4、以此类推

chlh_jd · 发表于 2012-8-7 20:25

(defun foo (l)
(vl-sort
l
(function
(lambda (e1 e2 / is no a b)
(while
(and (setq a (car e1)) (setq b (car e2)) (not is) (not no))
(if (/= (type a) (type b))
(if (= (type a) 'STR)
(setq is t)
(setq no t)
)
(if (< (car e1) (car e2))
(setq is t)
(if (> (car e1) (car e2))
(setq no T)
)
)
)
(setq e1 (cdr e1)
e2 (cdr e2)
)
)
(if is
(not no)
(if no
nil
e2
)
)
)
)
)
)

chlh_jd · 发表于 2012-8-7 20:29

这种简单问题，用到挑战赛......
估计没有高手感兴趣，如果楼主是要求助，建议您直接说明

redcat · 发表于 2012-8-8 09:13

本帖最后由 redcat 于 2012-8-8 09:19 编辑

chlh_jd 发表于 2012-8-7 20:29
这种简单问题，用到挑战赛......
估计没有高手感兴趣，如果楼主是要求助，建议您直接说明

程序有bug

(foo '((1 90.0 6)
      (1 88 900)
      (1 5)
      (1 900.00 6)
      (1 5 45)(1 6 8)
      (1 4567 900)(1 6)
      (1 81)(1 6 55)
      (1 5 88 )(1 120 90)
      (1 188 7890)
   )
)
((1 90.0 6) (1 5) (1 5 88) (1 6) (1 6 55) (1 81) (1 88 900) (1 900.0 6) (1 5 45) (1 6 8) (1 120 90) (1 188 7890) (1 4567 900))
_$

我的计算结果
(sort '((1 90.0 6)
      (1 88 900)
      (1 5)
      (1 900.00 6)
      (1 5 45)(1 6 8)
      (1 4567 900)(1 6)
      (1 81)(1 6 55)
      (1 5 88 )(1 120 90)
      (1 188 7890)
   )
)
((1 5) (1 5 45) (1 5 88) (1 6) (1 6 8) (1 6 55) (1 81) (1 88 900) (1 90.0 6) (1 120 90) (1 188 7890) (1 900.0 6) (1 4567 900))
_$

chlh_jd · 发表于 2012-8-10 13:40

本帖最后由 chlh_jd 于 2012-8-10 13:48 编辑

;;修正了实数类型和整数类型归为不同类debug
(defun foo (l) ;_by GSLS(SS) 2012-8-10
(vl-sort l (function (lambda (e1 e2 / is no a b)
(while (and (setq a (car e1)) (setq b (car e2)) (not is) (not no))
(cond ((and (= (type a) 'STR) (/= (type b) 'STR)) (setq is t))
((and (/= (type a) 'STR) (= (type b) 'STR)) (setq no t))
((and (= (type a) 'LIST) (/= (type b) 'LIST))(setq no t))
((and (/= (type a) 'LIST) (= (type b) 'LIST)) (setq is t))
((if (< (car e1) (car e2)) (setq is t)
(if (> (car e1) (car e2)) (setq no T)))))
(setq e1 (cdr e1) e2 (cdr e2)))
(if is (not no) (if no nil e2 ))))))

chlh_jd · 发表于 2012-8-10 13:59

这里增加了2个判断，一个是表和非表，如果对比项为表和原子，假定规则为原子小于表；
其实还可以加个递归函数，如果子项都是表，对比进行到底！

aroom · 发表于 2012-8-10 14:07

本帖最后由 aroom 于 2012-8-10 14:08 编辑

直接用 TeaScript 的内建函数：

caoyin · 发表于 2012-8-11 01:03

本帖最后由 caoyin 于 2012-8-11 01:31 编辑

;;未考虑数字和字符串比较，关键在于排序的规则是如果定的，可以通过自定义<函数实现。。。
(defun sort (LST / REC)
(defun REC (A B);;递归
  (cond ((equal (car A) (car B) 1E-4)
      (REC (cdr A) (cdr B))
      )
      (T (< (car A) (car B)))
  )
)
(vl-sort LST '(lambda (P1 P2)(REC P1 P2)))
)

lohas1118 · 发表于 2012-8-11 14:55

高手，学习了

账号		自动登录	找回密码
密码			注册

《表排序》重金求助

本帖子中包含更多资源

评分

评分

评分

本帖子中包含更多资源

评分

评分