This commit is contained in:
2023-12-13 14:26:33 +01:00
parent 2f36550ebe
commit 03c18bbe91
5 changed files with 116 additions and 0 deletions

7
day13/Part1.hs Normal file
View File

@@ -0,0 +1,7 @@
module Part1 where
import Commons
getSummary :: [Pattern] -> [Int]
getSummary = map (\ p -> getVerticalReflection 1 0 p + 100 * getHorizontalReflection 1 0 p)