Удаление нежелательных переменных

Question

Привет Я пытаюсь удалить нежелательные переменные из своего списка. Это моя функция:

(defun remove-vars (list) 
    (loop for x in list do 
     (print x)))) 

Я хочу передать в этом (get-vars '(A (NOT B) C)) и распечатать

A 
B 
C 

, но вместо этого я распечатывания

A 
(NOT B) 
C 
Nil 

есть способ, чтобы удалить скобки и не из списка? Любое руководство было бы оценено, если бы список был больше с b c d i, я хотел бы удалить все экземпляры нет и круглые скобки. Я предполагаю, что псевдокод будет проходить через проверку, если «() или не существует в x», а затем удалить их из списка

Answer 1

Ваш текущий код прокручивает и печатает каждый элемент списка без каких-либо условий.

Когда вы передаете его (A (NOT B) C), он печатает каждый элемент, одним из которых является список (NOT B), и цикл печатает этот список. Скобки выводятся принтером для представления того, что напечатанный элемент является списком.

Вам нужна логика для проверки того, что каждый элемент является тем, что вы хотели бы напечатать, например, символ NOT или ноль, и отложите его, когда вы увидите что-то, что вы хотите изучить дальше, например список.

Answer 2

Простое решения выравниваться список и удалите НЕ как это:

(defun flatten (var-list) 
    (cond ((null var-list) nil) 
     ((atom var-list) (list var-list)) 
     (t (mapcan #'flatten var-list)))) 

(defun get-vars (var-list) 
    (remove 'NOT (flatten var-list))) 

(get-vars '(A (NOT B) C)) 

Надеется, что это помогает