diff options
| author | Joe Zhao <ztuowen@gmail.com> | 2014-08-08 14:37:06 +0800 |
|---|---|---|
| committer | Joe Zhao <ztuowen@gmail.com> | 2014-08-08 14:37:06 +0800 |
| commit | e285e81c2519dfe9b000d0f297b72c6c9909662d (patch) | |
| tree | 352ee7f112be704111da437df4f62f15a37b3be9 /powerset.hs | |
| parent | 423693811904a6038a1a7532700726799e05fade (diff) | |
| download | haskbox-old-e285e81c2519dfe9b000d0f297b72c6c9909662d.tar.gz haskbox-old-e285e81c2519dfe9b000d0f297b72c6c9909662d.tar.bz2 haskbox-old-e285e81c2519dfe9b000d0f297b72c6c9909662d.zip | |
Last few chapters in LYHGG
Diffstat (limited to 'powerset.hs')
| -rw-r--r-- | powerset.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/powerset.hs b/powerset.hs new file mode 100644 index 0000000..39d53ab --- /dev/null +++ b/powerset.hs @@ -0,0 +1,4 @@ +import Control.Monad + +powerset :: [a] -> [[a]] +powerset xs = filterM (\x -> [True,False]) xs |