Fix indentation

This commit is contained in:
Daniele Fucini
2025-12-05 09:04:23 +01:00
parent b6b02ac5a2
commit 7a68416c24
2 changed files with 17 additions and 17 deletions

View File

@@ -1,16 +1,16 @@
module Day03
( day03_1,
day03_2
day03_2,
)
where
getBankJoltage :: String -> Int -> String -> Int
getBankJoltage :: String -> Int -> String -> Int
getBankJoltage value 0 _ = read value
getBankJoltage value n bank =
let l = length bank
bank' = take (l - n + 1) bank
x = maximum bank'
in getBankJoltage (value ++ [x]) (n - 1) (drop 1 (dropWhile (/= x) bank))
in getBankJoltage (value ++ [x]) (n - 1) (drop 1 (dropWhile (/= x) bank))
getTotalJoltage :: [String] -> Int -> Int
getTotalJoltage banks n = sum $ map (getBankJoltage "" n) banks