15 lines
311 B
Haskell
Executable file
15 lines
311 B
Haskell
Executable file
#!/usr/bin/env runghc
|
|
|
|
import Day10
|
|
import Data.List
|
|
|
|
main = interact (show . solve . parse)
|
|
|
|
solve xs = ones * threes
|
|
where
|
|
sorted = 0:(sort xs)
|
|
differences = zipWith (flip (-)) sorted (tail sorted)
|
|
ones = count 1 differences
|
|
threes = count 3 differences + 1
|
|
|
|
count x = length . filter (==x)
|