Arranun/AoC2019
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Day16: Time/6 when dropping unneeded calculations

This commit is contained in:
Arranun 2019-12-16 13:04:34 +01:00
parent 17ef30b293
commit 46b9098db9
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
day16.hs
View File

@ -1,11 +1,14 @@
import Data.Char import Data.Char
import Debug.Trace as T
main = do main = do
content <- getContents cont <- getContents
let input = map digitToInt $ init content let content = (map digitToInt $ init cont)
let base = [0,1,0,-1] let base = [0,1,0,-1]
let patter = map (getPatternForIndex base (length input)) [0..(length input)] let patter = drop 500 (map (getPatternForIndex base (length content)) [0..(length content)])
let test1 = doSteps input patter 100 let input = drop 500 content
let test1 = doSteps input patter 1
--putStrLn (show input) --putStrLn (show input)
--mapM putStrLn (map show patter) --mapM putStrLn (map show patter)
putStrLn (show test1) putStrLn (show test1)