[求助]用简单方法对表进行分类

3527188

2. (setq a '(( "0.500" "2")( "0.500" "1")( "0.500" "1") ( "0.500" "5") ( "0.500" "4")))
3. ;已知A有N组同样的表或不一样的表
4. ;怎么把上面的表分成以下
5. A1=(( "0.500" "1")( "0.500" "1"))
6. A2=(( "0.500" "2"))
7. A3=(( "0.500" "4"))
8. A4=(( "0.500" "5"))
9. ;如果有第六组继续循环A5 A6注意里面的数字进行排序

(setq a '(( "0.500" "2")( "0.500" "1")( "0.500" "1") ( "0.500" "5") ( "0.500" "4"))) ;已知A有N组同样的表或不一样的表 ;怎么把上面的表分成以下 A1=(( "0.500" "1")( "0.500" "1")) A2=(( "0.500" "2")) A3=(( "0.500" "4")) A4=(( "0.500" "5")) ;如果有第六组继续循环A5 A6注意里面的数字进行排序

jaminth

有点繁琐的写法，好像有点错误，有时间再帮你调试一下。楼主可以自己修改修改。。。

3. (setq a '(( "0.500" "2")( "0.500" "1")( "0.500" "1") ( "0.500" "5") ( "0.500" "4")))
4. (setq i 0 c (nth i a))
5. (repeat (length a)
6.   (setq i (1+ i) c1 (nth i a))
7.   (if (equal c c1)
8.   (write-line (strcat "A" (itoa i) "=" (vl-princ-to-string (cons c (list c1)))))
9.   (write-line (strcat "A" (itoa i) "=" (vl-princ-to-string c)))
10.   )
11.   (setq c c1)
12. )

(setq a '(( "0.500" "2")( "0.500" "1")( "0.500" "1") ( "0.500" "5") ( "0.500" "4"))) (setq i 0 c (nth i a)) (repeat (length a)   (setq i (1+ i) c1 (nth i a))   (if (equal c c1)   (write-line (strcat "A" (itoa i) "=" (vl-princ-to-string (cons c (list c1)))))   (write-line (strcat "A" (itoa i) "=" (vl-princ-to-string c)))   )   (setq c c1) )

3527188

这样不行的

eachy

2. (defun spit-lst (lst / ls)
3.   (vl-catch-all-apply
4.     '(lambda (/ nl l n)
5.        (setq nl (vl-sort lst
6.     '(lambda (a1 a2)
7.        (< (distof (cadr a1)) (distof (cadr a2)))
8.      )
9.   )
10.        )
11.        (foreach x nl
12.   (if (setq l (eval (read (setq n (strcat "EA_" (cadr x))))))
13.     (set (read (strcat "EA_" (cadr x))) (cons x l))
14.     (set (read (strcat "EA_" (cadr x))) (list x))
15.   )
16.   (if (not (vl-position n ll))
17.     (setq ll (cons n ll))
18.   )
19.        )
20.        (setq
21.   ls (reverse (mapcar 'eval (mapcar 'read (vl-remove nil ll))))
22.        )
23.        (foreach x (vl-remove nil ll) (set (read x) nil))
24.      )
25.   )
26.   ls
27. )

(defun spit-lst (lst / ls)   (vl-catch-all-apply     '(lambda (/ nl l n)        (setq nl (vl-sort lst     '(lambda (a1 a2)        (< (distof (cadr a1)) (distof (cadr a2)))      )   )        )        (foreach x nl   (if (setq l (eval (read (setq n (strcat "EA_" (cadr x))))))     (set (read (strcat "EA_" (cadr x))) (cons x l))     (set (read (strcat "EA_" (cadr x))) (list x))   )   (if (not (vl-position n ll))     (setq ll (cons n ll))   )        )        (setq   ls (reverse (mapcar 'eval (mapcar 'read (vl-remove nil ll))))        )        (foreach x (vl-remove nil ll) (set (read x) nil))      )   )   ls )

3527188

感觉不够简单

龙龙仔

看來樓主有更簡潔的,可拿出看看

to:eachy兄====為甚麼要用set??有其他用途嗎?

(set (read (strcat "EA_" (cadr x)))

3527188

2. (defun Class-list (&list Coding_str / n off *set_sym)
3.   (foreach X (vl-sort &list'(lambda (e1 e2)(<(cadr e1)(cadr e2)))) ;排序
4.     (setq n  1 off  t);辅助
5.     (while off
6.       (setq *set_sym (read(strcat Coding_str (vl-prin1-to-string n)))) ;获取编码
7.       (if(eval *set_sym)
8.         (if(equal x (car(eval *set_sym)));两个表的对比
9.           (progn
10.             (set (read(strcat Coding_str (vl-prin1-to-string n))) (cons x (eval *set_sym)));将相同列表加入编码,并退出循环
11.             (setq off nil)
12.           )
13.         )
14.         (progn
15.           (set (read(strcat Coding_str (vl-prin1-to-string n))) (cons x (eval *set_sym)))
16.           (setq off nil)
17.         )
18.       )
19.       (setq n (1+ n))
20.     )
21.   )
22.   (princ)
23. )

(defun Class-list (&list Coding_str / n off *set_sym)   (foreach X (vl-sort &list'(lambda (e1 e2)(<(cadr e1)(cadr e2)))) ;排序     (setq n  1 off  t);辅助     (while off       (setq *set_sym (read(strcat Coding_str (vl-prin1-to-string n)))) ;获取编码       (if(eval *set_sym)         (if(equal x (car(eval *set_sym)));两个表的对比           (progn             (set (read(strcat Coding_str (vl-prin1-to-string n))) (cons x (eval *set_sym)));将相同列表加入编码,并退出循环             (setq off nil)           )         )         (progn           (set (read(strcat Coding_str (vl-prin1-to-string n))) (cons x (eval *set_sym)))           (setq off nil)         )       )       (setq n (1+ n))     )   )   (princ) )

狂刀lxx

;|
(setq a '(( "0.500" "2")( "0.500" "1")( "0.500" "1") ( "0.500" "5") ( "0.500" "4")))
(ttt a "b")
检测mapcar '(lambda(x)(print(eval x))) '(b1 b2 b3 b4))
|;

2. (defun ttt (lst str / b I X);;; by lxx 2009.10
3.   (setq b (vl-sort lst '(lambda(x y)(<(cadr x)(cadr y))))
4. i 0)
5.   (while b
6.     (setq SYM (read(strcat str (itoa i)))
7.    x (eval SYM))
8.     (if (member (car b) x)
9.       (set SYM (cons (car b)x))
10.       (set (read(strcat str (itoa (setq i(1+ i))))) (list (car b)))
11.     )
12.     (setq b (cdr b))
13.     )
14. )

(defun ttt (lst str / b I X);;; by lxx 2009.10   (setq b (vl-sort lst '(lambda(x y)(<(cadr x)(cadr y)))) i 0)   (while b     (setq SYM (read(strcat str (itoa i)))    x (eval SYM))     (if (member (car b) x)       (set SYM (cons (car b)x))       (set (read(strcat str (itoa (setq i(1+ i))))) (list (car b)))     )     (setq b (cdr b))     ) )

其实不建议用set的方式，返回一个表就很好嘛。set占用内存，而且运行别的程序的时候可能会搞乱套

龙龙仔

狂刀出來了!

3. ;;(SPIT-LST_LAI A)
4. ;|
5. (setq A '(("0.500" "2")
6.    ("0.500" "1")
7.    ("0.500" "1")
8.    ("0.500" "5")
9.    ("0.500" "4")
10.    ("0.500" "5")
11.    ("0.500" "7")
12.    ("0.500" "4")
13.    ("0.500" "4")
14.    ("0.500" "6")
15.    ("0.500" "8")
16.    ("0.500" "9")
17.    ("0.500" "10")
18.    ("0.500" "6")
19.   )
20. )
21. |;
22. (defun SPIT-LST_LAI (A / L LST X)
23.   (foreach X (vl-sort A
24.         '(lambda (A1 A2)
25.     (> (atof (cadr A1)) (atof (cadr A2)))
26.          )
27.       )
28.     (if (setq L (assoc (cadr X) LST))
29.       (setq LST (subst (list (car L) (cons X (cadr L))) L LST))
30.       (setq LST (cons (list (cadr X) (list X)) LST))
31.     )
32.   )
33.   (mapcar '(lambda (X) (cadr X)) LST)
34. )

;;(SPIT-LST_LAI A) ;| (setq A '(("0.500" "2")    ("0.500" "1")    ("0.500" "1")    ("0.500" "5")    ("0.500" "4")    ("0.500" "5")    ("0.500" "7")    ("0.500" "4")    ("0.500" "4")    ("0.500" "6")    ("0.500" "8")    ("0.500" "9")    ("0.500" "10")    ("0.500" "6")   ) ) |; (defun SPIT-LST_LAI (A / L LST X)   (foreach X (vl-sort A         '(lambda (A1 A2)     (> (atof (cadr A1)) (atof (cadr A2)))          )       )     (if (setq L (assoc (cadr X) LST))       (setq LST (subst (list (car L) (cons X (cadr L))) L LST))       (setq LST (cons (list (cadr X) (list X)) LST))     )   )   (mapcar '(lambda (X) (cadr X)) LST) )

狂刀无痕

发一个返回表的
;|
(setq a '(( "0.500" "2")( "0.500" "1")( "0.500" "1") ( "0.500" "5") ( "0.500" "4")))
(ttt a) >> ((("0.500" "1") ("0.500" "1")) (("0.500" "2")) (("0.500" "4")) (("0.500" "5")))
|;

2. (defun ttt (a / b c);;; by lxx 2009.10
3.    (mapcar '(lambda (x)
4.        (if (member x b)(setq b (cons x b))(setq c (if b (cons b c) c) b (list x)))
5.        )
6.     (vl-sort a '(lambda(x y)(<(cadr x)(cadr y)))))
7.   (reverse (if b (cons b c) c))
8. )

(defun ttt (a / b c);;; by lxx 2009.10    (mapcar '(lambda (x)        (if (member x b)(setq b (cons x b))(setq c (if b (cons b c) c) b (list x)))        )     (vl-sort a '(lambda(x y)(<(cadr x)(cadr y)))))   (reverse (if b (cons b c) c)) )