Skip to content

Instantly share code, notes, and snippets.

@gigamonkey

gigamonkey/gist:2407771

Created April 17, 2012 17:49
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save gigamonkey/2407771 to your computer and use it in GitHub Desktop.
Save gigamonkey/2407771 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
(defun one-apart-p (w1 w2)
(and (eql (length w1) (length w2))
(= 1 (loop
for c1 across w1
for c2 across w2
count (not (eql c1 c2))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment