Skip to content

Instantly share code, notes, and snippets.

@MiLk

MiLk/proximite.cl

Created November 9, 2011 17:42
Show Gist options
  • Save MiLk/1352223 to your computer and use it in GitHub Desktop.
Save MiLk/1352223 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
proximite.cl
(defun proximite (etat etat-final)
(let ((l1 etat)(l2 etat-final) (retour 0))
(dolist (var l2 retour)
(when (equal (pop l1) var)
(setq retour (+ retour 1)))
)
)
)
(proximite initial final)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment