jimexist/subset.hs

Created October 19, 2014 18:50

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

Download ZIP

subset n k

Raw

	subset :: Int -> Int -> [[Int]]
	subset 0 _ = [[]]
	subset _ 0 = [[]]
	subset n k = [i:y \| i <- [k..n], y <- subset (i-1) (k-1)]

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