Day 7.1

src/AOC-07a.hs

 module Main where
 
-import Data.Foldable ( minimumBy )
-import Data.Ord ( comparing )
-
-readInts :: String -> [Int]
-readInts = read . ("["++) . (++"]")
-
 cost :: Int -> [Int] -> Int
 cost d = sum . map (abs . (d-))
 
-minVal :: (Ord b) => (a -> b) -> [a] -> b
-minVal f = snd . minimumBy (comparing snd) . map (\a -> (a,f a)) 
+minimumOf :: (Ord b) => (a -> b) -> [a] -> b
+minimumOf f = minimum . map f
 
 main :: IO ()
 main = do
-  input <- readInts <$> readFile "data/crabs.txt"
-  print $ minVal (`cost` input) [minimum input..maximum input]
\ No newline at end of file
+  input <- read . ("["++) . (++"]") <$> readFile "data/crabs.txt"
+  print $ minimumOf (`cost` input) [minimum input..maximum input]
\ No newline at end of file

src/AOC-07b.hs

 module Main where
 
-import Data.Foldable ( minimumBy )
-import Data.Ord ( comparing )
-
-readInts :: String -> [Int]
-readInts = read . ("["++) . (++"]")
-
 cost :: Int -> [Int] -> Int
 cost d = sum . map (f . (abs . (d-))) where
   f n = n * (n+1) `div` 2
 
-minVal :: (Ord b) => (a -> b) -> [a] -> b
-minVal f = snd . minimumBy (comparing snd) . map (\a -> (a,f a)) 
+minimumOf :: (Ord b) => (a -> b) -> [a] -> b
+minimumOf f = minimum . map f
 
 main :: IO ()
 main = do
-  input <- readInts <$> readFile "data/crabs.txt"
-  print $ minVal (`cost` input) [minimum input..maximum input]
+  input <- read . ("["++) . (++"]") <$> readFile "data/crabs.txt"
+  print $ minimumOf (`cost` input) [minimum input..maximum input]