Day17: Part2 works
This commit is contained in:
parent
b0f6505112
commit
b49722bb69
9
day17.hs
9
day17.hs
|
@ -11,11 +11,10 @@ main = do
|
|||
let mvFuncA = [76,44,49,50,44,76,44,49,50,44,76,44,54,44,76,44,54,10]
|
||||
let mvFuncB = [82,44,56,44,82,44,52,44,76,44,49,50,10]
|
||||
let mvFuncC = [76,44,49,50,44,76,44,54,44,82,44,49,50,44,82,44,56,10]
|
||||
let input = concat [mvRoutine, mvFuncA, mvFuncB, mvFuncC]
|
||||
let mapPoints = (output (step brain []))
|
||||
let split = splitOn [10] mapPoints
|
||||
putStrLn (show mapPoints)
|
||||
mapM putStrLn (map(map getSymbol) split)
|
||||
let videoStream = [110,10]
|
||||
let input = concat [mvRoutine, mvFuncA, mvFuncB, mvFuncC, videoStream]
|
||||
let dust = (output (step brain input))
|
||||
putStrLn (show dust)
|
||||
|
||||
data Amplifier = Amplifier{ state :: [Int]
|
||||
,index :: Int
|
||||
|
|
Loading…
Reference in New Issue
Block a user