Day16: Time/6 when dropping unneeded calculations
This commit is contained in:
parent
17ef30b293
commit
46b9098db9
11
day16.hs
11
day16.hs
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user