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
|
||||
software <- getList <$> getContents
|
||||
--let output = operation state state 0 input []
|
||||
let combs = getComb [5,6,7,8,9]
|
||||
--mapM putStrLn(map show combs)
|
||||
putStrLn(show $ List.maximum ( map (\x-> part2 ( prepareAmps x software) 0 ) combs ))
|
||||
|
|
Loading…
Reference in New Issue