kpgalligan

import System.Environment (getArgs)

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

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