parseLine :: String -> [Float]
parseLine s = map read $ words $ replace ',' ' ' s

parseTriangle :: (Fractional a, Ord a) => [a] -> ((a, a), (a, a), (a, a))
parseTriangle xs = let (x1:y1:x2:y2:x3:y3:[]) = xs