Skip to content

Instantly share code, notes, and snippets.

@funrep

funrep/isPal.hs

Created March 13, 2013 15:40
Show Gist options
  • Save funrep/5153347 to your computer and use it in GitHub Desktop.
Save funrep/5153347 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
isPal.hs
isPal :: Eq a => [a] -> Bool
isPal [] = True
isPal xs = if (head xs) /= (last xs) then False
else if (head xs) == (last xs) then isPal $ drop 1 (init xs)
else True
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment