Javran/gist:4054438

Created November 11, 2012 10:26

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/Javran/4054438.js"></script>
Save Javran/4054438 to your computer and use it in GitHub Desktop.

Download ZIP

4-consecutive-underlines replacement?

Raw

gistfile1.hs

	ulReplace :: String -> String
	ulReplace ('_':'_':'_':'_':xs) = "1111" ++ xs
	ulReplace (x:xs) = x :(replace xs)
	ulReplace x = x

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