CarstenKoenig/diag.hs

Last active August 29, 2015 14:05

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

Download ZIP

diag indizes

Raw

diag.hs

	diagInd :: [(Integer, Integer)]
	diagInd = iterate f (1,1)
	where f (lx,ly)
	\| ly == 1 = (1, lx+1)
	\| otherwise = (lx+1, ly-1)

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