1.LISP求助,合并t合如何将两个选择集合并为一个
LISP求助,源码课件源码如何将两个选择集合并为一个
给你段代码,合并t合庄家意图指标源码其中主要是源码peis检查系统源码LISP函数SSADD的操作,加上用循环结构。合并t合arraylist集合框架源码
函数功能是源码单机麻将源码app把两个选择集合并后用SS作为返回值。
合并t合(defun #ssand (ss1 ss2 / i e1 ss)
合并t合(if (and ss1
合并t合ss2
合并t合)
合并t合(progn
合并t合(setq ss (ssadd))
合并t合(setq i 0)
合并t合(while (setq e1 (ssname ss1 i))
合并t合(if (ssmemb e1 ss2)
合并t合(ssadd e1 ss)
合并t合)
合并t合(setq i (1+ i))
合并t合)
合并t合(if (> (sslength ss) 0)
合并t合ss
合并t合)
合并t合)
合并t合)
合并t合)
合并t合