fork download
  1. import Control.Monad
  2.  
  3. subs = filterM $ const [True, False]
  4.  
  5. main = print $ subs [1..5]
  6.  
Success #stdin #stdout 0.01s 3592KB
stdin
Standard input is empty
stdout
[[1,2,3,4,5],[1,2,3,4],[1,2,3,5],[1,2,3],[1,2,4,5],[1,2,4],[1,2,5],[1,2],[1,3,4,5],[1,3,4],[1,3,5],[1,3],[1,4,5],[1,4],[1,5],[1],[2,3,4,5],[2,3,4],[2,3,5],[2,3],[2,4,5],[2,4],[2,5],[2],[3,4,5],[3,4],[3,5],[3],[4,5],[4],[5],[]]