import Listimport Control.Monadsubs = filterM $ const [True, False]main = print $ sort $ subs [1..3]
Standard input is empty
[[],[1],[1,2],[1,2,3],[1,3],[2],[2,3],[3]]
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!