Skip to content

Instantly share code, notes, and snippets.

@tntmarket

tntmarket/powerset.hs

Created February 3, 2016 23:17
Show Gist options
  • Save tntmarket/2c7ca16180d73fdd68ed to your computer and use it in GitHub Desktop.
Save tntmarket/2c7ca16180d73fdd68ed to your computer and use it in GitHub Desktop.
Download ZIP
Raw
powerset.hs
import Control.Monad
main = putStrLn $ show $ powerset "abc"
-- prints ["abc","ab","ac","a","bc","b","c",""]
powerset :: [a] -> [[a]]
powerset = filterM (const [True, False])
-- see http://evan-tech.livejournal.com/220036.html
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment