Complete first day puzzles

1/depthcounter.hs

@@ -0,0 +1,27 @@
+main = interact countTripleDepths
+
+countDepths :: String -> String
+countDepths depths =
+  let parse x = map (read) (lines x)
+  in
+    show (depthCounter (parse depths)) ++ "\n"
+
+slide :: Int -> [a] -> [[a]]
+slide _ [] = []
+slide len list = (take len list):(slide len xs)
+  where (x:xs) = list
+
+countTripleDepths :: String -> String
+countTripleDepths depths =
+  let
+    parse x = map (read) (lines x)
+    deNoise x = map (sum) (slide 3 x)
+  in
+    show (depthCounter (deNoise (parse depths))) ++ "\n"
+
+depthCounter :: (Integral a) => [a] -> a
+depthCounter [] = 0
+depthCounter [_] = 0
+depthCounter (x:xs) = if x < head xs
+                    then 1 + depthCounter xs
+                    else 0 + depthCounter xs

1/samplereport.txt

@@ -0,0 +1,10 @@
+199
+200
+208
+210
+200
+207
+240
+269
+260
+263