[求助]：如何求出表内相同元素的个数(在允许误差内)?

kohi

如何求出表内相同元素的个数(在允许误差内)?
如: '(23.456 99 98 32..45 100 34 100.02....)

AyungerStudio

2. ;; By Ayungerstudio 2006.05.11  XI'AN CN
   
3. (defun c:test(/ xlist nlist value zz n)
   
4.   (if (= #AY_LISTS nil) (setq #AY_LISTS ""))
   
5.   (if (= #AY_VALUE nil) (setq #AY_VALUE 0.0))
   
6.   (if (= #AY_FUZZ nil) (setq #AY_FUZZ 0.0))
   
7.   (setq xList (getstring T (strcat "\n输入统计数据列表<" #AY_LISTS ">:")));"1.005 1.0055 1.15 1.3 1.88"
   
8.   (if (= xList "") (setq xList #AY_LISTS) (setq #AY_LISTS xList))
   
9.   (setq xList (read (strcat "(" xList ")")))
   
10.   
    
11.   (setq nList nil)
    
12.   (setq value (getreal (strcat "\n指定统计目标数值<" (rtos #AY_VALUE 2) ">:")))
    
13.   (if (= value nil) (setq value #AY_VALUE) (setq #AY_VALUE value))
    
14.   (setq zz (getreal (strcat "\n指定比较范围误差值<" (rtos #AY_FUZZ 2) ">:")))
    
15.   (if (= zz nil) (setq zz #AY_FUZZ) (setq #AY_FUZZ zz))
    
16.   
    
17.   (foreach n xlist
    
18.     (if (equal n value zz) (setq nList (append nlist (list n))))
    
19.   );end_fereach
    
20.   (if (/= nlist nil)
    
21.     (progn;then
    
22.       (princ (strcat "\n结果: 相同元素个数: " (itoa (length nlist)) " 列表:"))
    
23.       (princ nlist)
    
24.     );end_progn then
    
25.     (princ "\n没有与指定值相同的元素存在!");else
    
26.   );end_if
    
27.   (princ)
    
28. );end_defun

;; By Ayungerstudio 2006.05.11  XI'AN CN<br /> (defun c:test(/ xlist nlist value zz n)<br />   (if (= #AY_LISTS nil) (setq #AY_LISTS ""))<br />   (if (= #AY_VALUE nil) (setq #AY_VALUE 0.0))<br />   (if (= #AY_FUZZ nil) (setq #AY_FUZZ 0.0))<br />   (setq xList (getstring T (strcat "\n输入统计数据列表<" #AY_LISTS ">:")));"1.005 1.0055 1.15 1.3 1.88"<br />   (if (= xList "") (setq xList #AY_LISTS) (setq #AY_LISTS xList))<br />   (setq xList (read (strcat "(" xList ")")))<br />   <br />   (setq nList nil)<br />   (setq value (getreal (strcat "\n指定统计目标数值<" (rtos #AY_VALUE 2) ">:")))<br />   (if (= value nil) (setq value #AY_VALUE) (setq #AY_VALUE value))<br />   (setq zz (getreal (strcat "\n指定比较范围误差值<" (rtos #AY_FUZZ 2) ">:")))<br />   (if (= zz nil) (setq zz #AY_FUZZ) (setq #AY_FUZZ zz))<br />   <br />   (foreach n xlist<br />     (if (equal n value zz) (setq nList (append nlist (list n))))<br />   );end_fereach<br />   (if (/= nlist nil)<br />     (progn;then<br />       (princ (strcat "\n结果: 相同元素个数: " (itoa (length nlist)) " 列表:"))<br />       (princ nlist)<br />     );end_progn then<br />     (princ "\n没有与指定值相同的元素存在!");else<br />   );end_if<br />   (princ)<br /> );end_defun

eachy

1 写成函数更好些

2 用 Length + vl-remove-if 或者 length + vl-remove-if-not 可以更精炼些