From 68b10c50b169b5801f4804228858cc06837fa752 Mon Sep 17 00:00:00 2001
From: Sijmen Schoon <me@sijmenschoon.nl>
Date: Sun, 2 Dec 2018 12:01:37 +0100
Subject: [PATCH] Move day1 to its own folder

---
 Day1A.hs |  8 --------
 Day1B.hs | 14 --------------
 2 files changed, 22 deletions(-)
 delete mode 100644 Day1A.hs
 delete mode 100644 Day1B.hs

diff --git a/Day1A.hs b/Day1A.hs
deleted file mode 100644
index 4ed7b42..0000000
--- a/Day1A.hs
+++ /dev/null
@@ -1,8 +0,0 @@
-module Day1A where
-
-read' :: String -> Int
-read' ('+':str) = read str
-read' str = read str
-
-main :: IO ()
-main = interact $ show . sum . map read' . lines
diff --git a/Day1B.hs b/Day1B.hs
deleted file mode 100644
index 04db47a..0000000
--- a/Day1B.hs
+++ /dev/null
@@ -1,14 +0,0 @@
-module Day1B where
-
-import Day1A (read')
-import qualified Data.IntSet as S
-
-handle :: Int -> S.IntSet -> [Int] -> Int
-handle freq history (nextDelta:xs)
-  | S.member freq history = freq  -- When the frequency is in the history set, return it
-  | otherwise             = handle (freq + nextDelta) (S.insert freq history) xs  -- Recurse otherwise
-handle _ _ _ = error "xs should not be empty :("
-
-main :: IO ()
-main = interact $ show . handle 0 S.empty . deltaFreqs
-  where deltaFreqs = cycle . map read' . lines  -- Convert input to Ints and repeat infinitely