projects
/
advent-of-code-19.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
70a2317
)
Tidying
author
Neil Smith
<neil.git@njae.me.uk>
Fri, 20 Dec 2019 17:46:17 +0000
(17:46 +0000)
committer
Neil Smith
<neil.git@njae.me.uk>
Fri, 20 Dec 2019 17:46:17 +0000
(17:46 +0000)
advent16/src/advent16.hs
patch
|
blob
|
history
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 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"
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
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
part2 digits = map intToDigit signal
where offset = read @Int $ map intToDigit $ take 7 digits
fullDigits = concat $ replicate 10000 digits