Reddit daily programmer

daily.hs

import Control.Monad 
import Control.Arrow 

isPalandrome :: [String] -> Bool 
isPalandrome = reverse >>= (==)

process :: String -> Bool 
process s = isPalandrome (take n t)
    where (h,t) = (head &&& tail) $ lines s 
          n = read h :: Int

run :: String -> IO Bool
run = (liftM process . readFile)

main :: IO ()
main = run "test.text"

-- file contents:
-- 4 
-- a 
-- a 
-- b 
-- b 
-- c 

-