gistfile1.hs

import System.Environment (getArgs)

stringToArray :: String -> [String]
stringToArray s = words s

findLongestWord :: [String] -> String -> String
findLongestWord [] x = x
findLongestWord (w1:s1) l
    | length w1 > length l = findLongestWord s1 w1
    | otherwise = findLongestWord s1 l 

main = do
    args <- getArgs
    content <- readFile (args !! 0) 
    let linesOfFile = lines content
    map findLongestWord linesOfFile ??