blob: b98791e6ab9153d1bf1675c279a21d5b55808180 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
module Main where
import Prelude
import Text.Read
import Data.Maybe
import Data.List
import Debug.Trace
import Data.Monoid
f [] = (First Nothing, Last Nothing)
f (x:xs) = ((,) . First <*> Last $ readMaybe [x]) <> f xs
g (First x, Last y) = (+) . (*10) <$> x <*> y
--f = sum . take 1 . (zipWith ((+).(*10)) <*> reverse) . catMaybes . map (readMaybe.pure)
main = readFile "input.txt" >>= print . sum . catMaybes . map (g . f) <$> lines
|
