From a9ee47b61558efe09aee23f5671aabd0c3747e8a Mon Sep 17 00:00:00 2001 From: Joe Zhao Date: Tue, 17 Mar 2015 11:05:29 +0800 Subject: p -> h --- p6.hs | 11 ----------- 1 file changed, 11 deletions(-) delete mode 100644 p6.hs (limited to 'p6.hs') diff --git a/p6.hs b/p6.hs deleted file mode 100644 index dc643eb..0000000 --- a/p6.hs +++ /dev/null @@ -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 -- cgit v1.2.3-70-g09d2