Change haskell solution to handle bigint input
This commit is contained in:
parent
c158f59eff
commit
cbec64cf35
|
@ -8,10 +8,10 @@ main = do
|
||||||
printf "Part 1: %d\n" (fuel input)
|
printf "Part 1: %d\n" (fuel input)
|
||||||
printf "Part 2: %d\n" (fuelrec input)
|
printf "Part 2: %d\n" (fuelrec input)
|
||||||
|
|
||||||
fuel :: [Int] -> Int
|
fuel :: [Integer] -> Integer
|
||||||
fuel xs = sum (map (subtract 2 . (`div` 3)) xs)
|
fuel xs = sum (map (subtract 2 . (`div` 3)) xs)
|
||||||
|
|
||||||
fuelrec :: [Int] -> Int
|
fuelrec :: [Integer] -> Integer
|
||||||
fuelrec xs = sum (map f xs) - sum xs where
|
fuelrec xs = sum (map f xs) - sum xs where
|
||||||
f x | x > 0 = x + f ((subtract 2 . (`div` 3)) x)
|
f x | x > 0 = x + f ((subtract 2 . (`div` 3)) x)
|
||||||
| otherwise = 0
|
| otherwise = 0
|
||||||
|
|
Loading…
Reference in New Issue
Block a user