added part solution for day 10

Author: haskie-lambda

10.hs

@@ -0,0 +1,63 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE TypeApplications #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+import Lib
+import Debug.Trace
+import Data.List (sort)
+
+dummyAdapters = [ 16
+                , 10
+                , 15
+                , 5
+                , 1
+                , 11
+                , 7
+                , 19
+                , 6
+                , 12
+                , 4 ]
+
+dummyAdapters2 = [ 28
+                 , 33
+                 , 18
+                 , 42
+                 , 31
+                 , 14
+                 , 46
+                 , 20
+                 , 48
+                 , 47
+                 , 24
+                 , 23
+                 , 49
+                 , 45
+                 , 19
+                 , 38
+                 , 39
+                 , 11
+                 , 1
+                 , 32
+                 , 25
+                 , 35
+                 , 8
+                 , 17
+                 , 7
+                 , 9
+                 , 4
+                 , 2
+                 , 34
+                 , 10
+                 , 3 ]
+
+main = do
+   
+    let counts l = map (\x -> (x, length $ filter (==x) l)) [0..3]
+        calcResult l = snd . head $ scanr (\a (b,l) -> (a ,(b-a):l)) (maximum dummyAdapters + 3,[]) $ sort $ 0:l
+        dummyResult = calcResult dummyAdapters
+    print $ counts dummyResult
+    print $ counts $ calcResult dummyAdapters2
+
+    contents <- readFile "10.input"
+    let adapters = map (read @Int) $ lines contents
+    print $ counts $ calcResult adapters -- have to add +1 to the count for three, not yet sure why
+

10.input

@@ -0,0 +1,98 @@
+35
+111
+135
+32
+150
+5
+106
+154
+41
+7
+27
+117
+109
+63
+64
+21
+138
+98
+40
+71
+144
+13
+66
+48
+12
+55
+119
+103
+54
+78
+65
+112
+39
+128
+53
+140
+77
+34
+28
+81
+151
+125
+85
+124
+2
+99
+131
+59
+60
+6
+94
+33
+42
+93
+14
+141
+92
+38
+104
+9
+29
+100
+52
+19
+147
+49
+74
+70
+84
+113
+120
+91
+97
+17
+45
+139
+90
+116
+149
+129
+87
+69
+20
+24
+148
+18
+58
+123
+76
+118
+130
+132
+75
+110
+105
+1
+8
+86