hergaiety/toWords.hs

Last active April 19, 2017 21:25

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/hergaiety/3030c129b3ce3ce5e889601fc3009491.js"></script>
Save hergaiety/3030c129b3ce3ce5e889601fc3009491 to your computer and use it in GitHub Desktop.

Download ZIP

String To List Of Words

Raw

	toWords :: String -> [String]
	toWords x
	\| length x == 0 = []
	\| otherwise = takeWhile (/= ' ') x : toWords (drop 1 (dropWhile (/= ' ') x))

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment