Day 01

day01/Part1.hs

@@ -0,0 +1,14 @@
+module Part1 where
+
+import Commons
+
+getCalibrationValuePart :: CalibrationLine -> Char
+getCalibrationValuePart (h: _) | h >= '0' && h <= '9' = h
+getCalibrationValuePart (_: t) = getCalibrationValuePart t
+
+getCalibrationValue :: CalibrationLine -> Integer
+getCalibrationValue line = read [(getCalibrationValuePart line), (getCalibrationValuePart (reverse line))]
+
+getCalibrationValues :: CalibrationDocument -> [Integer]
+getCalibrationValues (h: []) = [(getCalibrationValue h)]
+getCalibrationValues (h: t) = ((getCalibrationValue h): (getCalibrationValues t))