diff options
| author | Joe Zhao <ztuowen@gmail.com> | 2015-03-17 11:05:29 +0800 |
|---|---|---|
| committer | Joe Zhao <ztuowen@gmail.com> | 2015-03-17 11:05:29 +0800 |
| commit | a9ee47b61558efe09aee23f5671aabd0c3747e8a (patch) | |
| tree | 52426053545a54514d39300e2117bdda14a9b1ef /p6.hs | |
| parent | 11a5fd38018498a7b7feb0e392ac36003b0440ac (diff) | |
| download | h99-a9ee47b61558efe09aee23f5671aabd0c3747e8a.tar.gz h99-a9ee47b61558efe09aee23f5671aabd0c3747e8a.tar.bz2 h99-a9ee47b61558efe09aee23f5671aabd0c3747e8a.zip | |
p -> h
Diffstat (limited to 'p6.hs')
| -rw-r--r-- | p6.hs | 11 |
1 files changed, 0 insertions, 11 deletions
@@ -1,11 +0,0 @@ -import Control.Monad -import Control.Applicative - -isPalindrome :: Eq a => [a] -> Bool -isPalindrome xs = xs == reverse xs - -isPalindrome' :: (Eq a) => [a] -> Bool -isPalindrome' = liftM2 (==) id reverse - -isPalindrome'' :: (Eq a) => [a] -> Bool -isPalindrome'' = (==) <*> reverse |