diff --git a/haskell/1-0.hs b/haskell/1-0.hs
new file mode 100644
index 0000000..7af23d4
--- /dev/null
+++ b/haskell/1-0.hs
@@ -0,0 +1,15 @@
+import Data.Char
+
+digits :: String -> String
+digits = filter isDigit
+
+calibrationValue :: String -> Int
+calibrationValue x = read [ head $ digits x, last $ digits x ] 
+
+main = do
+  inputs <- readFile "inputs/1.0"
+  let lns = lines inputs
+  let res = sum $ map calibrationValue lns
+  print res
+
+