this repo has no description
1module Main where
2
3import Data.List.Split
4import Lib
5
6main :: IO ()
7main = do
8 inputStr <- readFile "input.txt"
9 let input = splitOn "\n" $ init inputStr
10 part1 = findBottomProgram input
11 tower = buildProgramTower input
12 (weights, w) = findImbalancedProgram tower
13 in do
14 print weights
15 print w