问个小白问题 表内元素交集

ysq101

如
表1为：   （1 2 3 4 5 ）
表2为：   （ 2 3 4 5 6）
表3为：   （ 3 4 5 6 7）
表4为：   （4 5 6 7 8）

要求返回  所有表都有的元素    （4 5）

这程序应该怎么写
LISP放下一年   忘得差不多了
谢谢大师们提点一下

Gu_xl

(defun f (l / a l1)
  (setq        l1 (car l)
        l  (cdr l)
  )
  (while l
    (setq a (car l)
          l (cdr l)
          c nil
    )
    (foreach b l1
      (if (member b a)
        (setq c (cons b c))
      )
    )
    (setq l1 c)
  )
  (reverse l1)
)

_$ (f '((1 2 3 4 5)(2 3 4 5 6)(3 4 5 6 7)(4 5 6 7 8)))
(4 5)
_$

ysq101

Gu_xl 发表于 2016-3-11 16:37
(defun f (l / a l1)
  (setq        l1 (car l)
        l  (cdr l)

谢谢固版主。。。都帮我写好了。。
谢谢了。。

Andyhon

另方: 串成一列 个数小于4的剔除

xyp1964

2. (setq lst '((1 2 3 4 5)
   
3.             (2 3 4 5 6)
   
4.             (3 4 5 6 7)
   
5.             (4 5 6 7 8)
   
6.            )
   
7. )
   
8. ;; (aaa lst)
   
9. (defun aaa (lst / l1)
   
10.   (setq l1 (car lst))
    
11.   (foreach a lst (setq l1 (vl-remove-if-not '(lambda (x) (member x a)) l1)))
    
12. )

(setq lst '((1 2 3 4 5)<br />             (2 3 4 5 6)<br />             (3 4 5 6 7)<br />             (4 5 6 7 8)<br />            )<br /> )<br /> ;; (aaa lst)<br /> (defun aaa (lst / l1)<br />   (setq l1 (car lst))<br />   (foreach a lst (setq l1 (vl-remove-if-not '(lambda (x) (member x a)) l1)))<br /> )

ysq101

xyp1964 发表于 2016-3-12 13:04

谢谢帮助~~~~~~~~~~~支持大师

ysq101

Andyhon 发表于 2016-3-11 22:59
另方: 串成一列 个数小于4的剔除

好办法。。但表内可能出现  4个元素与12个元素

Andyhon

4 化成变量即得
但得关心下效率的问题

llsheng_73

1. (defun f(l / a)
   
2.   (setq a(car l))
   
3.   (foreach x(cdr l)(setq a(vl-remove-if-not'(lambda(y)(member y x))a))))

(defun f(l / a)<br />   (setq a(car l))<br />   (foreach x(cdr l)(setq a(vl-remove-if-not'(lambda(y)(member y x))a))))

写完了才发现跟院长的一样

highflybird

1. (defun Intersect (lst / x l)
   
2.   (setq l (car lst))
   
3.   (foreach p (cdr lst)
   
4.     (setq x nil)
   
5.     (foreach n p
   
6.       (if (member n l)
   
7.         (setq x (cons n x))
   
8.       )
   
9.     )
   
10.     (setq l x)
    
11.   )
    
12.   x
    
13. )

(defun Intersect (lst / x l)<br />   (setq l (car lst))<br />   (foreach p (cdr lst)<br />     (setq x nil)<br />     (foreach n p<br />       (if (member n l)<br />         (setq x (cons n x))<br />       )<br />     )<br />     (setq l x)<br />   )<br />   x<br /> )

这样可能效率高些。