在1到1+n的数字中，找出缺失和重复的数字

mpk023

哪位朋友帮忙写一个小插件：在1到1+n的数字中，找出缺失和重复的数字。就比如说是1到1000 里面的连续数字找出缺失的和重复的。

飞雪神光

http://bbs.mjtd.com/thread-186219-1-1.html

夏生生

试试

1. (defun samecount (lst / a b n)
   
2.   (while lst
   
3.     (setq n   (length lst)
   
4.     a   (car lst)
   
5.     lst (vl-remove a lst)
   
6.     b   (cons (cons a (- n (length lst))) b)
   
7.     )
   
8.     )
   
9.   )
   
10. (defun delsame (lst / a b)
    
11.   (while (setq a (car lst))
    
12.     (if
    
13.       (vl-position a b)
    
14.        nil
    
15.        (set 'b (cons a b))
    
16.        )
    
17.     (setq lst (cdr lst))
    
18.     )
    
19.   (setq b (reverse b))
    
20.   b
    
21.   )
    
22. (defun tt (lst from to / a n lst1)
    
23.   (setq  a   (samecount lst)
    
24.   lst (delsame lst)
    
25.   n   (- to from)
    
26.   )
    
27.   (repeat (1+ n)
    
28.     (if  (not(member from lst))
    
29.       (setq lst1 (cons from lst1))
    
30.       )
    
31.     (setq from (1+ from))
    
32.     )
    
33.   (list  (vl-remove-if '(lambda (x) (= 1 (cdr x))) a)
    
34.   (reverse lst1)
    
35.   )
    
36.   )
    

(defun samecount (lst / a b n)<br />   (while lst<br />     (setq n   (length lst)<br />     a   (car lst)<br />     lst (vl-remove a lst)<br />     b   (cons (cons a (- n (length lst))) b)<br />     )<br />     )<br />   )<br /> (defun delsame (lst / a b)<br />   (while (setq a (car lst))<br />     (if<br />       (vl-position a b)<br />        nil<br />        (set 'b (cons a b))<br />        )<br />     (setq lst (cdr lst))<br />     )<br />   (setq b (reverse b))<br />   b<br />   )<br /> (defun tt (lst from to / a n lst1)<br />   (setq  a   (samecount lst)<br />   lst (delsame lst)<br />   n   (- to from)<br />   )<br />   (repeat (1+ n)<br />     (if  (not(member from lst))<br />       (setq lst1 (cons from lst1))<br />       )<br />     (setq from (1+ from))<br />     )<br />   (list  (vl-remove-if '(lambda (x) (= 1 (cdr x))) a)<br />   (reverse lst1)<br />   )<br />   )<br />

(tt '(1 2 3 5 7 9 1 2) 1 11)=>(((2 . 2) (1 . 2)) (4 6 8 10 11))