Play with syntax

2023-12-04 19:05:20 +01:00
parent e746e22b0b
commit 53cad097f8
15 changed files with 27 additions and 26 deletions
--- a/day04/Part1.hs
+++ b/day04/Part1.hs
@@ -9,7 +9,7 @@ getNWinningNumbers winningNumbers (n: t) | n `elem` winningNumbers = 1 + getNWin
                                         | otherwise = getNWinningNumbers winningNumbers t

 getPoints :: Card -> Int
-getPoints card = let nWinningNumbers = getNWinningNumbers (winningNumbers card) (numbers card)
+getPoints card = let nWinningNumbers = getNWinningNumbers (winningNumbers card) $ numbers card
                 in if nWinningNumbers == 0
                       then 0
                       else 2 ^ (nWinningNumbers - 1)