klapaucius/gist:1485769

Created December 16, 2011 11:47

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

Select an option

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

Download ZIP

n+k

Raw

gistfile1.hs

	mvmap f v = go $ M.length v where
	go 0 = return ()
	go (n + 1) = update v n f >> go n

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