hmenn/replace-first.cl

Created October 15, 2016 13:29

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

Download ZIP

replaces first occurence with new value and returns array

Raw

replace-first.cl

 (defun replace-first (i1 i2 l)
 	(cond
 		((endp l) nil) ; end of list
 		((equal i1 (first l)) (cons i2 (rest l))) ; found. combine cells with cons
 		(t (cons (first l) (replace-first i1 i2 (rest l)))) ; recursive rest call
 		)
 	)

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