hmenn/my-all-occ-remove.cl

Last active October 15, 2016 13:09

Star (0) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Select an option

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/hmenn/eb19083ed9827192f028dddbda37dec0.js"></script>
Save hmenn/eb19083ed9827192f028dddbda37dec0 to your computer and use it in GitHub Desktop.

Download ZIP

remove all occurance of element from list

Raw

my-all-occ-remove.cl

-(defun my-all-occ-remove (item l)
-	(cond
-		((endp l) nil)
-		((equal item (first l)) (my-all-occ-remove item (rest l))) ; remove item
-		(t (cons (first l) (my-all-occ-remove item (rest l))))
-		))

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment