Browse Source

Day 7

mistress
Agatha Lovelace 2 months ago
parent
commit
171d11f532
  1. 21
      Day7.hs
  2. 21
      Day7_1.hs

21
Day7.hs

@ -0,0 +1,21 @@
module Day7 where
import System.IO (openFile, IOMode (ReadMode), hClose, hGetContents)
import Data.Text (splitOn, unpack, pack)
import Prelude hiding (splitAt)
splitAt :: String -> String -> [String]
splitAt delimiter str = map unpack $ splitOn (pack delimiter) $ pack str
fuel :: Int -> Int -> Int
fuel to from = abs $ from - to
main :: IO ()
main = do
input <- openFile "inputs/7.txt" ReadMode
contents <- hGetContents input
let crabby = map read $ splitAt "," contents :: [Int]
print $ minimum [ sum $ map (fuel i) crabby | i <- [minimum crabby .. maximum crabby] ]
hClose input

21
Day7_1.hs

@ -0,0 +1,21 @@
module Day7_1 where
import System.IO (openFile, IOMode (ReadMode), hClose, hGetContents)
import Data.Text (splitOn, unpack, pack)
import Prelude hiding (splitAt)
splitAt :: String -> String -> [String]
splitAt delimiter str = map unpack $ splitOn (pack delimiter) $ pack str
fuel :: Int -> Int -> Int
fuel to from = sum [0..abs $ from - to]
main :: IO ()
main = do
input <- openFile "inputs/7.txt" ReadMode
contents <- hGetContents input
let crabby = map read $ splitAt "," contents :: [Int]
print $ minimum [ sum $ map (fuel i) crabby | i <- [minimum crabby .. maximum crabby] ]
hClose input
Loading…
Cancel
Save