day7: beautify ?
This commit is contained in:
parent
db092a272a
commit
6cb104199c
1
day7.hs
1
day7.hs
|
@ -5,7 +5,6 @@ import Data.Either as Either
|
||||||
|
|
||||||
main = do
|
main = do
|
||||||
software <- getList <$> getContents
|
software <- getList <$> getContents
|
||||||
--let output = operation state state 0 input []
|
|
||||||
let combs = getComb [5,6,7,8,9]
|
let combs = getComb [5,6,7,8,9]
|
||||||
--mapM putStrLn(map show combs)
|
--mapM putStrLn(map show combs)
|
||||||
putStrLn(show $ List.maximum ( map (\x-> part2 ( prepareAmps x software) 0 ) combs ))
|
putStrLn(show $ List.maximum ( map (\x-> part2 ( prepareAmps x software) 0 ) combs ))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user