作业帮 > 综合 > 作业

LISP求助,如何将两个选择集合并为一个

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/08/11 04:54:32
LISP求助,如何将两个选择集合并为一个
如何将两个选择集合并为一个,谢谢!
LISP求助,如何将两个选择集合并为一个
给你段代码,其中主要是LISP函数SSADD的操作,加上用循环结构.
函数功能是把两个选择集合并后用SS作为返回值.
(defun #ssand (ss1 ss2 / i e1 ss)
(if (and ss1
ss2
)
(progn
(setq ss (ssadd))
(setq i 0)
(while (setq e1 (ssname ss1 i))
(if (ssmemb e1 ss2)
(ssadd e1 ss)
)
(setq i (1+ i))
)
(if (> (sslength ss) 0)
ss
)
)
)
)