From 63c6f24ef5028f9b0cf281111b515530c66f7c84 Mon Sep 17 00:00:00 2001
From: Xiretza <xiretza@xiretza.xyz>
Date: Sun, 6 Dec 2020 07:38:48 +0100
Subject: [PATCH] day6: add haskell solution

---
 README.md    | 1 +
 day6/day6.hs | 9 +++++++++
 2 files changed, 10 insertions(+)
 create mode 100644 day6/day6.hs

diff --git a/README.md b/README.md
index 04f7713..241d239 100644
--- a/README.md
+++ b/README.md
@@ -11,3 +11,4 @@ https://adventofcode.com/2020/
 | 3 |  `**`  |  `**`   |      |
 | 4 |  `**`  |  `**`   |      |
 | 5 |        |  `**`   |      |
+| 6 |        |  `**`   |      |
diff --git a/day6/day6.hs b/day6/day6.hs
new file mode 100644
index 0000000..3d5993d
--- /dev/null
+++ b/day6/day6.hs
@@ -0,0 +1,9 @@
+import AoC
+
+import qualified Data.Set as S
+import           Data.Set (Set)
+
+main = runAoC ((fmap . fmap) S.fromList . splitOnEmptyLines) part1 part2
+    where part1 = countSetsFolded S.union
+          part2 = countSetsFolded S.intersection
+          countSetsFolded f = sum . map (S.size . foldr1 f)