列表提取

chenxiy825

求助！如下：比如有列表（1  2  3 (4 3 1) 5 (4  5 1) 6  (5  2  3) ...）里面个数、形式不定，用什么办法把子列表开头元素是一样的，比如（1  2  3 (4 3 1) 5 (4  5 1) 6  (5  2  3) ...）中的(4 3 1)和(4  5 1)，提取出来分别赋值给变量。

感谢！

caoyin

;; (wuyu '(1 2 3 (4 3 1) 5 (4 5 1) 6 (5 2 3)))
(defun wuyu (L / I A LST)
  (foreach X L
    (if (listp X)
      (if (setq I (car X)
                A (assoc I LST)
          )
         (setq LST (subst (cons I (cons X (cdr A))) A LST))
         (setq LST (cons (list I X) LST))
       )
    )
  )
  (mapcar 'cdr LST)
)

;; 批量设置变量并赋值——这不是一个好主意！！！
(defun pSet (L / N S SL)
  (setq N 0)
  (foreach X L
    (setq S  (read (strcat "TMP" (itoa N)))
          SL (cons S SL)
          N  (1+ N)
    )
    (set S X)
  )
  SL
)

;; 你要的结果，返回批量赋值的符号名
(pSet (wuyu '(1 2 3 (4 3 1) 5 (4 5 1) 6 (5 2 3))))

caoyin

;;(getIndexIs '(1 2 3 (4 3 1) 5 (4 5 1) 6 (5 2 3)) 4)
(defun getIndexIs (LST IND)
  (vl-remove-if-not
    '(lambda (X)
      (and (listp X) (= (car X) IND))
     )
    LST
  )
)

chenxiy825

caoyin 发表于 2021-3-26 17:54
;;(getIndexIs '(1 2 3 (4 3 1) 5 (4 5 1) 6 (5 2 3)) 4)
(defun getIndexIs (LST IND)
  (vl-remove-if- ...

谢谢！我看到有返回值，但是我不知道相同值是4的时候，相同值是随机的，怎么弄？还有怎么赋值给变量呢？

chenxiy825

caoyin 发表于 2021-3-26 17:06
;; (wuyu '(1 2 3 (4 3 1) 5 (4 5 1) 6 (5 2 3)))
(defun wuyu (L / I A LST)
  (foreach X L

函数mapcar、lambda、apply，子程序一致迷迷糊糊的:Q，还是感谢你了！