From 2e08baf2e4c65958b9d62322eb50f919a788221f Mon Sep 17 00:00:00 2001
From: Neil Smith <neil.git@njae.me.uk>
Date: Fri, 20 Dec 2019 17:46:17 +0000
Subject: [PATCH] Tidying
---
advent16/src/advent16.hs | 10 +---------
1 file changed, 1 insertion(+), 9 deletions(-)
diff --git a/advent16/src/advent16.hs b/advent16/src/advent16.hs
index 816def5..2067d13 100644
--- 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
--
2.43.0