rename executables

Signed-off-by: Amneesh Singh <natto@weirdnatto.in>
This commit is contained in:
2024-12-02 19:36:14 +05:30
parent 9251a1facf
commit 5999573723
3 changed files with 7 additions and 8 deletions

View File

@@ -19,14 +19,14 @@ library libaoc
build-depends: containers
exposed-modules: AoC
executable p1
executable day1
import: common
hs-source-dirs: src
main-is: P1.hs
main-is: Day1.hs
build-depends: libaoc
executable p2
executable day2
import: common
hs-source-dirs: src
main-is: P2.hs
main-is: Day2.hs
build-depends: libaoc

View File

@@ -1,9 +1,8 @@
module Main where
import qualified AoC as A (count, extract)
import Control.Monad (void)
import Data.List (sort)
import Text.Parsec (digit, eof, many1, newline, parse, sepEndBy1, space, try, (<|>))
import Text.Parsec (digit, many1, newline, parse, sepEndBy1, space)
import Text.Parsec.String (Parser)
parseLists :: Parser ([Int], [Int])
@@ -28,7 +27,7 @@ part2 xs ys = sum $ map (\x -> x * A.count x ys) xs
main :: IO ()
main =
do
raw <- readFile "./inputs/p1.in"
raw <- readFile "./inputs/day1.in"
-- parse the input
let (xs', ys') = A.extract $ parse parseLists "" raw
-- sort the lists

View File

@@ -29,7 +29,7 @@ part2 = length . filter dampSafe
main :: IO ()
main =
do
raw <- readFile "./inputs/p2.in"
raw <- readFile "./inputs/day2.in"
-- parse the input
let reports = A.extract $ parse parseReports "" raw
putStr "Part 1: " >> print (part1 reports)