|
|
|
@ -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 )) |
|
|
|
|