X-Git-Url: https://git.njae.me.uk/?p=advent-of-code-22.git;a=blobdiff_plain;f=scrambled-mess%2FMain.hs;fp=scrambled-mess%2FMain.hs;h=196426e21e59a188322073426522a4b43d5d9f79;hp=0000000000000000000000000000000000000000;hb=7556dfa39ef3eec2bc5e55ff2cfaad101a6cfb5f;hpb=3ad0f674265f18dc390d3d6078348cea5f36f98c

diff --git a/scrambled-mess/Main.hs b/scrambled-mess/Main.hs
new file mode 100644
index 0000000..196426e
--- /dev/null
+++ b/scrambled-mess/Main.hs
@@ -0,0 +1,16 @@
+-- Addresses bonus puzzle at https://www.reddit.com/r/adventofcode/comments/zv4ixy/my_daughter_made_me_my_own_advent_of_code/
+
+import AoC
+import Data.List
+import Data.Char
+
+main :: IO ()
+main = 
+  do  dataFileName <- getDataFileName
+      text <- readFile dataFileName
+      let duplicated = fmap head $ filter ((> 1) . length) $ group text
+      putStrLn $ filter isLetterIsh duplicated
+      putStrLn $ filter isDigit duplicated
+
+isLetterIsh :: Char -> Bool
+isLetterIsh c = (isLetter c) || (c == '-')