rhiobet/advent-of-code-2023
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Play with syntax

Browse Source
This commit is contained in:
RhiobeT Chan
2023-12-04 19:05:20 +01:00
parent e746e22b0b
commit 53cad097f8
15 changed files with 27 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
day03/Commons.hs
View File

@@ -37,7 +37,7 @@ parseNumberPart row column rawNumber = let value = parseNumberPartValue rawNumbe
parseLine :: Int -> Int -> String -> Engine -> Engine
parseLine _ _ [] engine = engine
parseLine row column (h: t) engine | isDigit h = let newNumberPart = parseNumberPart row column (h: t)
parseLine row column (h: t) engine | isDigit h = let newNumberPart = parseNumberPart row column $ h: t
newNumberLength = numberLength newNumberPart
in parseLine row (column + newNumberLength)
(drop (newNumberLength - 1) t)
@@ -56,7 +56,7 @@ parseEngine row engine = do done <- isEOF
then return engine
else do line <- getLine
let newEngine = parseLine row 1 line engine
parseEngine (row+1) newEngine
parseEngine (row + 1) newEngine
parse :: IO Engine
parse = parseEngine 1 Engine {numbers = [], symbols = []}