Fix indentation
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user