Could we have the corollary as a built in? deselect would return the whole list but WITHOUT the listed items.
Code: Select all
(setq a '(1 2 3 4 5))
(select a 1 2 3) => (2 3 4)
(deselect a 1 2 3) => (1 5)
Code: Select all
(setq a '(1 2 3 4 5))
(select a 1 2 3) => (2 3 4)
(deselect a 1 2 3) => (1 5)
Code: Select all
> (setq a '( 1 2 3 4 5))
(1 2 3 4 5)
> (difference a (select a 1 2 3))
(1 5)
>
Code: Select all
(dolist (x lst)
(filter (fn (y) (= x y)) (deselect lst $idx)))
Code: Select all
(set 'L '(1 2 9 3 4 5 4 3 2 6 1 2 4))
(dolist(j L)
(set 'jdx $idx)
(dolist(i L)
(when (and (> $idx jdx) (= i j))
(setf (L $idx) 'for-deletition))))
(set 'L (clean (lambda(x)(= x 'for-deletition)) L))
(println L)
(exit)