You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 

7 lines
181 B

module Words where
myWords :: String -> [String]
myWords [] = []
myWords (' ' : xs) = myWords xs
myWords xs = [takeWhile b xs] ++ (myWords (dropWhile b xs))
where b = (/=) ' '