选择集合并

Lisphk

1. (defun ss-union ( s1 s2 / si )
   
2.    (cond
   
3.        (   (null s1) s2)
   
4.        (   (null s2) s1)
   
5.        (   (< (sslength s1) (sslength s2))
   
6.            (repeat (setq si (sslength s1))
   
7.                (ssadd (ssname s1 (setq si (1- si))) s2)
   
8.            )
   
9.            s2
   
10.        )
    
11.        (   t
    
12.            (repeat (setq si (sslength s2))
    
13.                (ssadd (ssname s2 (setq si (1- si))) s1)
    
14.            )
    
15.            s1
    
16.        )
    
17.    )
    
18. )

(defun ss-union ( s1 s2 / si )<br />    (cond<br />        (   (null s1) s2)<br />        (   (null s2) s1)<br />        (   (< (sslength s1) (sslength s2))<br />            (repeat (setq si (sslength s1))<br />                (ssadd (ssname s1 (setq si (1- si))) s2)<br />            )<br />            s2<br />        )<br />        (   t<br />            (repeat (setq si (sslength s2))<br />                (ssadd (ssname s2 (setq si (1- si))) s1)<br />            )<br />            s1<br />        )<br />    )<br /> )