Skip to content

Instantly share code, notes, and snippets.

@Denommus

Denommus/palindrome.lisp

Last active January 3, 2016 22:49
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save Denommus/8530515 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save Denommus/8530515 to your computer and use it in GitHub Desktop.
Download ZIP
Palindrome program in Common Lisp
Raw
palindrome.lisp
(defun palindrome (str)
(loop
for i from 0
for a across str
for b across (reverse str)
always (char= a b)
until (> i (/ (length str) 2))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment