this repo has no description
1module Main where
2
3import Lib
4-- import Data.List
5
6main :: IO ()
7main = do
8 inputStr <- readFile "input.txt"
9 -- let testComponents = [(0,2), (2,2), (2,3), (3,4), (3,5), (0,1), (10,1), (9,10)]
10 -- in print $ maximumBy (\a b -> compare (bridgeStrength a) (bridgeStrength b)) $ validBridges testComponents
11 let input = lines $ inputStr
12 components = parseComponents input
13 -- in print $ strongestBridge $ validBridges components
14 in print $ strongestBridge . longestBridges $ validBridges components