Tidying

[advent-of-code-19.git] / advent16 / src / advent16.hs

diff --git a/advent16/src/advent16.hs b/advent16/src/advent16.hs
index 816def5fdbd80a2f9ccdd9cc6e1ff28261af9cd1..2067d13996fd82c01ef22c7bf1b87a0341627d38 100644 (file)
--- a/advent16/src/advent16.hs
+++ b/advent16/src/advent16.hs
@@ -1,14 +1,5 @@
-import Debug.Trace
-
 import Data.Char (digitToInt, intToDigit)
 
--- import qualified Data.Map.Strict as M
--- import Data.Map.Strict ((!))
-import Data.List
--- import qualified Data.Set as S
-
-
-
 main :: IO ()
 main = do 
         text <- readFile "data/advent16.txt"
@@ -21,6 +12,7 @@ main = do
 part1 :: [Int] -> String
 part1 digits = map intToDigit $ take 8 $ (fft digits)!!100
 
+part2 :: [Int] -> String
 part2 digits = map intToDigit signal
     where offset = read @Int $ map intToDigit $ take 7 digits 
           fullDigits = concat $ replicate 10000 digits