hmenn/remove-first-occ.cl

Created October 15, 2016 11:49

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/c03198df7cb5e5a0f59ac70af89a6534.js"></script>
Save hmenn/c03198df7cb5e5a0f59ac70af89a6534 to your computer and use it in GitHub Desktop.

Download ZIP

remove first occurence of element from list

Raw

remove-first-occ.cl

-;item -> item to remove, can be atom or list
-;l -> list to remove from
-(defun REMOVE-FIRST (item l)
-	(cond
-		((endp l) nil) ; end of list
-		((equal item (first l)) (rest l)) ; if find, return rest
-		(t (cons (first l) (REMOVE-FIRST item (rest l)))) ; cons head item and list
-		))

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