fuxino/AdventOfCode2024
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Day 5

Browse Source
This commit is contained in:
daniele
2024-12-05 15:33:14 +01:00
parent ed2e74ba45
commit e4c38318e9
5 changed files with 47 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Day4/puzzle1.hs
View File

@ -9,12 +9,12 @@ countSubstrings :: String -> [String] -> Int
countSubstrings word text = sum (map (countSubstrings' word) text) + sum (map (countSubstrings' word . reverse) text)
+ sum (map (countSubstrings' word) cols) + sum (map (countSubstrings' word . reverse) cols)
+ sum (map (countSubstrings' word) diags) + sum (map (countSubstrings' word . reverse) diags)
where cols = transpose text
where cols = transpose text
diags = diagonals text
countSubstrings' _ [] = 0
countSubstrings' word text@(_:rest) = if word `isPrefixOf` text
then 1 + countSubstrings' word rest
else countSubstrings' word rest
then 1 + countSubstrings' word rest
else countSubstrings' word rest
main = do
contents <- lines <$> readFile "day4.txt"

4
Day4/puzzle2.hs
View File

@ -10,8 +10,8 @@ countSubstrings word text = sum (map (countSubstrings' word) diags) + sum (map (
where diags = diagonals text
countSubstrings' _ [] = 0
countSubstrings' word text@(_:rest) = if word `isPrefixOf` text
then 1 + countSubstrings' word rest
else countSubstrings' word rest
then 1 + countSubstrings' word rest
else countSubstrings' word rest
submatricesVert :: Int -> [String] -> [[String]]
submatricesVert _ [] = []