compute :: [String] -> Int
compute input = length $ filter validTriangle tripleList
    where tripleList = collect3 $ map read input 
compute :: [String] -> Int
compute input = length $ filter validTriangle tripleList
    where tripleList = collect3 $ map read input 
compute input = length $ filter validTriangle tripleList
    where tripleList = collect3 $ map read input 