Skip to content

Instantly share code, notes, and snippets.

@wfarr

wfarr/pal.clj

Created February 26, 2009 20:28
Show Gist options
  • Save wfarr/71090 to your computer and use it in GitHub Desktop.
Save wfarr/71090 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
pal.clj
(defn isPal [str]
(cond (<= (.length str) 1) true
:else
(cond (= (Character/toLowerCase (first str))
(Character/toLowerCase (last str)))
(isPal (subs str 1 (- (.length str) 1)))
:else false)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment