8 lines
215 B
Haskell
8 lines
215 B
Haskell
import Data.Set
|
|
import Control.Monad
|
|
|
|
powerset :: Ord a => Set a -> Set (Set a)
|
|
powerset = fromList . fmap fromList . listPowerset . toList
|
|
|
|
listPowerset :: [a] -> [[a]]
|
|
listPowerset = filterM (const [True, False])
|