Added solution to day 4.

2025/aoc/aoc.cabal

@@ -93,20 +93,6 @@ executable day4
     , base >=4.7 && <5
   default-language: Haskell2010
 
-executable day5
-  main-is: Main.hs
-  other-modules:
-      Paths_aoc
-  autogen-modules:
-      Paths_aoc
-  hs-source-dirs:
-      app/day5
-  ghc-options: -Wall -Wcompat -Widentities -Wincomplete-record-updates -Wincomplete-uni-patterns -Wmissing-export-lists -Wmissing-home-modules -Wpartial-fields -Wredundant-constraints -threaded -rtsopts -with-rtsopts=-N
-  build-depends:
-      aoc
-    , base >=4.7 && <5
-  default-language: Haskell2010
-
 test-suite aoc-test
   type: exitcode-stdio-1.0
   main-is: Spec.hs

2025/aoc/app/day5/Main.hs

@@ -1,76 +0,0 @@
-module Main (main) where
-
-import Data.List (isPrefixOf, sort)
-import Debug.Trace
-
-type Range = (Int, Int)
-
-type FreshDatabase = [Range]
-
-takeWhileList :: ([a] -> Bool) -> [a] -> [a]
-takeWhileList _ [] = []
-takeWhileList f (x : xs)
-  | f (x : xs) = x : takeWhileList f xs
-  | otherwise = []
-
-splitOn :: (Eq a) => [a] -> [a] -> [[a]]
-splitOn x [] = []
-splitOn x xs =
-  let e = takeWhileList (not . isPrefixOf x) xs
-   in e : splitOn x (drop (length e + length x) xs)
-
-processRange :: String -> Range
-processRange s =
-  case splitOn "-" s of
-    [a, b] -> (read a :: Int, read b :: Int)
-    _ -> error "Invalid range!"
-
-isFresh :: FreshDatabase -> Int -> Bool
-isFresh [] _ = False
-isFresh ((start, end) : xs) v = start <= v && v <= end || isFresh xs v
-
-buildDatabase :: String -> FreshDatabase -> FreshDatabase
-buildDatabase range db = processRange range : db
-
-freshIngredients :: FreshDatabase -> [Int] -> [Int]
-freshIngredients db = filter (isFresh db)
-
-parseDatabase :: String -> FreshDatabase
-parseDatabase = foldr buildDatabase [] . lines
-
-parseIngredients :: String -> [Int]
-parseIngredients = map (\x -> read x :: Int) . lines
-
-parseInput :: [String] -> (FreshDatabase, [Int])
-parseInput [a, b] = (parseDatabase a, parseIngredients b)
-parseInput _ = error "Wrong input!"
-
-part1 :: IO ()
-part1 =
-  getContents
-    >>= print . length . uncurry freshIngredients . parseInput . splitOn "\n\n"
-
-data RangeEvent = StartEvent | StopEvent deriving (Eq, Ord, Show)
-
-rangeCoverage :: [Range] -> Int
-rangeCoverage =
-  (\(_, _, _, c) -> c)
-    . foldl countCoverage (0, 0, 0, 0)
-    . sort
-    . concatMap (\(s, e) -> [(s, StartEvent), (e, StopEvent)])
-  where
-    countCoverage :: (Int, Int, Int, Int) -> (Int, RangeEvent) -> (Int, Int, Int, Int)
-    countCoverage (_, lastEnd, 0, coverage) (start, StartEvent)
-      | start == lastEnd = (start + 1, lastEnd, 1, coverage)
-      | otherwise = (start, lastEnd, 1, coverage)
-    countCoverage (lastStart, lastEnd, n, coverage) (_, StartEvent) = (lastStart, lastEnd, n + 1, coverage)
-    countCoverage (lastStart, _, 1, coverage) (end, StopEvent) = (lastStart, end, 0, coverage + ((end + 1) - lastStart))
-    countCoverage (lastStart, lastEnd, n, coverage) (_, StopEvent) = (lastStart, lastEnd, n - 1, coverage)
-
-part2 :: IO ()
-part2 =
-  getContents
-    >>= print . rangeCoverage . fst . parseInput . splitOn "\n\n"
-
-main :: IO ()
-main = part2

2025/aoc/inputs/day5_test.txt

@@ -1,11 +0,0 @@
-3-5
-10-14
-16-20
-12-18
-
-1
-5
-8
-11
-17
-32

2025/aoc/package.yaml

@@ -73,15 +73,6 @@ executables:
     - -with-rtsopts=-N
     dependencies:
     - aoc
-  day5:
-    main:                Main.hs
-    source-dirs:         app/day5
-    ghc-options:
-    - -threaded
-    - -rtsopts
-    - -with-rtsopts=-N
-    dependencies:
-    - aoc
 
 tests:
   aoc-test: