From 2e08baf2e4c65958b9d62322eb50f919a788221f Mon Sep 17 00:00:00 2001 From: Neil Smith 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.34.1